[Resolvido]Incrementar Formulário (digitar Rua e mostrar Bairro)

Boa tarde...

Esta é minha primeira pergunta e não se se estou fazendo isto direito mas desde já mui grato... este fórum já me ajudou demais.

É o seguinte, tenho um form e neste há dois ComboBox Rua e Bairro, gostaria de escolher a Rua e automaticamente aparecer o bairro referente a mesma.

Grato.

Olá Ricardo,

Respeite a autoria do código e siga os seguintes procedimentos:

A dica é o seguinte: crie uma tabela para ruas e outra para bairros.
Na tabela Ruas os seguintes campos: CodRua, Rua
Na tabela Bairros: CodBairro, Bairro, CodRua

O código da combo:

Private Sub cboRuas_AfterUpdate()
'Código de Eduardo Machado (Good Guy) - Ano 2013
Dim strMsg As Integer
Dim sRua As String
sRua = Nz(cboRua.Column(1))

strMsg = Nz(DLookup("CodRua", "tblRuas", "Rua = '" & sRua & "'"))

Me.cboBairro.RowSource = "SELECT tblBairros.CodBairro, tblBairros.Bairro FROM tblBairros WHERE tblBairros.CodRua = " & strMsg


End Sub

Muito grato,

Vou testar.

Até.

Desculpe mas não consegui...

Se não for pedir demais o senhor teria um exemplo pratico para que eu possa adapta-lo, desde a criação das tabelas e também formulário e o que mais for necessário.

Desde já muito grato pela atenção.

Olá Ricardo,

Preste atenção. Você pode filtrar tanto pelo Bairro quanto pela Rua neste exemplo.

1-Na segunda combo se você selecionar uma rua você terá o seu respectivo bairro na primeira combo.
2-Na primeira combo se você selecionar um bairro você terá um quantitativo de ruas existentes naquele bairro

ATENÇÃO: Atualize as tabelas com tantas ruas você quiser, mas não se esqueça de incluir o código de bairro respectivo.

Bom dia...

Era exatamente isto o que eu queria, muito obrigado vou testar e posto o resultado...

Muito grato.

Bom dia...

Perfeito, mas é o seguinte:

Em meu form apenas informarei a Rua, e sendo assim gostaria apenas que aparecesse o Bairro referente a Rua em um TextBox que não permitisse edições. tentei fazer a adaptação mas não consegui. Acredito que não esteja tão complicado pois já esta tudo OK.

Se possível me ajudar com esta adaptação/alteração  

Grato.

Olá Ricardo,

Veja se atende agora.

Boa tarde...

Sr. good guy, muito obrigado pela ajuda, agora minha aplicação ficou perfeita.

TUDO RESOLVIDO.

Obrigado pelo retorno. O fórum todo agradece.

Se quiser aprender mais, adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

Editora Livrorama(DOMINE ...):
www.livrorama.com.br

Editora Ciência Moderna(TÉCNICAS...):
www.lcm.com.br


Um grande abraço.

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)