Boa noite amigos,
Estou a tentar adaptar o meu formulario excel vba a um banco de dados access,
nele tinha combobox candeadas(julgo ser assim o nome que se dá), agora gostava de saber se é possivel fazer isso mas com banco de dados, isto é:
ao selecionar um valor da combobox1, ele vai carregar valores de relaçao a esse valor na combobox2, ao selecionar um valor da combobox 2 ia dar um valor na combobox3.
Exemplo
Coluna1 Coluna 2 Coluna3
Motor manutençao programada 1000
Motor manutençao prevista 1001
Chassi/interior acessorios marca 2000
chassi/Interior tablie 2001
chassi/interior fechadura condutor 2002
chassi/interior fechadura mala 2003
Pneus pneus continental 3000
pneus pneus Michelin 3001
pneus alinhamento direcção 3002
a ideia é:
coluna1 recebe os valores Chassi/Interio, Motor,Pneus
ao selecionar um valor da coluna1, ele vai buscar os valores correspondentes na coluna 2, que ao ser selecionada dá o codigo na textbox3/combobox3
ex
Motor da combobox1, recebe os valores Manutençao programada e manutençao prevista na combobox2
isto tudo indo buscar esses valores a uma tabela access.
obrigado
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Combobox candeadas com banco de dados
Moderador: joseA
-
- Consultor
- Mensagens: 285
- Registrado em: Qua Dez 09, 2015 5:54 pm
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Combobox candeadas com banco de dados
E possível, o que mudará e somente a "chamada" de preenchimento das combobox.
-
- Consultor
- Mensagens: 285
- Registrado em: Qua Dez 09, 2015 5:54 pm
Re: Combobox candeadas com banco de dados
Obrigado Reinaldo por a resposta, consegue dar uma ajuda.
tenho este codigo para fazer as combobox candeadas, mas nao estou a ver como adaptar, sou zero a access, e o excel vba, vou conseguindo com muita ajuda aqui do forum :
o codigo que tenho para fazer o carregamento da combobox1 ao banco de dados que agora tenho é este:
se conseguir dar uma ajuda para tentar perceber o processo, agradecia.
Obrigado desde ja
tenho este codigo para fazer as combobox candeadas, mas nao estou a ver como adaptar, sou zero a access, e o excel vba, vou conseguindo com muita ajuda aqui do forum :
Código: Selecionar todos
Private Sub ComboBox1()
On Error GoTo final
Dim x
Dim I
Combobox2.Clear
TextBox3.Value = ""
With Sheets("Dados ")
For x = 2 To .Range("S1").End(xlDown).Row
If ComboBoxGrupo.Value = .Cells(x, "S").Value Then 'Se for igual
Combobox2.AddItem
Combobox2.List(I, 0) = .Cells(x, "T").Value
Combobox2.List(I, 1) = x
I = I + 1
End If
Next
End With
Exit Sub
final:
End Sub
'_______________________________________________'
Private Sub Combobox2_Change()
On Error GoTo final
If Combobox2.Value = "" Then
TextBox3.Text = ""
Exit Sub
End If
TextBox3.Text = Folha5.Cells(Combobox2.List(Combobox2.ListIndex, 1), "U").Value
Exit Sub
final:
End Sub
Código: Selecionar todos
Sub Combobox1_Change()
ConectDB
Rs.Open "Select Grupo FROM Dados_Manutencoes", Db, 3, 3
Do Until Rs.EOF
UserForm_Menu.combobox1.AddItem Rs!grupo
Rs.MoveNext
Loop
FechaDb
end sub
Obrigado desde ja