Jump to content
PJVOA

Combo Box

Recommended Posts

PJVOA

Boa tarde

Venho pedir ajuda no seguinte.

Estou a criar uma base de dados de contactos com os seguintes elementos:

Nome

Morada

Andar

codigo Postal

Pais

Distrito

Concelho

Fregueseia

Localidade

Pretendia que ao escolher Portugal no campo Pais, no campo a seguir so me aparecessem os distritos de portugal e ao escolher um distrio, no campo Concelho so aparecessem as opçoes dos Concelhos desse disttrito.

Qual sera a forma mais facil?

Contruir uma base on tivesse todos os campos ou construir varias tabelas para os paises, Distritos, Concelhos.....?

Como fazer com que a escolha do pais influencie a escolha do distrito, e assim consecutivamente?

Peço que nao me falem em programação pois nao sei nada.

De Access tenho alguns conhecimentos, mas muito redusidos.

Ja consegui numa Combo Box estipular as opções ou ir ler essa informação a uma tabela.

Preciso de por numa Combo Box dos Distritos a seguinte função (isto estando a trabalhar com mais do que uma tabela):

Se o Pais é Portugal ler os Distritos da tabela Portugal Distritos

Se o Pais é Espanha ler os Distritos da tabela Espanha Distritos

Share this post


Link to post
Share on other sites
acao

boas

deve ter varias tabelas.

depois faça as consultas no: vá a aba criar/ «assistentes de consultas» ou «estrutura de consultas» juntando os campos necessario, eu prefiro a estrutura de consultas.

referente a carregar as combos filtradas por outra combo faça assim:

abra o form na vista de extrutura/ aba verCodigo .... que abre uma tela aonde se insere o codigo.

na parte de cima tem duas combos, na esq. selecione a sua combo que apresenta o valor a filtrar, na drt. selecione o evento que neste caso é «BeforeUpdate» e adapte o cod.

Private Sub AsuaComboComOValorFiltro_BeforeUpdate(Cancel As Integer)
	 Me.AsuaComboqueApresentaOsDados.RowSource = "SELECT SeuCampoquequerApresentar FROM NomeDaSuaConsulta WHERE NomedoCampoQueTemOFiltro = '" &	 Me.AsuaComboComOValorFiltro.Text & "';"
	Me.AsuaComboqueApresentaOsDados.Requery
End Sub

cumps

acao

Edited by acao

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.