Oi...Por favor alguém poderia me ajudar em como retornar em um combobox, por exemplo no cadastro de cidade (codigo,nome,estado) estado é uma FK, q busca a chave primária na tabela estado estou add as siglas dos estados em um combobox, qndo vou alterar teria q retornar no combobox a q cadastrei, como poderia fazer..Não estou conseguindo...

 

Agradeço desde já...

Olá , esta função checa o valor e posiciona no dado correto que esta cadastrado.

 

 

Public Sub PosicionaCombo(NameCombo As ComboBox, Valor As Variant, Optional blnIndentificadorDados As Boolean)
    Dim i As Integer
    If blnIndentificadorDados Then
        For i = 0 To NameCombo.ListCount - 1
            If Val(NameCombo.ItemData(i)) = Valor Then
                Exit For
            End If
        Next i
    Else
        For i = 0 To NameCombo.ListCount - 1
            If NameCombo.List(i) = Valor Then
                Exit For
            End If
        Next i
    End If
    If i = NameCombo.ListCount Then 'Não encontrei o combo
        NameCombo.ListIndex = -1
        If NameCombo.Enabled = True And NameCombo.Visible = True Then
            NameCombo.SetFocus
            SendKeys "{HOME}"
        End If
    Else
        NameCombo.ListIndex = i
    End If
End Sub

Para usar :

PosicionaCombo cboEscolaOndeEstuda, tblPessoa!CodigoDaEscola, True