Estou com o seguinte problema:

 

Tenho o display de uma tabela cursos, a seguir:

Public Sub DisplayCursos(myRs As Recordset)
With myRs
If .BOF = True And .EOF = True Then Exit Sub
    On Error Resume Next
    txtCod_Curso.Text = !Cod_Curso
    txtDesignação.Text = !Designação
    txtArea_Proponente.Text = !Area_Proponente
    txtEntidades.Text = !Entidade_Formadora

 

NOTA: txtEntidades é combobox

 

Tenho a função:

 

Private Sub txtEntidades_Change()
    RegistoEntidades
End Sub

Function RegistoEntidades() As ComboBox
txtEntidades.Clear
Set SGF = New ADODB.Connection
With SGF
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .ConnectionString = App.Path & "SGF.mdb"
    .Open
End With
Set Entidades = New ADODB.Recordset
Entidades.Open "Entidades", SGF, adOpenKeyset, adLockOptimistic
Do While Not Entidades.EOF
 txtEntidades.AddItem Entidades!Entidades
 Entidades.MoveNext
Loop
End Function

 

O que acontece é o seguinte:

Se faço o display da tabela cursos, não tenho a combo a funcionar, ou seja, não mostra as entidades da tabela entidades, se tenho a combo a funcionar, não mosta as entidades da tabela cursos (se tenho um não tenho outro), porque será?

 

Agradeço a Vossa atenção  

 

 

Pq ao fazer isso: txtEntidades.Text = !Entidade_Formadora

Vc aciona o evento change da combobox. Se a sua consistência for verdadeira: If .BOF = True And .EOF = True Then Exit Sub

 

Vc não executa a primeira linha que citei então não aciona o evento CHANGE da combobox.

 

Dica: Use Sub ao invés de Function para procedimentos que não retornarão valor:

 

Sub RegistoEntidades()

'seu algoritmo

'...

End Sub