Val i kombinationsruta som ger kopplade val i nästa kombinationsruta

[Cowsick]

Såhär ser min miljö ut lite förkortat

 

Tabell1 (enheter)

Stöldmärkning (primär nyckel, räknare)

Hus (indexerad, dubletter tillåtna, ej obligatorisk)

Rum (indexerad, dubletter tillåtna, ej obligatorisk)

...

 

Tabell2 (felanmälningar)

ID (primär nyckel, räknare)

Stöldmärkning

felbeskrivning

...

 

Formulär (felanmälan)

I formuläret vill jag kunna ha en kombinationsruta med valet Hus som ger de rum som finns i det huset och när jag väljet rum i nästa kombinationsruta så vill jag där välja stöldmärkning. All info skall hämtas ifrån tabell1. och därefter skrivas in i tabell2.

 

 

fråga: Vilka kopplingar måste jag göra? Hur får jag till valet jag är ute efter i mitt formulär?

 

Tack på förhand

Fredrik

 

[Ech]

Här har du lite att labba med..

1:a delen ska ligga i Form load som sagt, andra lägger du i kombinationsrut1 efter uppdatering

 

Private Sub Form_Load()

With Me.kombinationsruta1

.RowSource = _

"SELECT DISTINCT Hus FROM tabell1 " & _

"WHERE Hus is not null"

.Requery

End With

 

End sub

 

 

 

Private Sub Kombinationsruta1_AfterUpdate()

With Me.Kombinationsruta2

.RowSource = _

"SELECT DISTINCT Rum FROM tabell1 " & _

"WHERE Hus = " & Chr(34) & Me.kombinationsruta1 & Chr(34)

.Requery

End With

 

End sub