[Resolvido]Interação entre Combobox

Bom dia

Como fazer uma alteração neste exemplo do Mestre JPaulo.
Obrigado

Assis tente assim:

Private Sub COMBO1_AfterUpdate()
Me.Combo2.Requery
Me.Combo2.SetFocus
Me.Combo2.Dropdown
If Me.Combo2.ListCount > 0 Then
Me.Combo2.RowSourceType = "Table/query"
Me.Combo2.RowSource = "SELECT tblPaises.Cidade FROM tblPaises WHERE (((tblPaises.Pais)=[Formulários]![frmExemplo]![COMBO1]) AND ((tblPaises.Cidade) Is Not Null));"
Else
If Me.Combo2.ListCount = 0 Then
Me.Combo2.RowSourceType = "Table/Query"
Me.Combo2.RowSource = "SELECT tblPaises.Cidade FROM tblPaises WHERE (((tblPaises.Cidade) Is Not Null));"
End If
End If
End Sub

Arquivo: http://www.4shared.com/zip/_WGu2__K/Combo_Assis.html

Obrigado Leandro

O agradecido aqui sou eu assis!

Prezados amigos gostaria de dar minha colaboração em gratidão ao que aprendi aqui.
Leandro com sua dica consegui elaborar um SQL para a interação entre duas combos.
segue abaixo (pode usar um ou outro, particularmente eu prefiro SQL):

Código SQL montado em VBA

Private Sub cbPrédio_AfterUpdate()
Me.cbPavimento.RowSource = _
"SELECT DISTINCT tabDipat.Pavimento FROM tabDipat WHERE tabDipat.Prédio = [Formulários]![frmRegistro]![cbPrédio]"
Me.cbPavimento = Me.cbPavimento.ItemData(0)
End Sub

Código SQL para "Origem da Linha" na propriedade da combo no formulário

SELECT DISTINCT tabDipat.Pavimento
FROM tabDipat
WHERE (((tabDipat.Pavimento) Is Not Null) AND ((tabDipat.Prédio)=[Formulários]![frmRegistro]![cbPrédio]));

****DICA****
Criar no evento AfterUptade um código para atualização da segunda combo

Me.cbPavimento = Null
Me.cbPavimento.Requery
Me.cbPavimento = Me.cbPavimento.ItemData(0)


Abraços pessoal, um FELIZ NATAL e BOAS FESTAS.