Checkbox Click creates text in a text box

[Akchayan]

I have two checkboxes, one called "Man" and the other "Woman". I want a text to appear in my textbox as soon as the user selects one of these checkboxes, which is called "WoderM".


When the user clicks on "Man" this text should appear --> "M".


When the user clicks on "Woman", this text should appear --> "F".


How do I do this?


My form looks like this if it helps:

[Welshgasman]

I would have thought you would have an option group?, not two separate radio buttons, else you will need to unset one when the other is set?

Just use an IF statement in the click event and set the field to the relevant value.

BTW they are not checkboxes, but radio buttons. The clue is in the word box.

[Akchayan]

I would have thought you would have an option group?, not two separate radio buttons, else you will need to unset one when the other is set?

Just use an IF statement in the click event and set the field to the relevant value.

BTW they are not checkboxes, but radio buttons. The clue is in the word box.

Private Sub Mann_AfterUpdate()'Die Zeichenkette deklarieren
    Dim strM As String
    Dim strW As String
'Die Zeichenkette auffüllen
    strM = "M"
    strW = "W"
If IsNull(Forms!foOfferteInhalt!Mann) Then
        Me!WoderM = strM
    ElseIf !IsNull(Forms!foOfferteInhalt!Mann) Then
        Me!WoderM = strW
        
    End If
    
End Sub

I did it like this, but it isnt working do you know what to change?

[Bob Fitz]

Why not just have a combo box from which the user can choose M or W

[Welshgasman]

As I mentioned I would have an option group.
Check out these videos https://www.youtube.com/results?sear...control+access

Then it would be a case of

If OptGroup = 1 Then
     Me.WoderM = "M"
Else
     Me.WoderM = "W"
End If

[Akchayan]

Thank you very much for the help!
I did it with an option group in the end.

[Micron]

I agree with Bob, combo makes more sense.

[Welshgasman]

I agree with Bob, combo makes more sense.

Especially if you add all the other options which exist these days? :-)