Datacombo

[D4rk Schn31d3r]

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)

[D4rk Schn31d3r]

Um cara de um outro fórum me ajudou, fica assim:

------------------------

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 

------------------------