[Resolvido]Tem como criar esta caixa de informacoes?

Pessoal, tudo bem ?

Possuo um formulario, fruto de uma tabela, o qual possui um campo chave primaria chamado "projeto", ocorre que para cada valor de "projeto" eu tenho diversas entradas em uma outra tabela, o que preciso é o seguinte (nao sei se tem como), assim que eu passar com o mouse por cima da caixa de texto "projetos" ele busque informacoes relacionadas na outra tabela e me mostre em algum tipo de caixa de informacao, ao estilo texto explicativo, sera que tem como ?

Obrigada.

Juliana

Olá Juliana,

Dê-nos todos os detalhes: nomes e tipos de dados

Oi Alexandre, os campos relacionados entre si, serao do tipo String, mas o principal aqui, nem é gerar a consulta de uma outra tabela, mas sim gerar este tipo de caixa de informacao, sra que tem como ?

Ju

Juliana,

Fiz a pergunta para lhe ajudar a resolver a situação "à medida".
Adapte este código:

Private Sub Texto0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim rst As DAO.Recordset, strX As String
Me.Recalc
If IsNull(Texto0) Or Texto0 = "" Then Exit Sub
Set rst = CurrentDb.OpenRecordset("SELECT Projeto,campo2 FROM TABELA1 WHERE Projeto='" & Texto0 & "';")
strX = ""
Do While Not rst.EOF
strX = strX & vbCr & rst(1)
rst.MoveNext
Loop
Set rst = Nothing
Me.Texto0.ControlTipText = strX
End Sub

Oi Ale, so nao entendi duas coisas:

1 - Por que vc usou me.recalc ?
2 - e aonde o texto com as informacoes ira aparecer ? O que é ControlTipText ?

Obrigada.

Ju

Olá, Ju

Me.recalc serve para recalcular. Neste caso, para que a caixa de texto assuma o valor introduzido pois, caso contrário, assumia ainda o valor anterior
Controltiptext é a mensagem que aparece quando coloca o rato junto ao controlo

Super tks.


Ju