Koppelen van tabellen?

[GoReTeX]

Hallo allemaal,

ik zit met een klein probleempje waar ik niet uit kom.
Ik heb 2 tabellen aangemaakt, 1 met zorgverzekeraars erin en access automatisch een ID laten maken. De andere zijn zorggroepen waar dus meerdere zorgverzekeraars in een bepaalde groep kunnen vallen.
Ook hier heb ik Access zelf een ID laten maken.

Ik heb hier een relatie tussen gelegd en ervoor gezord dat ik i.p.v. het ID-nr dus een zorgverzekeraar en/of zorggroep te zien krijg.

Nu wil ik het volgende ook nog doen:

Ik wil wanneer ik een zorgverzekeraar kies ervoor zorgen dat meteen ook de zorggroep ingevuld word. Zo kunnen er nooit fouten in gemaakt worden.

Weet iemand hoe dit moet?

Alvast bedankt voor de hulp.

 

[GoReTeX]

Ik zal de file er even bij gooien ter verduidelijking.

Ik hoop dat iemand me kan helpen.

Hier het linkje naar de file:

www.shayma.nl/mdb/zorgverzekeraars.mdb

 

[Rene Fuhner]

Hoi,

Kun je de database ook als bestand uploaden. Krijg nu een foutmelding dat deze iet buiten het intranet geopend kan worden...

Maar als ik je beschrijving zo lees, denk ik dat je met zoeken op "requery" hiero op het forum er wel uit komt.

Groet,

René

 

[GoReTeX]

Hoi Rene,

bedankt voor je reactie, het bestand is gewoon te openen hoor

Ik zal ook nog eens verder zoeken.

 

[Rene Fuhner]

Hoi GoReTex,

Ik heb een bestandje toegevoegd waarbij de requery-functie is toegepast. Ik hoop dat je hier wat aan hebt.

Groeten,

René

 

[Rene Fuhner]

Hoi,

Ik zat nog eens na te denken, en volgens mij kan ook de dlookup-functie hiervoor gebruiken... Je zult alleen een extra tabel moeten aanmaken waarbij een kolom de zorggroep staat en in de tweede kolom de zorgverzekeraar.

Ik heb een voorbeeldje bijgevoegd (uit een ander antwoord dat ik hier eens gegeven heb)

Groeten,

René

 

[GoReTeX]

Heel erg bedankt Rene, ik zal er eens op mijn gemakje naar kijken.

Bedankt voor je hulp alvast!

 

[GoReTeX]

mensen bedankt voor de hulp.
Uiteindelijk heb ik het na veel geknutsel zelf opgelost met een VBA-script.

Namelijk deze:

Private Sub KeuzelijstZorgverzekeraar_AfterUpdate()
'Dit is een test
If KeuzelijstZorgverzekeraar.Value = "Groene Land" Then
KeuzelijstZorgGroep.Value = "Achmea"
End If

If KeuzelijstZorgverzekeraar.Value = "Anderzorg Zorgverzekeraar" Then
KeuzelijstZorgGroep.Value = "Menzis"
End If

If KeuzelijstZorgverzekeraar.Value = "Zilveren Kruis" Then
KeuzelijstZorgGroep.Value = "Achmea"
End If
End Sub


enz enz.

Bedankt voor het meedenken.

 

[Bartuls]

Dat kun je ook als volgt oplossen:

Private Sub KeuzelijstZorgverzekeraar_AfterUpdate()
'Dit is een test
Select Case KeuzelijstZorgverzekeraar
Case "Groene Land"
KeuzelijstZorgGroep.Value = "Achmea"
Case "Anderzorg Zorgverzekeraar"
KeuzelijstZorgGroep.Value = "Menzis"
Case "Zilveren Kruis"
KeuzelijstZorgGroep.Value = "Achmea"
End Case
End Sub