[Resolvido]Acessar registro com duplo clique na caixa de pesquisa/listagem.

criei um formulario com caixa de listagem para localizar os registros no meu DB, porem eu queria que ao localizar o registro eu pudesse dar dois cliques no Registro encontrado e ele ja fosse para a área de cadastro do mesmo.

Alguem:?:  

Boa tarde, e bem-vindo ao fórum
Com uma pergunta tão genérica é difícil explicar os passos
Disponibilize a bd, mesmo com dados fictícios para preservar a confidencialidade

olá alexandre. obrigado.

fiz um pequeno BD aqui para exemplo... ela contem o formCadastro e o Frm-Pesquisa.
ao fazer uma pesquisa em Frm-pesquisa ele vai localizar os registro do formCadastro, eu queria dar dois cliques e ir para o cadastro do registro que eu cliquei.

Boa noite senhores, Alexandre com sua permissão vou deixar em anexo um exemplo que fiz

pelo que entendi a necessidade do colega.

Código:

Private Sub Lista0_DblClick(Cancel As Integer)
On Error Resume Next
 Dim stDocName As String
  Dim stLinkCriteria As String
    stDocName = "SeuFormCadastro"
     stLinkCriteria = "[CampoId]=" & Me![Lista0]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
  DoCmd.Close acForm, ("SeuFormPesquisa"), acSavePrompt
End Sub

Obrigado Fernando.

Mas estou com um Problema: o codigo no seu BD está funcionando mas no meu quando passo para ele, algo dá errado: abre o FormCadastro porem vazio.

Private Sub Lista0_DblClick(Cancel As Integer)                         (onde "Lista0" seria o Nome da minha caixa de listagem)
On Error Resume Next
Dim stDocName As String
 Dim stLinkCriteria As String
   stDocName = "SeuFormCadastro"                                       (Onde "SeuFormCadastro" seria= o nome do meu FrmCadastro)
    stLinkCriteria = "[CampoId]=" & Me![Lista0]                         (Onde "CampoId" seria= o nome Código?)
   DoCmd.OpenForm stDocName, , , stLinkCriteria
 DoCmd.Close acForm, ("SeuFormPesquisa"), acSavePrompt            (Onde "SeuFormPesquisa" seria= o nome do meu form de Pesquisa)
End Sub

                                                                            FICANDO ASSIM:


Private Sub ListNome_DblClick(Cancel As Integer)
On Error Resume Next
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAlunos"
   stLinkCriteria = "[Código]=" & Me![ListNome]
   DoCmd.OpenForm stDocName, , , stLinkCriteria
   DoCmd.Close acForm, ("FormPesquisa"), acSavePrompt
End Sub






                                   “Algo só é impossível até que alguém duvide e resolva provar ao contrário.” – Albert Einstein"

Angelo

Veja:

stLinkCriteria = "[Código]=" & Me![ListNome]


Se a primeira coluna for o código do cliente então ficará assim:

tLinkCriteria = "[Código]=" & Me![ListNome].Column(0)

Acrescente a parte em azul.


Abraços

Noob

Ok, só seguir os passos do amigo Noob..

Se não conseguir poste o banco para vermos isso ok.

valeu a atenção, mas infelizmente o comando .Column(0) não fez efeito algum, joguei ele no BD que o Fernando Bueno passou porem tbm nenhum efeito.

obs: o codigo que o Fernando Bueno usou, funcionou no DB dele sem o .Columm(0).

Angelus, como esta seu campo codigo na tabela? Numeração automatica?

Fernando Bueno ela está automatica.

O correto seria funcionar o codigo que te passei.

tente com sql

Código:

On Error Resume Next
  Dim stDocName As String
  Dim stLinkCriteria As String
  Dim strSQL As String
    stDocName = "Frm_Exemplo"
    stLinkCriteria = "[Código]=" & Me![Lista0]
    strSQL = "SELECT * FROM Tbl_Exemplo WHERE " & stLinkCriteria
    DoCmd.OpenForm stDocName, acNormal, , , , acHidden
    Forms!Frm_Exemplo.RecordSource = strSQL
    DoCmd.OpenForm stDocName, acNormal, , , , acWindowNormal

Fernando desta vez abriu mas foi para o primeiro registro.


Seue em anexo o DB que criei para testar esses coodigos.

Anexe novamente amigo não veio dessa vez..

Clique em escolher arquivo depois em enviar ao lado, aguarde carregar seu bd e envie a

mensagem.

Vale lembrar que tem que ser em formato zip ok.

Ok, veremos o que se passa no banco.

Tive que refazer mudar a origem da linha na caixa de listagem, veja agora..

Código:

Private Sub Lista0_DblClick(Cancel As Integer)
On Error Resume Next
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FormCadastro"
    stLinkCriteria = "[Código]=" & Me![Lista0]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, ("frm-pesquisa"), acSavePrompt
End Sub

agora está funcionando mas oque exatamento estava faltando Fernando?

o codigo estava certo?
porem oque faltava?

Bem a principio minha alternativa foi refazer a origem da linha porem analisando

agora seu banco com mais calma o erro estava no numero de colunas acopladas,

estava 7 o correto seria 1

o codigo sempre esteve certo então fernando?

o erro era apenas o numero de colunas?!

Correto, o erro era esse!

Fernando caso tenha algum material de Access poderia me enviar?

sou novo na area e queria algum material.

-------------------Agradeço a ajuda-------------

Entendo, navegue no forum que tem muita coisa boa aqui e com certeza ira aprimorar

seus conhecimentos, aprendi muito aqui e aprendo ate hoje!!

Olhe nessa sala.

http://maximoaccess.forumeiros.com/f2-repositorio-de-tutoriais-apostilas

Se foi resolvida a duvida quando for responder novamente clique no botão Resolvido

para finalizar o topico

Quando precisar estamos ai ok, bons estudos!

-------------------------------------------
Abraço valeu pela ajuda fernando















“Algo só é impossível até que alguém duvide e resolva provar ao contrário.” – Albert Einstein”

Por nada amigo, agradecemos o retorno.