keuzelijst aanpassen bij invoer van andere keuzelijst

Status
Niet open voor verdere reacties.

joellp

Gebruiker
Lid geworden
14 okt 2011
Berichten
32
Beste,

ik heb een vraag. Ik heb zoals hieronder wordt weergegeven een formulier waarbij er meerdere tabellen aanwezig zijn. Links is in dit formulier een aparte tabel en rechts (partner) is hier een aparte tabel. Nu wil ik dat wanneer je kiest voor het geslacht man, dat bij partner automatisch vrouw wordt ingevuld. Ben wel bezig geweest maar kom er toch niet uit.

Bvd

if_statement.JPG
 
Nog even afgezien of de vraag moreel gezien juist is (elke persoon altijd een partner van het andere geslacht?) is de oplossing toch vrij simpel. Met de gebeurtenis <Na bijwerken> van de keuzelijst kun je de andere keuzelijst een waarde geven:

Code:
Sub Partner_AfterUpdate()
If Me.Partner.Value="Ja" Then
     If Me.Geslacht1.Value="Man" Then
          Me.Geslacht2.Value="Vrouw"
     Else
          Me.Geslacht2.Value="Man"
     End If
Else
     Me.Geslacht2.Value=""
End If
 
Michel,

bedankt voor het snelle antwoord. Het is gelukt. Idd een simpele if-statement moet dit oplossen was alleen even kwijt waar ik precies de fout had gemaakt.
Haha en ik ga er vanuit dat er meer mensen iemand van het ander geslacht hebben dan van het eigen geslacht ;)
 
dan ken je mijn vrienden nog niet :D Volgens mij kan hij naar Opgelost.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan