DATACOMBO

USUARIO.EXCLUIDOS 01/06/2004 17:11:29
#27697
Tenho uma DataCombo e as prop. estão definidas assim:

RowSource = de
RowMember = qryConsAndam
ListField = Andam

Minha query (ID_Andam, Andam) está assim:


SELECT Andam.*
FROM Andam
ORDER BY Andam.Andam


O q eu quero, é no evento OnClick ou OnChange dessa DataCombo, jogar o valor ID_Andam numa variável gNum, assim:


Private Sub dcboAndam_Change()
    If dcboAndam.Text <> "" Then
        de.rsqryConsAndam.Filter = "Andam = " & dcboAndam.Text
        gNum = de.rsqryConsAndam![ID_Andam]
        Unload frmConsAndam
    End If
End Sub


Mas é claro q isso não está funcionando!!! Alguém poderia me ajudar?

PS1: sim, meu banco possui dados
PS2: estou utilizando VB6, Access 2000 e DataEnvironments (de)
THIAGO.CESAR 01/06/2004 18:19:38
#27708 Resposta escolhida
Defina a opção BoundColumn para ID_Andam, e, depois faça o seguinte:
Private Sub dcboAndam_Change()
If dcboAndam.Text <> "" Then
     gnum = dcboAndam.BoundText
End if

Espero ter ajudado...
Tópico encerrado , respostas não são mais permitidas
Voltar