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