[Resolvido]Abrir uma Consulta com filtro através de um caixa de texto no Formulário.

Boa Tarde!

Sou novo aqui, não bem se este é o topico correto, mas é que estou precisando criar um formulário tipo folha de dados onde quando clico duas vezes no campo "Funcionarios" possa carregar uma Consulta com os dados deste funcionário.

Desde já agradeço.

Boa tarde celio, seja bem vindo ao fórum

No evento após atualizar da sua combo, supondo que a coluna de número 0 seja o campo da chave primária

Dim intFunc as integer
Sim StrSQL as string

IntFunc = Me.SuaCombo.column(0)

StrSQL = "SELECT * FROM Sua tabela WHERE CampoDaChavePrimária = " & IntFunc & ""


Me.SeuFormulario.RowSource = StrSQL


Cumprimentos.

Piloto, boa tarde!

Testei os código, porém quando chaga na linha "IntFunc = Me.SuaCombo.column(0)

" ocorre o seguinte erro: "Erro de compilação: Método ou membro de dados não encontrado."

Célio, tudo bem.

Você pode criar um formulário "Contínuo", formato de tabela, dê o nome de Lista de Funcionários

No campo ex.: idFuncionario, vá em Propriedades e na aba evento, selecione Ao Clicar Duas Vezes, coloque o seguinte código VBA:

Private Sub idFuncionario_DblClick(Cancel As Integer)
On Error Resume Next

DoCmd.OpenForm "Funcionarios", acNormal, , "[idFuncionario]=" & Me.idFuncionario, acFormReadOnly

End Sub

*Você ao clicar duas vezes no campo idFuncionario do Formulário "Lista de Funcionários" estará abrindo no modo somente para visualização (acFormReadOnly) o cadastro do respectivo Funcionário, você tem outras opções, tipo: adição ou alteração de dados.

Ok. Espero ter colaborado.

Romi Duarte

Claro... Não existe o objeto de nome SuaCombo no formulário..

Quando coloco SuaCombo é para que sunstitua o nome SuaCombo pelo Nome da sua caixa de combinação.

A solução do colega acima também é viável.

Escolha a que melhor lhe convier.

Cumprimentos.

Bom Dia!

Problema resolvido, obrigado Piloto e Romi Duarte pela solução apresentada. Desculpe pela inexperiencia a gente vai aprendendo a cada dia um pouco.  

Tranquilo Amigão.. Só falou clicar no Joinha da mensagem que o auxiliou.

Cumprimentos.

Bom dia, Célio.

Importante é ter ajudado.

Saudações.

O Fórum agradece o Retorno.