Localizar registro pela listbox

Boa tarde!

Estou tendo um probleminhas referente a localizacao de registros.

No form tho uma lixtbox chamada 'cboPesquisa' e um controle de guias onde cada guia contem dados de tabelas distintas que estao relacionadas pela chave 'matricula'.

Ex: tblFuncionarios está vinculada com tblFuncionariosDocumentacao, tblFuncionariosProfissional, tblFuncionariosResidencial e tblFuncionariosComplemento.

Gostaria que, ao selecionar um nome na listxob 'cboPesquisa', o access retornasse o cadastro da pessoa selecionada.

Estou utilizando um código, porém ele só retorna os dados da tblFuncionarios, e as outras guias ficam com o erro #Nome?

Eis o código:


Dim a As String
Dim strSQl As String
strSQl = "SELECT * FROM tblFuncionarios WHERE matricula=" & cboPesquisa & ""
Me.Form.RecordSource = strSQl

Boa tarde,
Se se trata de caixa de listagem, nomeie por LstPesquisa. No controlo que tem Matricula como origem, coloque a origem como MatriculaFuncionario
Me.Form.RecordSource = "SELECT tblFuncionarios.matricula as MatriculaFuncionario,* FROM ((tblFuncionarios LEFT JOIN tblFuncionariosDocumentacao ON tblFuncionarios.Matricula=tblFuncionariosDocumentacao.Matricula) LEFT JOIN tblFuncionariosProfissional ON tblFuncionarios.Matricula=tblFuncionariosProfissional.Matricula) LEFT JOIN tblFuncionariosResidencial ON tblFuncionarios.Matricula=tblFuncionariosResidencial.Matricula WHERE tblFuncionarios.matricula=" & cboPesquisa

Boas Neves... não funfou!!

Crie uma consulta, em modo SQL, e vá apurando o resultado. Quando funcionar, passe para o formulário
Experimente com número de matrícula existente (utilizei o 1)
SELECT tblFuncionarios.matricula as MatriculaFuncionario,* FROM ((tblFuncionarios LEFT JOIN tblFuncionariosDocumentacao ON tblFuncionarios.Matricula=tblFuncionariosDocumentacao.Matricula) LEFT JOIN tblFuncionariosProfissional ON tblFuncionarios.Matricula=tblFuncionariosProfissional.Matricula) LEFT JOIN tblFuncionariosResidencial ON tblFuncionarios.Matricula=tblFuncionariosResidencial.Matricula WHERE tblFuncionarios.matricula=1

Alterei para comboBox, mas ainda não consigo de jeito nenhum fazer com que, ao selecionar um dos nomes da cbo, o access localize o registro e o retorne nas guias, pois cada guia esta ligada a uma tabela e ambas tabelas estao relacioandas pela chave primária 'matricula'


Preciso de uma luz!!! rs

Boa tarde,
Criou a consulta em SQL? Funcionou?

Não funfa!

Preciso de um código VBA que faça isso...

Boa tarde,
Disponibilize a bd e indicações o que/como/onde pretende

Meu BD tá pesado.. não é possível enviar..

O que preciso é de um código que, ao selecionar um nome na combobox 'cboPesquisa', o sistema localize o registro e retorne os dados do cliente selecionado.

Boa tarde,

Com a permissão dos colegas que estão a ajudar.

Tente esse comando, veja se lhe atende. Se for uma Combox, evento após atualizar.

DoCmd.ApplyFilter , "idcliente = " & Me!cbocliente.Column(0)
Me!cbocliente = Null

idcliente-->chave primária
cbocliente-->sua combox de pesquisa

Abraços.

Não funfou!

Podes postar o código que esta em tua combox ?

If Not IsNull(Me.cboPesquisa) Then
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[matricula] = " & Str(Me![cboPesquisa])
Me.Bookmark = rs.Bookmark
Set rs = Nothing
End If

Alguém pode me ajudar?

O campo "matricula", está em texto na tabela ?

O campo "matricula", está em que coluna na sua combobox, na (0) na (1) ou .... ?

Perguntas basicas, que fazem toda a diferença...


Se texto e está na primeira coluna:

Private Sub SeuBotao_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone

    If Not IsNull(Me.cboPesquisa.Value) Then
        rs.FindFirst "[matricula] = '" & Me.cboPesquisa.Column(0) & "'"
        If Not rs.EOF Then Me.Bookmark = rs.Bookmark
        Else
    Exit Sub
    End If

Set rs = Nothing
End Sub

Blz JPaulo!

Por isso que gosto de vc e do criquio, vcs vão direto ao ponto!

Infelizmente muitos (moderadores) perdem tempo dando respostas mal educadas, fazendo comentários infelizes e grotescos, tempo esse que poderia ser utilizado para solucionar o problema ou pelo menos ajudar a solucionar.

Sei que o fórum é para ajudarmos uns aos outros voluntariamente, mas do meu ponto de vista, alguns moderadores deveriam ser mais educados e cordiais, pois um dia já foram leigos no assunto.

Abraços a vc e muito, muito obrigado pelas ajudas prestadas desde o início.

Que sirva de exemplo aos demais.

*Vou tentar esse código e qqr coisa retorno..

Apliquei o cod, mas não funfa! Diz: "Nenhum registro atual"


If Not IsNull(Me.cboPesquisa) Then
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[matricula] = " & Str(Me![cboPesquisa])
Me.Bookmark = rs.Bookmark
Set rs = Nothing
End If

Veja a mensagem Nº15 e faça os testes.

Pois eh..

matricula está como texto e na coluna 0, mas a coluna 0 está oculta.. coloquei para aparecer os nomes e as pessoas selecionarem pelo nome, mas quando seleciono n acontece nada!

Bruno bom dia;

Cole aqui toda a instrução que você está a usar e em que evento VBA.

Private Sub cboPesquisa_AfterUpdate()

Dim rs As Object
Set rs = Me.Recordset.Clone

If Not IsNull(Me.cboPesquisa.Value) Then
rs.FindFirst "[matricula] = '" & Me.cboPesquisa.Column(0) & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
Exit Sub
End If

Set rs = Nothing

If Me.statusFuncionario = "Pendenciado" Then
Me!guias.Enabled = True
Me!cmdPendenciar.Enabled = False
Me!cmdCancelar.Enabled = False
Me!cmdConcluir.Enabled = True
Me!cboPesquisa.Enabled = True
Me!cmdNovo.Enabled = True
Me!cmdExcluir.Enabled = True
Me!cmdEnviar.Enabled = True
Me!cmdFechar.Enabled = True
Me.nomeFuncionario.SetFocus
Me.cboPesquisa = ""
ElseIf Me.statusFuncionario = "Concluido" Then
Me!guias.Enabled = False
Me!cmdPendenciar.Enabled = False
Me!cmdCancelar.Enabled = False
Me!cmdConcluir.Enabled = False
Me!cboPesquisa.Enabled = True
Me!cmdNovo.Enabled = True
Me!cmdExcluir.Enabled = True
Me!cmdEnviar.Enabled = True
Me!cmdFechar.Enabled = True
Me.cmdEnviar.SetFocus
Me.cboPesquisa = ""
If msgbox("Cadastro pendente de aprovação. Deseja enviá-lo agora?", vbQuestion + vbYesNo, " Confirmação") = vbYes Then
Me.statusFuncionario = "Pendente"
Me!cboPesquisa.Enabled = True
Me!cmdNovo.Enabled = True
Me!cmdExcluir.Enabled = True
Me!cmdEnviar.Enabled = True
Me!cmdFechar.Enabled = True
Me!cmdCancelar.Enabled = False
Me!cmdPendenciar.Enabled = False
Me!cmdConcluir.Enabled = False
Me.cmdNovo.SetFocus
Me!guias.Enabled = False
DoCmd.GoToRecord , , acNewRec
msgbox "Cadastro enviado para análise!", vbInformation, " Sispac"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
DoCmd.OpenForm "incluiFuncionarios"
Else
DoCmd.CancelEvent
Me.cmdEnviar.SetFocus
End If
End If

End Sub

Ae galera!

Alguém pode e dar uma força nesa parte.. é que to emperrado no sistema por causa disso..

Abraços!

Ajudo sim, mas para isso necessito de entender o que pretende.

De todo o trecho de código ae postado, só entendi a parte que alterei, todo o resto não entendi nada de nada.

Boa tarde....

Não seria melhor postar a parte desse projeto ? Sem dados algum dentro dele....ou com alguns dados fictícios de exemplos ?

Abraços...

Meu BD tá mais pesado que o Ronaldo fenômeno..

JPaulo, vamos esquecer td e começar do zero entao rs..

Tenho uma combobox chamada cboPesquisa e preciso que após atualizá-la, o sistema localize o registro selecionado nela na tabela 'tblFuncionarios'

*Na combo tem 3 colunas sendo duas delas ocultas:

matricula - nomeSobrenome - status

matricula: chave primária / coluna oculta
nomeSobrenome: coluna visível onde o usuário irá selecionar a pessoa pelo nome
status: coluna oculta

Apenas uma sugestão.

Dim rs As Object
Set rs = Me.Recordset.Clone
If Not IsNull(Me.cbopesquisa.Value) Then
rs.FindFirst "[matricula] = " & Str(Nz(Me![cbopesquisa], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Else
Exit Sub
Set rs = Nothing
Me.cbopesquisa = Null

Funciona!!!

Mas se eu fechar e abrir o form, deixa de funcionar...

O que eu faço?

Vcs têm ideia do que seja?

Bom dia!

Segue BD para avaliação..

Alguém pode me ajudar!

Bom dia!
Amigo veja se este banco de dados pode te ajudar a te dar uma luz!

Teste 1: Formulário unico e Combobox
Teste 2: Formulário com Subformulários e Listbox

Abraços!

Cara, funcionou sim!!!

Só faltou um detalhe.. a como pode ver no anexo dentro do form existem guias e cada guia está vinculada a uma tabela, tabelas que estão relacionadas entre si pela chave primaria "matricula"..

Dai qdo seleciono na combo ele faz o filtro somente da tblFuncionarios...

Copia e cola os códigos e só troca o nome do campo, como o Form1 ou Form2 para o nome do campo que deseja amigo, é simples, se você também desejar mudar a SQL para filtrar outros dado também pode fazer, não estou no trabalho agora por isso nao pude fazer algo para te mostrar, mas é simples fazer!

abraços!

Bom dia meu amigo dhtm15!

Quando puder, se puder, me manda um exemplo ou código.. não é preguiça, mas sim pouco conhecimento msm..

Abraços!

Alguém sabe como posso proceder mediante os dois últimos posts..

Abraço!

Bom dia!
Até tinha esquecido este tópico, mas voltando ao assunto.
Amigo até ajudaria você neste seu banco de dados, mas está muito confuso esse seu banco, até quando vai compilar os códigos geram erros atrás de erros, não tem como te ajudar neste ponto.

Você está usando recordset para carregar este seu formulário? juro que não entendi quase nada do seu form, eu teria que estudar muito para entender é por isso que nossos mestres ficam sempre com pé atrás ou até mesmo não tem tempo de solucionar o seu problema, então vamos ser mais específico em sua solução, vou tentar te ensinar o que você está precisando no seu banco de dados, então me explica com detalhes o que você precisa e eu vou te dar as ferramentas para você prosseguir com suas idéias!

Antes de eu abranger as coisas, me especifica indicando onde está, e o que fazer.

- Tipo de conexão: Recordset? SQL? Local?
- O que aplicar
- Qual campo proceder
- O que é esperado

Boa tarde!

Vamos esquecer tudo!

No meu formulário tenho um controle de guias com 5 guias (g1, g2, g3, g4, g5) e uma combo nao acoplada chamada cboPesquisa

Cada guia tem vários campos e está ligada a uma tabela

As 5 tabelas (referente as 5 guias) estão relaciodas pela chave primária 'matricula'

A cboPesquisa contém duas colunas: matricula e nome, sendo que a coluna 'matricula' está oculta para nao aparecer na listagem

Preciso que, após atualizar a cboPesquisa, o sistema traga os dados do funcionário selecionado, porém o código abaixo:

On Error Resume Next
Me.Form.RecordSource = "SELECT * FROM tblFuncionarios WHERE matricula= " & Me.cboPesquisa.Column(0) & ";"

só atualiza a guia dos dados pessoais, nas outras guias os campos ficam com o erro #Nome?

Tentei copiar o cod e colar abaixo nomeando com o nome das outras tabelas mas não funfou da seguinte maneira:

Me.Form.RecordSource = "SELECT * FROM tblFuncionarios WHERE matricula= " & Me.cboPesquisa.Column(0) & ";"
Me.Form.RecordSource = "SELECT * FROM tblFuncionariosResidencial WHERE matricula= " & Me.cboPesquisa.Column(0) & ";"
Me.Form.RecordSource = "SELECT * FROM tblFuncionariosDocumentacao WHERE matricula= " & Me.cboPesquisa.Column(0) & ";"
Me.Form.RecordSource = "SELECT * FROM tblFuncionariosProfissional WHERE matricula= " & Me.cboPesquisa.Column(0) & ";"
Me.Form.RecordSource = "SELECT * FROM tblFuncionariosUsuario WHERE matricula= " & Me.cboPesquisa.Column(0) & ";"

Amigo veja se isso ajuda agora, estou usando Recordset que acho muito mais rápido e viável.