Jump to content

alnasciment

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About alnasciment

  1. Pessoal, estou tentando atualizar o campo class_fiscal da tabela custitem onde tento fazer uma busca na tabela import e trazer apenas o campo clas_datas. Preciso puxar da tabela import o campo clas_datas para a tabela custitem, porem na tabela custitem ja tenho cadastrado o codigo e descrição preciso buscar na tabela import e trazer a classificação referente a este codigo ja cadastrado, porem conforme abaixo ele executa apenas o primeiro registro, e não atualiza os demais. o que esta errado ? Set Custitem = vgDb(QualDb("DADOS")).OpenRecordSet("Custitem", dbOpenTable) Set Import = vgDb(QualDb("DADOS")).OpenRecordSet("Import", dbOpenTable) 'Processos pré-definidos Set Custitem = vgDb(QualDb("DADOS")).OpenRecordSet("SELECT * FROM Custitem WHERE Coditem = '" & Import!Cod_import & "' ORDER BY Coditem", dbOpenDynaset) If Custitem.RecordCount > 0 Then Custitem.MoveFirst vgNVez = 0 Do While Not Custitem.EOF If Not PTab(Import, "DADOS.Cod_import", Custitem!Coditem) Then MsgBox "Import não cadastrado", vbCritical, vgAtencao Error 65524 End If Custitem.Edit Custitem!Class_fiscal = (Import!Clas_datas) Custitem.Update Custitem.BookMark = Custitem.LastModified Custitem.MoveNext Loop End If CommitTrans GoTo SaiDaSub
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.