Postada em 02/05/2008 17:28 hs
Estou com dificuldades para fazer esse select abaixo funcionar:
Private Sub TBGroup_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
FrmBusca.LBC.Caption = ""
Dim Sql As String
Dim TX As String
FrmBusca.LBC.Caption = TBGroup
Sql = "SELECT ObsItem,ID FROM Dados WHERE [LM_1] = '" & FrmBusca.Lb_Lista.Caption & "'"
Set TbMsg = Banco2.Execute(Sql)
If FrmBusca.LBC.Caption = TbMsg("ID") Then
FrmBusca.Lb_Msg.Caption = TbMsg("ObsItem")
Else
FrmBusca.Lb_Msg.Caption = vbNullString
End If
End Sub
Estou usando TextBox dinamicos. O documento gravado no campo LM_1 tem 10 items, sendo que o 1º e 5º tem gravado no campo (ObsItem) uma observação(texto). A intensão é ao mover o mouse no TBGroup (ID) mostrar essa observação referente ao item. Do jeito que esta acima consigo mostrar no (FrmBusca.LBC.Caption) o que esta no TextBox(TBGroup) apontado e mudando automaticamente. Tentei colocar um outro Label no form para mostrar o ID na movimentação do mouse mas o mesmo so mostra o 1º ID quando aponto para o segundo não faz a pesquisa, onde posso estar errando?
Veja bem, a rotina só carrega uma vez o ID no Label quando aponto para o 1º textbox quando passo para o 2º não acontece nada!!!
|
