Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Combobox candeadas com banco de dados

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Combobox candeadas com banco de dados

Mensagem por pedro_mexico »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

E possível, o que mudará e somente a "chamada" de preenchimento das combobox.


pedro_mexico
Consultor
Consultor
Mensagens: 285
Registrado em: Qua Dez 09, 2015 5:54 pm

Re: Combobox candeadas com banco de dados

Mensagem por pedro_mexico »

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 :

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
o codigo que tenho para fazer o carregamento da combobox1 ao banco de dados que agora tenho é este:

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
se conseguir dar uma ajuda para tentar perceber o processo, agradecia.
Obrigado desde ja


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder