Goedendag
Ik ben nu al heel lang aan het zoeken hoe ik een msgbox kan maken waarvan de ja, nee en annuleren knop ieder een eigen functie hebben.
Misschien heb ik wel op een verkeerde manier gezocht, sorry dan.
Ik wil de msgbox namelijk verbouwen van 2 naar 3 knoppen.
De functies zouden moeten zijn:
"Ja" knop de deelnemer word ingeschreven op de LA afstand
"Nee" knop de deelnemer word ingeschreven op de KA afstand
"Annuleren"knop is geen actie als alleen afsluiten van msgbox.
Wat ik ook probeer, als ik op annuleren druk dan word de deelnemer toch op de KA afstand ingeschreven terwijl dit niet moet.
Als ik het voor elkaar krijg, dat wanneer ik op de annuleren knop druk ik uit de msgbox ga, gebeurt dit ook bij de Nee knop en de schutter word met de nee knop niet ingeschreven.
De code die gebruikt is, is de volgende:
'Afstand en categorie bepalen van de schutter
If MsgBox("Schiet deze schutter op de lange afstand?", vbYesNoCancel, "Afstand") = vbYes Then
Afstand = "LA"
If Leeftijd < 21 Then
Niveau = "J"
ElseIf Leeftijd < 50 Then
Niveau = "S"
ElseIf Leeftijd < 60 Then
Niveau = "M"
Else
Niveau = "V"
End If
Else
Afstand = "KA"
If Leeftijd < 16 Then
Niveau = "Je"
Else
Niveau = "De"
End If
If vbCancel Then Exit Sub
End If
Ik hoop dat het duidelijk is zo anders moet ik mijn bestandje verbouwen, omdat er nu namen e.d. in staan
Ik ben nu al heel lang aan het zoeken hoe ik een msgbox kan maken waarvan de ja, nee en annuleren knop ieder een eigen functie hebben.
Misschien heb ik wel op een verkeerde manier gezocht, sorry dan.
Ik wil de msgbox namelijk verbouwen van 2 naar 3 knoppen.
De functies zouden moeten zijn:
"Ja" knop de deelnemer word ingeschreven op de LA afstand
"Nee" knop de deelnemer word ingeschreven op de KA afstand
"Annuleren"knop is geen actie als alleen afsluiten van msgbox.
Wat ik ook probeer, als ik op annuleren druk dan word de deelnemer toch op de KA afstand ingeschreven terwijl dit niet moet.
Als ik het voor elkaar krijg, dat wanneer ik op de annuleren knop druk ik uit de msgbox ga, gebeurt dit ook bij de Nee knop en de schutter word met de nee knop niet ingeschreven.
De code die gebruikt is, is de volgende:
'Afstand en categorie bepalen van de schutter
If MsgBox("Schiet deze schutter op de lange afstand?", vbYesNoCancel, "Afstand") = vbYes Then
Afstand = "LA"
If Leeftijd < 21 Then
Niveau = "J"
ElseIf Leeftijd < 50 Then
Niveau = "S"
ElseIf Leeftijd < 60 Then
Niveau = "M"
Else
Niveau = "V"
End If
Else
Afstand = "KA"
If Leeftijd < 16 Then
Niveau = "Je"
Else
Niveau = "De"
End If
If vbCancel Then Exit Sub
End If
Ik hoop dat het duidelijk is zo anders moet ik mijn bestandje verbouwen, omdat er nu namen e.d. in staan