criação de formulário de consulta lista

Pessoal , sou meio leigo em VBA access , necessito de uma ajuda , tenho uma tabela contábil  onde queria listar todos os dados da tabela mediante a consulta nos seguintes campos "conta debito" e "conta credito"

Para isto precisaria de uma chave  de seleção para uma conta ou mais de uma .

Por exemplo tenho uma conta codigo 5087 fornecedores de serviço , gostaria de listar todos os registro envolvidos tanto a débito quanto a credito  no BD

Tambem gostaria de fazer esta consulta individual ou multipla  exemplo selecionar a conta 5087 "unica" ou "5086 , 5087 ...." multiplas .

 Desde já agradeço a ajuda

Olá

Veja se isso lhe ajuda amigo.

O que fiz foi criar um form, um campo que dei o nome de (txt_buscar)
                                       um caixa de listagem que dei o nome de (listateste)
                                       um botão que dei o nome de (Btbuscar)

Depois nas propriedades do Botão no evento Ao Clicar (usando construtor de código) coloquei esse código:

                  Private Sub BtBuscar_Click()
Dim sql As String

If IsNull(txt_buscar.Value) Or txt_buscar.Value = "" Then

 
   listateste.RowSource = "SELECT LANC, DIA, CONTADEBITO, CONTA, DESCRICAO, DOC, HISTORICOECOMPLEMENTO, VALOR, MES, ANO, LOCAL, CONTACREDITO, CONTACP, DESCRICAOCP From bd_exemplo"
Else
   listateste.RowSource = "SELECT LANC, DIA, CONTADEBITO, CONTA, DESCRICAO, DOC, HISTORICOECOMPLEMENTO, VALOR, MES, ANO, LOCAL, CONTACREDITO, CONTACP, DESCRICAOCP FROM bd_exemplo WHERE CONTADEBITO like '*" & txt_buscar.Value & "*'"

End If

Me.listateste.Visible = True

End Sub


...............

O código é bem simples e fácil de ser alterado conforme a sua necessidade.

Veja se lhe ajuda e retorne. Abraços

Amigo , muito obrigado pela força .. gostaria de saber se podemos acrescentar a opção de pesquisa para qualquer parte da lista também , esta opção ficou ótima mas eventualmente terei que fazer a pesquisa tando a débito quanto a crédito .

Também se possível gostaria de uma opção para enviar para o excel e imprimir direto do formulário .. é possível ?

Abraço .. e muito obrigado pela força .

Att Edu

Amigo , também gostaria de acrescentar nesta consulta as opções de seleção de "ANO" ESPECIFICO OU TODOS "MES" ESPECIFICO OU TODOS "LOCAL" ESPECIFICO OU TODOS .

Sua opção de criação de código para consulta foi ótima , eu não consigo amarrar varias opções de parâmetro em uma só . não tenho ideia de como fazer com que a consulta conta débito ou crédito ou todas , amarrar aos parâmetros adicionais como consulta ano especifico ou todos , mês especifico ou todos , local especifico ou todos .fora o fato de imprimir do próprio formulário e mandar para o excel .


Desde já agradeço muito .

Abraço
Edu.

Boa noite,
respeitem as regras
Mantenham o título e não escrevam em maiúsculas

Alexandre , perdoa-me ... as letras maiúsculas foram descuido ... não haverá proxima

att. Eduardo

Olá Edu,

Tomei a liberdade de pegar o seu projeto e criar um novo form de pesquisa de dados, com todos os campos da tabela e criterios possiveis.
Esse form também possui a finalidade de exportar o resultado da consulta para o Excel.

Espero que goste. Divirta-se

Bom dia

Alexandre , Muito obrigado pela força ...testei aqui e no campo não contem lista, e nem no critério

Existe alguma configuração para fazer ?

Att

Edu

Edu,

Vc precisa habilitar o conteúdo de segurança. Apos isso, feche o sistema e abra novamente e então vc conseguirá usar as funcionalidades do sistema.
Segue link.
https://support.office.com/pt-br/article/Habilitar-ou-desabilitar-macros-em-arquivos-do-Office-12b036fd-d140-4e74-b45e-16fed1a7e5c6

Abs

Bom dia Alexandre

Mas uma vez muito obrigado !!!

Ficou ótimo , fiz um teste com seleção da CONTADEBITO 5087 , trouxe as informações conforme solicitado , mas gostaria de saber se é possível fazer a consulta neste formulário da seguinte forma :


Quando fazer a pesquisa de alguma conta no exemplo acima 5087 o resultado retorne todas as movimentações de CONTADEBITO e CONTACREDITO da 5087.

Neste exemplo ficou perfeito porem consigo somente ou um critério ou outro .




Att
Edu