Discussion :

[Lingo]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SautpageInfosSociété()

Dans un module, voici la fonction

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

J'ouvre mon formulaire et je teste, je ne remplis pas les champs obligatoires et je clique sur mon bouton.
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

[Heureux-oli]

Ta fonction est très belle, mais tu ne fais pas de test pour vérifier que les contrôles sont remplis.
Si tu ne testes rien, le résultat est toujours bon.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim MsgTxt as String
MsgTxt = "Les CHAMPS OBLIGATOIRES en ROUGE doivent être renseignés"
If Control1 is null then
    MsgBox (MsgTxt)
    Control1.SetFocus
    Exit Sub
Else if Control2 Is Null then
     .....
Else
    Exit Sub
End If

Avec ce genre de code, tu effectues un test et tu auras alors un résultat.