Donati

Bom Dia, Basta colocar o evento click no combo, e assim que voce fiz o click, faça uma busca do CNPJ do cliente na tabela e coloque no TextBox ou quando voce carregar o combo, carregue junto o CNPJ, claro dando espaços de por exemplo 150 caracteres. ai no evento click do combo, busque o CNPJ do cliente e adicione no Text

BOm Dia então o problema pode não estar no sistema e nas querys executadas por ele, e sim um lentidao na rede ou sobrecarga no servidor do SQL 2000 que voces estao usando. já tive esse tipo de problema, e a solução mais viavel é analisar todas as querys e verificar os indices se estao corretos. Verifica tambem se essas lentidoes que estao acontecendo ocorrem mais ou menos no mesmo horario que possivelmente sera o pico de utilização do sistema. t+

Boa Tarde Pelo que entendi do seu codigo o problema é que o codigo abaixo: if len(ITEMPROC) > 0 then CB_Item.listwidth = CB_Item.width + len(ITEMPROC) end if tem que estar dentro de cada FOR, pois se não estiver o combo vai assumir o listwidth do item que estiver em foco no momento FUI!!!!!!!!!!!!

Bom dia PAra Realizar esta operação voce tera que carregar apenas o primeiro Combo e depois de selecionar o item desejado, você carrega o segundo combo com os itens desejados T+ FUI!!!!!!!!!!!

Boa Tarde Provavelmente é alguma DLL que esta faltando na outra maquina, verifique na aplicação todas as DLLs que estao sendo utilizadas, copie para a maquina que não funciona e registre todas elas novamente, copie as DLLs para o system32 Acho que o problema é esse

Certo, como os feriados podem variar entre os dias da semana a cada ano, para checar se é feriado, é necessario se cadastrar todos os feriados dentro de uma tabela do banco de dados. Via codigo VB não é possivel saber se o dia é ou não feriado

Bom em VBA não sei exatamente como fazer isso, porem fiz algumas planilhas preenchendo dados atraves do VB, vasta voce colocar o objeto do excel com a propriedade visible = false oExcel.visible = false

tem uma forma mais facil Voce tera que fazer um loop da primeira data ate a data final, verificando se é final de semana ou não voce coloca sua variavel e verifica o WEEKDAY, caso seja 7 ou 1 é que o dia é final de semana, caso esteja entre 2 e 6 essa data é durante a semana exemplo if (Weekday(data) <> 1 Or Weekday(data) <> 7) then caso entre no IF é que o dia é durante a semana caso contrario é final de semana

Cara não me lembro não faz algum tempo que fiz isso Donati

Boa Tarde Nunca fiz com tantos dados, porem já gerei recodsets com em torno de meio milhao de registros e não tive problema nenhum, a unica coisa é que sera um pouco demorado para executar FUI!!!!!!!! Donati

Boa Tarde, Se no seu vb não tem essa inclui outra, isso é apenas a referencia do ADO, então voce pode colocar essa ou uma superior como por exemplo: Microsoft ActiveX Data Objects 2.2 LIbrary ou superior T+ FUI!!!!!!!!! Donati

BOm Dia Exatamente use o comando Replace FUI!!!!!!!!! DONATI

Fala ai, Esse é um problema bem grande, pois o apostrofo simples (') e o delimitador de uma string para o SQL, então esse tipo de dados é impossivel para se colocar no banco. O que voce poderia fazer e dar um Replace no apostrofo por um simbolo qualquer, então, quando voce buscar dados no banco de dados substitua novamente este simbolo pelo apostrofo e coloque a informação no campo da tela desejado acho que deu para entender, né!!!!!!! T+ FUI!!!!!!!!!!! DONATI

Fala Ai segue abaixo Dim oExcel As Object Dim oBook As Object Dim oSheet As Object Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Open("c:\fund.xls", False) Set oSheet = oBook.worksheets(1) variavel = oSheet.cells(LINHA, COLUNA).Value onde oSHeet é o objeto criado acima LINHA é a linha que deseja colocar a informação da tabela COLUNA é a coluna que deseja colocar a informação da tabela VARIAVEL é a variavel que voce vai colocar os dados para depois realizar o insert into na tabela ai basta fazer um loop para pegar todos os campos e linhas da sua planilha, porem a cada mudança de linha realize o insert into T+ FUI!!!!!!!!!!!!! Donati

Boa Tarde Uma maneira de fazer seria como o codigo abaixo no momento de fazer a consulta dentro do Banco de Dados: SELECT teste, count(*) FROM Tabela1 group by teste order by count(*) desc; espero que é isso que você precise T+ FUI!!!!!!!!!!!!!!! Donati Boa Tarde Uma maneira de fazer seria como o codigo abaixo no momento de fazer a consulta dentro do Banco de Dados: SELECT teste, count(*) FROM Tabela1 group by teste order by count(*) desc; espero que é isso que você precise T+ FUI!!!!!!!!!!!!!!! Donati

Bom dia Bom ai é um pouco mais complicado, mas voce pode proceder da mesma maneira, so que ao invés de voce mandar os dados para a planilha, voce vai buscar os dados nela e realizar um Insert into nas tabela do SQL acho que é isso que voce esta querendo t+ FUI!!!!!!!!!!! Donati

boa tarde Segue abaixo um exemplo flexConsulta.Col = 1 TXT_DS_MTRL_CMPR.Text = Trim(flexConsulta.Text) flexConsulta.Col = 2 TXT_QTD_MTRL_SOL.Text = Trim(flexConsulta.Text) flexConsulta.Col = 3 CBO_DS_UND_MTRL.Text = Trim(flexConsulta.Text) flexConsulta.Col = 4 TXT_VL_ESTM.Text = Trim(flexConsulta.Text) flexConsulta.Col = 5 TXT_JUST_PED.Text = Trim(flexConsulta.Text) onde flexconsulta é o nome do objeto MSFlexGrid ai você seleciona a coluna e faz com que o conteudo desta linha e coluna apareça no seu textbox caso seja em outro form basta colocar inicialmente o nome do form e depois o campo. exemplo flexConsulta.Col = 5 form2.text1.text = Trim(flexConsulta.Text) t+ FUI!!!!!!!!!!!!!!!! Donati

bom dia se entendi direito, voce quer salvar o arquivo depois de carregar os dados, ai vai o codigo oBook.SaveAs "C:\FUNDOS.xls" apos fazer isso, você precisa eliminar o objeto excel da memoria da maquina, segue abaixo o codigo oBook.Close False Set oSheet = Nothing Set oBook = Nothing oExcel.Application.Quit Set oExcel = Nothing espero que seja isso que você precise t+ FUI!!!!! Donati

Boa Tarde BOm vamos la então primeiro voce tera que criar tres objetos segue exemplo Dim oExcel As Object Dim oBook As Object Dim oSheet As Object Depois disso executa o select na tabela desejada e armazena a execução em uma variavel do tipo ADODB.Recordset. abra uma nova planilha com o codigo abaixo Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Add Set oSheet = oBook.worksheets(1) depois disso basta jogar os dados como no exemplo abaixo oSheet.cells(LINHA, COLUNA).Value = campo desejado onde oSHeet é o objeto criado acima LINHA é a linha que deseja colocar a informação da tabela COLUNA é a coluna que deseja colocar a informação da tabela se for varias linha de resultado do seu select basta execular um loop dentro Espero ter ajudado t+ FUI!!!!!!!!! Donati

mas no codigo abaixo qual o erro If IsDate(mskdata_inicio) = False Then MsgBox "Data de Inicio Invalida?", vbInformation, "Aviso" mskdata_inicio.SetFocus Exit Sub ElseIf IsDate(mskdata_fim) = False Then MsgBox "Data do Fim Invalida?", vbInformation, "Aviso" mskdata_fim.SetFocus Exit Sub ElseIf DateValue(mskdata_fim) < DateValue(mskdata_inicio) Then MsgBox "Data do Fim é Menor que a Data de Inicio?", vbOKOnly, "Data" mskdata_fim.SetFocus Exit Sub End If não vi nenhum erro, apesar de que para comparar datas é melhor usar outro formato de apresentação da data, por exemplo na sua ultima verificação ficaria assim: ElseIf format(mskdata_fim,"yyyy-mm-dd") < format(mskdata_inicio, "yyyy-mm-dd") Then MsgBox "Data do Fim é Menor que a Data de Inicio?", vbOKOnly, "Data" mskdata_fim.SetFocus Exit Sub End If Ate mais Fui Donati

Bom Dia Analisando seu codigo, onde voce carrega a variavel "cnnBiblio" Donati

boa tarde O que voce pode fazer e ativar o metodo Form_Resize() dentro dele coloque o codigo abaixo: If Me.WindowState = 0 Then Me.WindowState = 2 End If Com esse codigo todas as vezes que o usuario clicar duas vezes na barra de titulo o form diminui o tamanho e depois volta a ficar maximilizado Espero ter ajudado FUI!!!!! DONATI

E ai beleza Defina melhor o que voce que fazer!!!!!!! como assim "automatica que quando iniciassem o programa uma vez ele fica.se associado ao arranque do sistema. " Explique melhor FUI!!!!!!!!!!!! Donati

Danilo Mas em qual tabela esta o nome do medico, na tabela tblcliente não tem o nome do medico. Voce precisa ir buscar o nome do medico na tabela onde voce faz a ligação do nome do medico com o nome do cliente Espero ter ajudado FUI!!!!!!!!!!!! DOnati

Fala ai O comando é o seguinte flexConsulta.ColWidth(15) = 5000 onde flexconsulta é o nome do seu grid colwidth é a propriedade (15) é a colona que voce que alterar 5000 é o tamanho ai voce pode fazer o seguinte enquanto voce estiver carregando o grid, verificar o tamanho de cada valor que sera jogado no grid e guardar o valor do maior, no final voce redimensionar as colunas utilizando o comando acima FUI!!!!!!!!! t+ Donati