Ir para conteúdo
Fórum Script Brasil

ViniciusSantos

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre ViniciusSantos

ViniciusSantos's Achievements

0

Reputação

  1. Boa tarde a todos. Sou iniciante em programação e dentre minhas possibilidades encontrei um determinado erro que infelizmente não consegui a solução ainda! Estou desenvolvendo um programa simples para controle de registros de documentos Dentre as funções do programa em um determinado momento eu preciso gerar um relatorio dos documentos que estão em determinados locais chamados de PDD Cada PDD é uma coluna no access! o mesmo programa foi desenvolvido em excel e funciona perfeitamente. porem de momento surgiu tal necessidade! O comando abaixo mostra o que esta sendo feito e gerando o erro! Daria certo se eu trocasse o ( rs.Open "Select *from Base where pdd='X'", db, 3, 3) por rs.Open "Select *from Base where PDD_02='X' ", db, 3, 3 porem não é viavel tendo em vista que existem 60 pontos Sub PesquisaPDD() ListView2.ListItems.Clear Dim pdd As Variant pdd = Form1.cmbpdd.Text Call ConectaDB rs.Open "Select *from Base where pdd='X'", db, 3, 3 Do Until rs.EOF Set Item = ListView2.ListItems.Add(, , rs!Codigo) Item.SubItems(1) = "" & rs(2) Item.SubItems(2) = "" & rs(3) Item.SubItems(3) = "" & rs(4) Item.SubItems(4) = "" & rs(5) rs.MoveNext Loop Call FecharDB End Sub
×
×
  • Criar Novo...