Subform op basis van 2 combo boxen

[GranadaDude]

Beste(n),

Ik heb 2 tabellen : machines en machinedelen.

Op basis van een combobox die de verschillende machines oplijst, zou ik dan met een 2e combobox van de geselecteerde machine alle machinedelen opgelijst zien.

Als ik dan van bvb machine A, onderdeel 3 alle kenmerken wil zien, zou dit mogelijk moeten zijn.

Enige idees hoe ik dit kan doen ?

Mvg,

Tom

 

[Tardis]

Hallo Tom,

jouw vraag is al vaker behandeld.
Zoek in het forum op bijvorbeeld

keuzelijsten filteren

Groet,

Tardis

 

[Rommyke]

Hallo ,

Kunt ondertaande code is proberen , denk wel dat hem moet werken

Private Sub cmbMachine_Click()
Dim strSQL As String

'Per selectie van  cmbMachine ,  waarde weergeven in cmbMachineOnderdeel
strSQL = "SELECT [tblOnderdelen].[OnderdeelID], [tblOnderdelen].[Onderdeelnaam] "
strSQL = strSQL & "FROM [tblOnderdeel] "
strSQL = strSQL & "WHERE MachineID = " & CStr(Me![cmbMachine]) & " "
strSQL = strSQL & "ORDER BY [Onderdeelnaam];"

Me.cmbMachineOnderdeel.RowSource = strSQL
Me.cmbMachineOnderdeel.Requery
End Sub

Groetjes
Romain

 

[Bartuls]

Een mogelijke oplossing zit in bijgaande voorbeeld, maar dan met cursussen en cursisten.