Discussion :

[surzone]

Bonjour à tous,

Voici ma problématique :

mon formulaire issu d'une table comporte entre autre un champ "fourn_retenu".

Je souhaite rendre obligatoires les champs "num_cmd" et "nom-fourn" SI le champ "fourn_retenur" comporte une valeur ET facultatifs SI ces champs sont vides.

Idéalement, le test se ferait sur le clic du bouton "Commande326" et si les champs obligatoires ne sont pas remplis un message d'erreur apparait. après avoir cliqué sur OK, la souris se repositionne sur le champ obligatoire qui n'a pas été rempli.

J'ai trouvé

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
18
19
Private Sub Commande2_Click()
Dim Msg, Style, Titre, Reponse
Msg = "OUI = Saisie du champ       NON = Fermeture SANS sauvegarde"
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Boutons OUI / NON
Titre = "Le champ XXXXX doit obligatoirement être renseigné"  ' Titre
 
If (IsNull(Texte0) Or (Texte0 = vbNullString)) Then
 
    ' Affiche le message
    Reponse = MsgBox(Msg, Style, Titre)
 
If Reponse = vbYes Then    ' L’utilisateur a choisit OUI
    Me.Texte0.SetFocus 'On se repositionne sur le champ à saisir
 
Else    ' L’utilisateur a choisi NON
    DoCmd.Close
End If
End If
End Sub

Pour rendre des champs obligatoires, mais je ne sais pas comment indiquer la condition "SI le champ four-retenu" est vide.

Avez vous des pistes à m'indiquer ?
D'ici là je poursuis mes recherches...en espérant trouver


a bientot

[Taoueret]

Tu es pourtant sur la bonne voie !!
tu arrive à tester si ton champ texte0 est vide; Pourquoi ne fais-tu pas pareil avec ton champ fourn-retenu ???

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
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub Commande2_Click()
Dim Msg, Style, Titre, Reponse
Msg = "OUI = Saisie du champ NON = Fermeture SANS sauvegarde"
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Boutons OUI / NON
Titre = "Le champ XXXXX doit obligatoirement être renseigné" ' Titre
 
if (not isnull(me.fourn_retenu) or (me.fourn-retenu <> vbnullString)) then
'il y a une valeur dans fourn-retenu et les deux autres champs sont obligatoires
 
    If (IsNull(Texte0) Or (Texte0 = vbNullString)) Then
         ' Affiche le message
         Reponse = MsgBox(Msg, Style, Titre)
 
         If Reponse = vbYes Then ' L’utilisateur a choisit OUI
               Me.Texte0.SetFocus 'On se repositionne sur le champ à saisir
 
         Else ' L’utilisateur a choisi NON et on ferme sans sauvegarder
               docmd.Close , , acSaveNo
         End If
 
     End If
 
     'idem avec le deuxième champ qui ne doit pas être null
      If (IsNull(Texte1) Or (Texte1 = vbNullString)) Then
        ....
     End If
End If
End Sub

[surzone]

Voila ce que j'ai trouvé et qui fonctionne

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
Private Sub Commande326_Click()
 
If (Not IsNull(fourn_retenu)) And (IsNull(num_cmd)) Then
    Beep
    MsgBox "Ducon remplis le N° de la Cde STP !!!!", vbQuestion, "DUCON T VRAIMENT... !!!!"
 
ElseIf (Not IsNull(fourn_retenu)) And (IsNull(prx_cmd)) Then
    Beep
    MsgBox "Ducon remplis le prix de la Cde STP !!!!", vbQuestion, "DUCON T VRAIMENT... !!!!"
 
Else
    DoCmd.Close
 
End If
End Sub

Merci pour vous être penché sur mon prb
A+