[Resolvido]Duplo click em uma caixa de texto e visualizar a descrição do código

Galera, minha primeira vez aqui!

Estou com um formulário, onde tenho várias caixas de combinação e de texto, tenho a seguinte situação:

Tenho que fazer um lançamento de código de Falha da máquina de produção de peças a cada hora, até ai beleza, criei um Form principal onde coloquei um botão que chama outro form com a lista de falhas filtrada por categoria, ai quando clico na falha ela auto preenche numa caixa de texto do Form principal, Porém eu queria no Form principal, poder clicar nesta caixa de texto com o código e visualizar a descrição do código de falha.

Não estou conseguindo fazer..

Alguém pode me ajudar?

Seja bem vindo ao fórum!

Amigo, apenas com a descrição ficou um pouco complicado entender...

Mas vamos fazer o seguinte: Poste seu Aplicativo que dou uma olhada e vejo o que posso fazer... Se achar melhor, pode montar apenas a parte envolvida em um novo BD e postar aqui...

Pode postar direto no site, ou DropBox e GoogleDrive

Estou enviando um arquivo com o projeto parcial e um melhor explicativo em PDF, espero que haja uma solução!

Desde já, muito obrigado!

Vi la que vc tem Vários Campos que serão aplicado essa situação certo?

Bom vou lhe apresentar duas situações e vc escolhe a que melhor lhe atender...

Opção 1: Campo A Campo Coloque isso, No evento Ao Receber Foco:

Private Sub CD01_GotFocus()

Dim F As DAO.Recordset
Dim DB As Database
Set DB = CurrentDb()
Set F = DB.OpenRecordset("SELECT Descricao FROM FalhasOP403ND WHERE COD = '" & Me.CD01 & "' ")
'Ao Pausar entrar no Campo e Pausar sobre ele exibe a Descrição.
If Len(Me.CD01) > 0 Then
Me.CD01.ControlTipText = F("Descricao")
F.Close
DB.Close
End If

End Sub

Obs: Nesse Caso vc deve entrar no Campo, e Deixar o mause Parado para que ele Exiba em Forma de Hint a Descrição...

Tera que Colocar a mesma coisa para Todos os outros Campos de seu Formulário, alterando apenas a Parte em Vermelho, que é o Nome do Campo...

Opção 2: Crie um Modulo, e Cole isto:

Sub DicaCampo(XCampo As String)
'--------------------------------------------'
'     Criado por Fabio Paes em 13/06/2016    '
'--------------------------------------------'
Dim F As DAO.Recordset
Dim DB As Database
Set DB = CurrentDb()
   Set F = DB.OpenRecordset("SELECT Descricao FROM FalhasOP403ND WHERE COD = '" & XCampo & "' ")
   'Ao Pausar entrar no Campo e Pausar sobre ele exibe a Descrição.
   MsgBox F("Descricao"), vbInformation, "Descrição da Falha: "
   F.Close
   DB.Close
End Sub


Salve o Modulo com qualquer nome...


Agora no Evento Ao Receber Foco ou Ao Clicar Duas Vezes.. OU no evento que preferir coloque:


If Not IsNull(Me.CD03) Then
Call DicaCampo(CD03)
End If

Alterando apenas o Nome do Campo em Vermelho...
Dessa forma emitira uma MsgBox com a Descrição.

Cara, Muito obrigado mesmo!! não consegui aplicar a 2ª opção do módulo, porém a 1ª já resolveu meu problema com louvor!

Deus abençoe!

Muito obrigado!