Mon soucis est le suivant :
Dans MonFormulaire page 1, j'ai des champs obligatoires (Null interdit).
Si je ne les renseigne pas, et que je clique sur un bouton pour passer à la page 2, un message d'erreur est affiché et je dois rester à la page 1.
Si les champs sont renseignés, en cliquant sur ce bouton je peux passer à la page 2
Sur événement SurClic du bouton, j'appelle la fonction
Dans un module, voici la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part =SautpageInfosSociété()
J'ouvre mon formulaire et je teste, je ne remplis pas les champs obligatoires et je clique sur mon bouton.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Function SautpageInfosSociété() On Error GoTo SautpageInfosSociété_Err ' Affiche la Deuxième page du formulaire. DoCmd.GoToPage 2 Exit Function SautpageInfosSociété_Exit: Exit Function SautpageInfosSociété_Err: MsgBox "Les CHAMPS OBLIGATOIRES en ROUGE doivent être renseignés", vbExclamation, "CHAMPS OBLIGATOIRES" 'Afficher la page1 DoCmd.GoToPage 1 Resume SautpageInfosSociété_Exit End Function
Résultat : aucun message d'erreur n'est affiché, et je peux passer directement à la page 2.
Est-ce que quelqu'un peut m'aider?
Merci
Partager