Ajuda Combo

[Leandro_Pirozzi]

Galera como posso fazer para quando o usuário clicar no Combo de Cidades ele automaticamente mudar o valor do Combo de UF?

No evento CLICK do Combo Cidades fiz da seguinte maneira: Mas continua exibindo todas as UFS, não só as do select.

Dim rs As Recordset
    Dim strsql As String
    Dim lnX As Currency
             
    strsql = "select UF "
    strsql = strsql & " from CONTATOS_CIDADE"
    strsql = strsql & " where NOME = '" & frmcademp.cbocidade.Text & "'"
    
    Set rs = New ADODB.Recordset
    
    rs.Open strsql, gDB, adOpenStatic, adLockReadOnly
    
    If rs.EOF And rs.BOF Then
        MsgBox "Nenhum registro cadastrado na tabela de CIDADES"
    Else
        frmcademp.cboUF.Text = rs!UF
        Exit Sub
    End If
        
    rs.MoveFirst
    lnX = 0
    
    While Not rs.EOF
        frmcademp.cboUF.AddItem rs!UF & ""
        frmcademp.cboUF.ItemData(lnX) = rs!ID_CIDADE
        lnX = lnX + 1
        rs.MoveNext
    Wend

[bonattinho]

Galera como posso fazer para quando o usuário clicar no Combo de Cidades ele automaticamente mudar o valor do Combo de UF?

No evento CLICK do Combo Cidades fiz da seguinte maneira: Mas continua exibindo todas as UFS, não só as do select.

Dim rs As Recordset
    Dim strsql As String
    Dim lnX As Currency
             
    strsql = "select UF "
    strsql = strsql & " from CONTATOS_CIDADE"
    strsql = strsql & " where NOME = '" & frmcademp.cbocidade.Text & "'"
    
    Set rs = New ADODB.Recordset
    
    rs.Open strsql, gDB, adOpenStatic, adLockReadOnly
    
    If rs.EOF And rs.BOF Then
        MsgBox "Nenhum registro cadastrado na tabela de CIDADES"
    Else
        frmcademp.cboUF.Text = rs!UF
        Exit Sub
    End If
        
    rs.MoveFirst
    lnX = 0
    
    While Not rs.EOF
        frmcademp.cboUF.AddItem rs!UF & ""
        frmcademp.cboUF.ItemData(lnX) = rs!ID_CIDADE
        lnX = lnX + 1
        rs.MoveNext
    Wend

Nessa parte:

If rs.EOF And rs.BOF Then
        MsgBox "Nenhum registro cadastrado na tabela de CIDADES"
    Else
        frmcademp.cboUF.Text = rs!UF
        Exit Sub
    End If

você está apenas setando o texto do combo com o que veio da consulta e saindo da função. se voce quer carregar o combo com o que veio da consulta, primeiro voce tem que tirar o

Exit Sub

e limpar o combo

frmcademp.cboUF.Clear

para depois carregar o combo novamente