Consulta usando combo

[caezar 0]

Olá amigos,

 

Tenho um formulário no access com duas combobox, uma que retoma os valores de uma tabela chamada estado e a outra chamada cidade.

 

Eu gostaria de quando eu mudar o combo estado que tem como valores as siglas do Estados do Brasil, realizar uma consulta e com o valor selecionado na combo, verificar qual é o código referente aquele estado.

 

Como poderia fazer isso?

[ddoc 0]

Ola Caezar,

 

Estive procurando nos meus aufarrábios e encontrei o seguinte arquivo que tem a resposta para o seu problema. É só estudar e você vai conseguir.

 

Boa Sorte!

 

O link para download é: Sincronizar Combo

[caezar 0]

Obrigado amigo, muito bom o exemplo, mas é que eu queria fazer isso através de VBA. Na verdade eu uso delphi, mas gostaria de relembrar o VBA.

 

Muito Obrigado

[caezar 0]

Amigos eu comecei o código assim:

Private Sub cbEstados_Change()

Dim R As DAO.Recordset
Dim ssql As String
Dim ssql2 As String
		
	ssql = "Select codEstado from TabEstados where UF=" & cbEstados.Text
	
  
	Set R = CurrentDb.OpenRecordset(ssql)
	Do Until R.EOF
	MsgBox R!SN
	
	Loop
	

End Sub

Mas na linha Set R = CurrentDb.OpenRecordset(ssql) ele me retorna um erro.

 

Alguma solução?