ToPronto N'Area

Olá estou com um problema q não tinha visto ainda. No vb utilizo o jet 4.0 onde posso me conectar com banco de dados access 2000 Durante a execução do programa utilizo o access 2007 para alterar o banco de dados, porem quando o programa já esta sendo utilizado pelo cliente faço isto via codigo! e funciona normalmente para alterar tabelas. só q agora eu preciso criar uma tabela e não sei a forma de me conectar para fazer isto, alguém pode me dar uma luz! Outro detalhe esquisito q esta acontecendo é o seguinte. O meu programa roda perfeitamente no windows vista e funciona blzinha, só q lá neste micro não tem o office instalado, se eu pegar o banco de dados e tentar abrir ele no meu pc q tem o vista com o office 2007 ele simplesmente zera o banco de dados da forma q eu o fiz a ultima vez. alguém sabe prq ocorre isto? Bom isso é tudo, obrigado a todos!

só pra completar você ainda pode utilizar o screen.heigth e screen.width para ele ficar sempre do tamanho da tela do monitor!

cara tente utilizar este sql dim sql as string sql = "select * from clientes where nome like '" & text1.text & "' or cidade like '" & text1.text & "' or bairro like '" & text1.text & "' order by nome" beleza! Ve se resolve ai!

Kuroi, cara demorei prq tinha perdido a minha senha! Ai ferrou, e só tive tempo de pegar agora! Mas na verdade o q aconteceu foi o seguinte! Eu trabalho com as duas conexões! Comecei errado e até hj tenho costume de trabalhar com as duas, tanto ado quanto dao! E neste exemplo ai eu estava fazendo a mesma coisa, trabalhava com dao, e o preenche lista era com ado! Ai num atualizava na hora! Troquei tudo pra dao e fico bom, num precisou mudar mais nada! Mas mesmo assim muito obrigado! E quanto ao like ele aceitou normal! Abração!

Obrigado a todos q passaram por aqui! Consegui a resposta em outro forum! Da uma olhada os meritos são de TREZE e IVANHOE O sql pode ficar assim Sql = "SELECT P.PRODUTO, P.ESTOQUE, P.VALOR, P.GRUPO, SUM(D.ENTRADA) AS SOMENT, SUM (D.SAIDA) AS SOMSAI, (SUM (D.SAIDA) * p.valor) as VlrProdSai, " Sql = Sql & "D.CODIGOPRODUTO FROM PRODUTO AS P INNER JOIN DETESTOQUE AS D " Sql = Sql & "ON D.CODIGOPRODUTO = P.CODIGO " Sql = Sql & "WHERE D.DATA BETWEEN #" & Format(FrmParSaidaPorPeriodo.Ctxt(0).Text, "mm/dd/yyyy") & "# AND #" & Format(FrmParSaidaPorPeriodo.Ctxt(1).Text, "mm/dd/yyyy") & "#" Sql = Sql & "GROUP BY P.PRODUTO, D.CODIGOPRODUTO, P.ESTOQUE, P.VALOR, P.GRUPO" Sql = Sql & " ORDER BY P.GRUPO" Ou ainda assim Sql = "SELECT P.PRODUTO, P.ESTOQUE, P.VALOR, P.GRUPO, SUM(D.ENTRADA) AS SOMENT, SUM (D.SAIDA) AS SOMSAI, (SOMSAI * p.valor) as VlrProdSai, " Sql = Sql & "D.CODIGOPRODUTO FROM PRODUTO AS P INNER JOIN DETESTOQUE AS D " Sql = Sql & "ON D.CODIGOPRODUTO = P.CODIGO " Sql = Sql & "WHERE D.DATA BETWEEN #" & Format(FrmParSaidaPorPeriodo.Ctxt(0).Text, "mm/dd/yyyy") & "# AND #" & Format(FrmParSaidaPorPeriodo.Ctxt(1).Text, "mm/dd/yyyy") & "#" Sql = Sql & "GROUP BY P.PRODUTO, D.CODIGOPRODUTO, P.ESTOQUE, P.VALOR, P.GRUPO" Sql = Sql & " ORDER BY P.GRUPO" sem o sum Eu testei e ficou show de bola! Abraço a todos

Saca só pessoal tenho este sql Sql = "SELECT P.PRODUTO, P.ESTOQUE, P.VALOR, P.GRUPO, SUM(D.ENTRADA) AS SOMENT, SUM (D.SAIDA) AS SOMSAI, " Sql = Sql & "D.CODIGOPRODUTO FROM PRODUTO AS P INNER JOIN DETESTOQUE AS D " Sql = Sql & "ON D.CODIGOPRODUTO = P.CODIGO " Sql = Sql & "WHERE D.DATA BETWEEN #" & Format(FrmParSaidaPorPeriodo.Ctxt(0).Text, "mm/dd/yyyy") & "# AND #" & Format(FrmParSaidaPorPeriodo.Ctxt(1).Text, "mm/dd/yyyy") & "#" Sql = Sql & "GROUP BY P.PRODUTO, D.CODIGOPRODUTO, P.ESTOQUE, P.VALOR, P.GRUPO" Sql = Sql & " ORDER BY P.GRUPO" E diga-se de passagem ta funcionando show de bola! top mesmo! Porem preciso fazer este sql Sql = "SELECT P.PRODUTO, P.ESTOQUE, P.VALOR, P.GRUPO, SUM(D.ENTRADA) AS SOMENT, SUM (D.SAIDA) AS SOMSAI, Sum(SOMSAI * p.valor) as VlrProdSai, " Sql = Sql & "D.CODIGOPRODUTO FROM PRODUTO AS P INNER JOIN DETESTOQUE AS D " Sql = Sql & "ON D.CODIGOPRODUTO = P.CODIGO " Sql = Sql & "WHERE D.DATA BETWEEN #" & Format(FrmParSaidaPorPeriodo.Ctxt(0).Text, "mm/dd/yyyy") & "# AND #" & Format(FrmParSaidaPorPeriodo.Ctxt(1).Text, "mm/dd/yyyy") & "#" Sql = Sql & "GROUP BY P.PRODUTO, D.CODIGOPRODUTO, P.ESTOQUE, P.VALOR, P.GRUPO" Sql = Sql & " ORDER BY P.GRUPO" vocês repararam q agora eu tenho tres suns e o ternceiro tem de fazer o calculo utilizando o resultado do ultimo! A pergunta é existe a possibiilidade de fazer isto? Ou tem outra forma de se fazer isto? Bom desde já agradeço a atenção de todos q passarem por aqui! Abraços!

E ai pessoal, seguinte na verdade ele funciona! Só q em um certo momento ela não faz o preenche_lista O codigo é este. Public Sub preenche_lista() verifica_rs sql = "select * from detalhepedido where pedido like '" & Ctxt(1).Text & "' order by codigodetalhe" Rds.Open sql, cnn Lblitens(3).Caption = "0,00" LstPedido.ListItems.Clear If Rds.RecordCount = 0 Then Exit Sub While Not Rds.EOF Set lst = LstPedido.ListItems.Add(, , Rds(3)) lst.SubItems(1) = Rds![qtde] lst.SubItems(2) = Format(Rds![vlrunitario], "#,##0.00;(#,##0.00)") lst.SubItems(3) = Format(Rds![vlrtotal], "#,##0.00;(#,##0.00)") Lblitens(3).Caption = Format(CCur(Lblitens(3).Caption) + Rds![vlrtotal], "#,##0.00;(#,##0.00)") Rds.MoveNext Wend Ctxt(0).Enabled = True Ctxt(0).Text = Empty Ctxt(0).SetFocus End Sub Ela é chamada na hora q eu salvo o produto! Ele salva o produto perfeitamente porem não coloca no list e não tem um padrão, tipo pra eu conseguir identificar o q ocorre antes dele não preencher! Eu vi q o q acontece é q o ultimo registro não entra no select! mas no proximo q eu lançar ele aparece certo! alguém tem ideia do q pode ser? Valeu!

cara muito obrigado, Valeu mesmo pela dica! Abraços!

Seguinte pessoal tenho o código If MsgBox("Deseja Imprimir o Pedido?", vbYesNo + vbQuestion, "Impressão") = vbNo Then Unload Me Else 'frmRelPedido.lblvalidade(6).Caption = "Orçamento válido por " & validade & " dias" frmRelPedido.lbl_Titulo.Caption = "Pedido" frmRelPedido.lblendereço.Caption = frmPedido.txtlclentrega.Text ' frmRelPedido.vnddr = frmPedido.txtcodigovendedor.Text frmRelPedido.Config frmPedido.Txt(0).Text Unload Me End If eu preciso q o foco venho no vbno e não no vbyes como é padrão do vb! alguém pode me ajudar! Valeu!

Valeu Kuroy! ficou assim Cnn.Execute "ALTER TABLE [" & "PROPOSTA" & "] ADD COLUMN [" & "FECHADA" & "] YESNO obrigado mesmo

E ai pessoal, seguinte eu tenho um executavel de atualização dos meus bds, trabalho com bds em access, e utilizo muito o alter table porem estou precisando criar um campo booleano, true ou false e escrevi a instrução assim Cnn.Execute "ALTER TABLE [" & "PROPOSTA" & "] ADD COLUMN [" & "FECHADA" & "] BOOLEAN (" & 1 & ")" porem ela não roda, onde eu estou errando na escrita? Desde já agradeço a ajuda de todos! Obs.: A conexão esta correta, e esta funcionando com campos numericos e textos, se puder já dizer como é com o campo data tambem eu agradeço mais ainda! Valeu obrigado!

Fernando em que momento você da o addnew e o update, ou você esta fazendo com inserto into? Coloque a forma que você esta mandando salvar pra gente analisar! Voce esta linkando as text e as combos no data ou no adodc? Passa estas informações que fica mais facil ajudar

kraks velho quase me mordeu esta nhaca! rsrsrsrs Vou tentar a dica q tu me deu, e esta foi boa do for eu não sabia q ele automaticamente já somava 1! Valeu quando conseguir lhe aviso até mais

quanto a esta duvida, me explica uma coisa, o projeto esta em um computadora com windows 95, é lá que você esta desenvolvendo o vb? Ou você esta criando o seu banco de dados pelo visual data manager? Se você estiver utilizando o visual data manager, pode cancelar não precisa ser por ele! Simplesmente crie um banco de dados normal e link ele ao seu sistema, e para isto tem varias formas, tem os objetos data e ado tem as conexãos dao e ado, enfim se você der uma boa pesquisada aqui no forum mesmo vai verificar estas informações! Ok, bom pelo q eu entendi era isso, se resolveu poste ai! Abraços!

beleza dr, é mais ou menos assim: No load do form eu chamo esta função MontarArvore A qual é a seguinte Private Sub MontarArvore() Dim NODX As Node Dim Nome1, Nome2, Nome3, Nome4 As String Dim ContNivel, ContSubNivel As Integer 'para diferenciar a key do data nivel ContNivel = 0 TrvPlano.Nodes.Clear Set TrvPlano.ImageList = ImgTrv Set NODX = TrvPlano.Nodes.Add(, , "Root", "Balancete") ', "Inicio") 'NODX.ExpandedImage = "Aberto" NODX.Expanded = True Do While Not DtaCategoria.Recordset.EOF CodCatePrc = DtaCategoria.Recordset.Fields("codcategoria") '& "." VerTabulacao = DtaCategoria.Recordset.Fields("categoria") VerTtlPc [b] For i = (Len(VerTabulacao) * 50) To (7920 - (Len(VlrCategoria) * 50)) VerTabulacao = VerTabulacao & "." i = i + 50 Next i[/b] Nome1 = DtaCategoria.Recordset.Fields("CodCategoria") & " - " & VerTabulacao & Format(VlrCategoria, "#,##0.00;(#,##0.00)") Set NODX = TrvPlano.Nodes.Add("Root", tvwChild, "Categoria" & DtaCategoria.Recordset.Fields("Codigo"), Nome1) ', "Aberto") DtaSubCategoria.RecordSource = "SELECT * FROM SubCategoria WHERE CodCategoria LIKE '" & DtaCategoria.Recordset.Fields("CodCategoria") & "' ORDER BY Codigo" DtaSubCategoria.Refresh NODX.Expanded = True Do While Not DtaSubCategoria.Recordset.EOF CodCatePrc = DtaSubCategoria.Recordset.Fields("CodCategoria") & "." & DtaSubCategoria.Recordset.Fields("CodSubCategoria") VerTabulacao = DtaSubCategoria.Recordset.Fields("SubCategoria") VerTtlPc For i = (Len(VerTabulacao) * 50) To (7728 - (Len(VlrCategoria) * 50)) VerTabulacao = VerTabulacao & "." i = i + 50 Next i Nome2 = DtaSubCategoria.Recordset.Fields("CodCategoria") & "." & DtaSubCategoria.Recordset.Fields("CodSubCategoria") & " - " & VerTabulacao & Format(VlrCategoria, "#,##0.00;(#,##0.00)") Set NODX = TrvPlano.Nodes.Add("Categoria" & DtaCategoria.Recordset.Fields("Codigo"), tvwChild, "SubCategoria" & DtaSubCategoria.Recordset.Fields("Codigo"), Nome2) ', "Aberto") DtaNivel.RecordSource = "SELECT * FROM NIVEL WHERE CodCategoria LIKE '" & DtaCategoria.Recordset.Fields("CodCategoria") & "' AND CodSubCategoria LIKE '" & DtaSubCategoria.Recordset.Fields("CodSubCategoria") & "' ORDER BY Codigo" DtaNivel.Refresh NODX.Expanded = True Do While Not DtaNivel.Recordset.EOF CodCatePrc = DtaNivel.Recordset.Fields("CodCategoria") & "." & DtaNivel.Recordset.Fields("CodSubCategoria") & "." & DtaNivel.Recordset.Fields("CodNivel") VerTabulacao = DtaNivel.Recordset.Fields("nivel") VerTtlPc For i = (Len(VerTabulacao) * 50) To (7536 - (Len(VlrCategoria) * 50)) VerTabulacao = VerTabulacao & "." i = i + 50 Next i Nome3 = DtaNivel.Recordset.Fields("CodCategoria") & "." & DtaNivel.Recordset.Fields("CodSubCategoria") & "." & DtaNivel.Recordset.Fields("CodNivel") & " - " & VerTabulacao & Format(VlrCategoria, "#,##0.00;(#,##0.00)") Set NODX = TrvPlano.Nodes.Add("SubCategoria" & DtaSubCategoria.Recordset.Fields("Codigo"), tvwChild, "Nivel" & ContNivel, Nome3) ', "Aberto") DtaSubNivel.RecordSource = "SELECT * FROM SUBNIVEL WHERE CodCategoria LIKE '" & DtaCategoria.Recordset.Fields("CodCategoria") & "' AND CodSubCategoria LIKE '" & DtaSubCategoria.Recordset.Fields("CodSubCategoria") & "' AND CodNivel LIKE '" & DtaNivel.Recordset.Fields("CodNivel") & "'ORDER BY Codigo" DtaSubNivel.Refresh NODX.Expanded = True Do While Not DtaSubNivel.Recordset.EOF CodCatePrc = DtaSubNivel.Recordset.Fields("CodCategoria") & "." & DtaSubNivel.Recordset.Fields("CodSubCategoria") & "." & DtaSubNivel.Recordset.Fields("CodNivel") & "." & DtaSubNivel.Recordset.Fields("CodSubNivel") VerTabulacao = DtaSubNivel.Recordset.Fields("subnivel") VerTtlPc For i = (Len(VerTabulacao) * 50) To (7344 - (Len(VlrCategoria) * 50)) VerTabulacao = VerTabulacao & "." i = i + 50 Next i Nome4 = DtaSubNivel.Recordset.Fields("CodCategoria") & "." & DtaSubNivel.Recordset.Fields("CodSubCategoria") & "." & DtaSubNivel.Recordset.Fields("CodNivel") & "." & DtaSubNivel.Recordset.Fields("CodSubNivel") & " - " & VerTabulacao & Format(VlrCategoria, "#,##0.00;(#,##0.00)") Set NODX = TrvPlano.Nodes.Add("Nivel" & ContNivel, tvwChild, "SubNivel" & ContSubNivel, Nome4) ', "Aberto") ContSubNivel = ContSubNivel + 1 DtaSubNivel.Recordset.MoveNext NODX.Expanded = True Loop ContNivel = ContNivel + 1 DtaNivel.Recordset.MoveNext Loop DtaSubCategoria.Recordset.MoveNext Loop DtaCategoria.Recordset.MoveNext Loop End Sub Ond eos laços são chamados de locais diferentes pelo fato da arvore jogar o inicio da palavra mais pra frente e como eu não consigo descobrir o left do node fiz desta forma com um pouco de calculo e rabiscos. rsrsrs bom o valor 50 é de 50 twps q equivalem aproximadamente há um caracter então ele faz o calculo do tamanho que o node.text possui e depois verifica até o tamanho limite q eu preciso menos o tamanho do vlrcategoria que é o valor q vai na frente do plano de conta. Foi assim q eu pensei q iria dar pra alinhar ele a direita mas ta complicado. Bem a outra função q passa o valor esta aqui a baixo. Public Sub VerTtlPc() On Error GoTo TRATAERRO criterio = Chr$(39) & CodCatePrc & "%" & Chr$(39) verifica_rs SQL = "select sum(valor) as TtlVlr from findetpc where DATABAIXA >=#" & Format(FrmDetPc.Ctxt(0).Text, "MM/DD/YYYY") & "#" SQL = SQL & " AND databaixa <= #" & Format(FrmDetPc.Ctxt(1).Text, "MM/DD/YYYY") & "#" SQL = SQL & " AND pc like " & criterio Rst.Open SQL, Cnn If Rst.BOF = True And Rst.EOF = True Then VlrCategoria = "0,00" Else VlrCategoria = Rst![ttlvlr] End If Rst.Close TRATAERRO: Select Case Err.Number Case Is = 0 Case Is = 94 VlrCategoria = "0,00" Resume Next Case Else MsgBox "Ocorreu um erro inexperado informe o código " & Err.Number & " - " & Err.Description & " ao administrador do sistema!", vbInformation, "Montar Valor" Exit Sub End Select End Sub há eu não achei aqui no forum como colocar um print mas joguei no 4shared quem quiser baixar pra ver como esta ficando, ou então deixa o email pra eu enviar! http://www.4shared.com/file/72074568/afa83...rified=43af34ac Sem mais, agradeço a atenção de todos,e Kuroi valeu pela ajuda. Abraços!

Ola pessoal é o seguinte montei um treeview e ficou legal, to imprimindo ele pelo objeto printer enfim ficou bem funcional todo ele, só tem um detalhe. neste treeview ele faz uma somatoria dos dados referente a cada linha e coloca na frente do nome o valor, por exemplo. Receitas - 12.000,00 o problema é que os itens de baixos ficam desalinhados eu queria verificar se tem uma forma de fazer uma função que verifique o um tamanho limite e alinhe o valor la no tamanho limite, tentei fazer alguma coisa só q fica desalinhado da mesma forma. olha o codigo que eu fiz. LblTam.Caption = VerTabulacao For i = LblTam.Width To 7650 VerTabulacao = VerTabulacao & "." i = i + 45 'Next onde lbltam é uma label só pra base de calculo, vertabulacao é um string que recebe o texto q vai no node o i recebe 45 prq 45 ó twip referente há um "." Ele completa e fica legal, só q a direita fica tudo desalinhado num fico ligal. Se algum puder me dar uma mão eu agradeço. Valeu!

E AI DR. SEGUINTE você PRECISA FAZER UM INNER JOIN. SÓ Q PARA O INNER JOIN FUNCIONAR você PRECISA DE UM CAMPO PARA RELACIONAR COM A OUTRA TABELA, POR EXEMPLO. TABELA1.CODIGO TABELA2.CODIGOTABELA1 SACA. AI A INSTRUÇÃO FICA MAIS OU MENOS ASSIM. SELECT T1.ORDEM, T1.CODIGO, T1.CREDOR, T2.CODIGO, T2.CODIGOTABELA1, T2.VALOR, T2.DOCUMENTO, T2.DATAPAGAMENTO FROM TABELA1 AS T INNER JOIN TABELA2 AS T2 ON T1.CODIGO = T2.CODIGOTABELA1 WHERE ..... MAIS OU MENOS ISTO AI! KLKER COISA POSTA O SQL AI Q A GENTE DA UMA MÃO! ABRAÇOS!

Mole mole, moçada! foi só pesquisar um pouco e prestar atenção no q eu estava escrevendo! Olha aí pra quem interessar... Sql = "SELECT p.codigo,p.nome, p.codtip, p.codforn, p.marca, p.valor, t.codigo, t.nome, f.codigo, f.nome" Sql = Sql & " FROM (produto as p INNER JOIN tipoproduto as t ON p.codtip = t.codigo) INNER JOIN fornecedor as f ON p.codforn = f.codigo" Sql = Sql & " order by t.nome, f.nome, p.nome" este sql eu abro em um data, ou num recordset normalmente, sem problemas! pra quem tenha interesse abraços!

Olá pessoal, seguinte escrevi esta instrução sql no sql server. SELECT P.CODIGO, P.NOME, P.MARCA, P.VALOR, T.CODIGO, T.NOME, F.CODIGO, F.NOME FROM PRODUTO AS P INNER JOIN TIPOPRODUTO AS T ON P.CODTIP = T.CODIGO INNER JOIN FORNECEDOR AS F ON P.CODFORN = F.CODIGO ORDER BY T.NOME, F.NOME, P.NOME beleza rodou legal, ai fui passar ela pro vb, ficou assim Sql = "SELECT P.CODIGO, P.NOME, P.CODTIP, P.CODFORN, P.MARCA, P.VALOR, T.CODIGO, T.NOME, F.CODIGO, F.NOME " Sql = Sql & " FROM PRODUTO AS P INNER JOIN TIPOPRODUTO AS T ON (P.CODTIP = T.CODIGO) " Sql = Sql & " INNER JOIN FORNECEDOR AS F ON (P.CODFORN = F.CODIGO) " Sql = Sql & " ORDER BY T.NOME, F.NOME, P.NOME" cara não roda, da erro de sintaxe operador faltando, alguém esta vendo o q eu não estou conseguindo ver.... Valeu

E ai pessoal, terminei um projeto, e gostaria de saber uma dica de vocês, como disponibiliza-lo para o cliente, aqui resolvi não disponibiliza-lo na internet pra download, mas estou enviando demo para os clientes que desejam, e tambem tenho a versão normal que é enviado atraves de link para download. Bom a questão é o seguinte: Aqui na minha cidade quando instalo o software, eu escolho uma maquina no cliente, e denomino ela como servidor. beleza o programa é instalado e roda a partir desta maquina, ele faz a conexão com o banco de dados (access). nas outras maquinas eu instalo o programa só q apago a pasta do programa e puxo um atalho daquela maquina denominada servidor para esta maquina, pronto o programa ta funcionando em rede legal! Agora nós estamos partindo pra outras cidades, como faço para mandar o executavel fazer isto sozinho, sem ter muita interferencia do usuario, ou é melhor mudar o codigo do programa. Alguma dica. outra coisa, alguém pode me dizer qual a melhor maneira de treinar o pessoal, video aulas, acesso remoto (se for acesso remoto, vocês podem me indicar um tutorial de como fazer isto da forma mais facil) Bom Ultimamente eu trabalho com o logmein, mas queria um q não tivesse muita interferencia do usuario, ouvi falar do vnc, que você mandava um executavel por email mesmo para o cliente, ele dava dois cliques fazia uma configuração simples pra caramba e pronto o cara já estava acessando remotamente a maquina., vocês sabem disto! Bom se alguém puder me ajudar fico agradecido! Abraços a todos

Ai pessoal antes de mais nada quero agradecer ao AMA do forum do vbweb, q me deu uma mãozinha na solução. Seguinte, foi só tirar a expressão OPTION EXPLICT do inicio da escrita e pronto meu programa voltou ao normal, graças a deus, ufa! rsrsrsrs Taí desde já obrigado a todos q passaram por aqui!

Olha só pessoal, meu programa tava rodando perfeitamente! Mil maravilhas, até que eu fui fazer uma graça! Quiz coloca rum código q achei na net que faz alterar o formato da data do micro. Até ai beleza! O problema é q ele começou a pedir pra declarar variaveis q antes eu não declarava por exemplo em todos meus programas, veja bem eu disse todos, eu nunca declarei o I para laços Sempre fiz for i = 0 to 10 e pronto Ta me pedindo pra declarar, até ai beleza, se eu for la em alguma module e declarar ele como i as integer ele roda normal, beleza o problema é que eu tambem utilizo sql tipo Set Atualiza = Workspaces(0).OpenDatabase(banco) só q agora ele me da erro da variavel atualiza beleza fui la e declarei atualiza as recordset beleza só q o vb não sastifeito me deu um erro na instrução sql posterior a este atualiza não aceitando o valor de um data (objeto) que eu tenho lá o codigo é este Set Atualiza = Workspaces(0).OpenDatabase(banco) Atualiza.Execute "UPDATE receber SET receber.vlrdoc ='" & Ctxt(17).Text & "'WHERE codfin like '" & DtaPlan.Recordset.Fields("codigo") & "' and baixa like '" & 0 & "'" Atualiza.Execute "UPDATE receber SET receber.vlrparc ='" & Ctxt(17).Text & "'WHERE codfin like '" & DtaPlan.Recordset.Fields("codigo") & "'and baixa like '" & 0 & "'" Atualiza.Execute "UPDATE receber SET receber.dtavenc ='" & Ctxt(19).Text & "'WHERE codfin like '" & DtaPlan.Recordset.Fields("codigo") & "'and baixa like '" & 0 & "'" Na verdade ele fala a seguinte mensagem Compile error: Method or data member not found e acusa o erro la no dtaplan.recordset.fields no "fields" Eu nunca vi isto, e não tenho a minima ideia de como corrigir, alguém sabe me dizer o q ocasiona isto. Obs, a module q eu havia colocado no programa pra verificar a data trabalhava com apis. O programa esta instalado e funcionando perfeitamente no cliente, foi em atualização q estou fazendo que deu problema e estes códigos q passei estão funcionando perfeitamente lá! Bom se alguém puder me ajudar fico muito grato! Até mais!

cara antes de mais nada, quero agradecer a ajuda de todos que passaram por aqui, principalmente do brother Kuroi, valeu mesmo! Conforme tinha dito, esta instrução sql vai ser usado no visual basic então utilizei ferramentas do vb mesmo e ficou assim public rst as new adodb.recordset public rsant as new adodb.recordset Sql = "select TOP 1 * from RCQ where idade like '" & RefIdade & "' AND SEXO LIKE '" & frmCliente.CmbSexo.Text & "' " Sql = Sql & " and resultado >= '" & Ctxt(15).Text & "' ORDER BY RESULTADO ASC" Rst.Open Sql, Cnn If Rst.BOF = True And Rst.EOF = True Then Sql = "select TOP 1 * from RCQ where idade like '" & RefIdade & "' AND SEXO LIKE '" & frmCliente.CmbSexo.Text & "' " Sql = Sql & " and resultado <= '" & Ctxt(15).Text & "' ORDER BY RESULTADO desc" RsAnt.Open Sql, Cnn Ctxt(16).Text = RsAnt.Fields("classificacao") RsAnt.Close Else Ctxt(16).Text = Rst.Fields("classificacao") End If Rst.Close Então no primeiro sql eu vejo todos os valore maiores que o retornado na ctxt(15).text e quando ele não me retornar nada, pelo fato da ctxt(15).text ser maior q os valores da tabela, ele ira entrar num outro sql e abre outra conexão só q da forma contraria do outro procurando o menor e o order desc ai eu consigo coim precisaão os valores que busco na tabela... tai a dica caso alguém precise um dia! Sem mais, muito obrigado a todos!

Kuroi valeu pela tentativa, mas é indiferente esta alteração, há questão é q no sql eu estou mandando ele procurar o maior depois daquele valor, porem quando eu coloco o valor maior que o q existe na tabela, ele não me retorna nada prq não possui um valor maior que aquele! Esta é a questão. eu estou estudando a possibilidade de escrever um sql com uma busca por valores aproximados, por exemplo se for 0,81 ele buscar o mais proximo com preferencia sempre pro valor maior , quando não houver maior ele busca o menor proximo a ele. Ou então estou estudando uma forma de digitar um sql dentro de outro sql, senão vou fazer abrir dois rs um em cima dos valores do outro rs. Só pra lembrar os campos idade e resultado são textos, fiz isto com intuito de poder pesquisar qualquer valor dentro do campo. Bom de klker forma obrigado pela ajuda!