Bonjour le forum
Ci dessous un code que je positionne dans un textbox2
Private Sub TextBox2_Change()
Superieur_a_10_places
End Sub
Sub Superieur_a_10_places()
If Me.ComboBox2 = "Place Cinéma Perigueux" Then
If Me.TextBox2 > 10 Then
MsgBox "RESTREINT A 10 PLACES MAXIMUN", vbOKOnly
Me.TextBox2 = ""
Exit Sub
End If
End If
End Sub
Mon problème est que le Msgbox s'affiche deux fois,
Je ne trouve pas la solution malgré plusieurs essais
Merci de votre aide
Cordialement,
Ci dessous un code que je positionne dans un textbox2
Private Sub TextBox2_Change()
Superieur_a_10_places
End Sub
Sub Superieur_a_10_places()
If Me.ComboBox2 = "Place Cinéma Perigueux" Then
If Me.TextBox2 > 10 Then
MsgBox "RESTREINT A 10 PLACES MAXIMUN", vbOKOnly
Me.TextBox2 = ""
Exit Sub
End If
End If
End Sub
Mon problème est que le Msgbox s'affiche deux fois,
Je ne trouve pas la solution malgré plusieurs essais
Merci de votre aide
Cordialement,