Discussion :

[Daniel MOREAU]

Bonjour,

Voilà dans mon formulaire, je veux obligé les utilisateurs à renseigner un champ. Voici le code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Code_Client_LostFocus()
 
    If Me.Code_Client.Value = "" Or IsNull(Me.Code_Client.Value) Then
        MsgBox "Veuillez faire une saisie"
        Me.Code_Client.SetFocus
    End If
 
End Sub

Malheureusement ce code ne me permet pas de revenir sur le champ en question.

Avez vous une idée pour résoudre ce problème ?

Merci pour vos réponses

Daniel

[Caroline1]

Utilise la propriété Valide Si dans le fenêtre des propriétés.

Code :

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

1
2
Valide Si : <>"" Ou Pas EstNull([Code_Client.Value])
Message si erreur : "Veuillez faire une saisie."

Pas besoin de VBA :-)

[Daniel MOREAU]

Merci pour la réponse,

J'ai testé, mais mon souhait est d'avertir immédiatement l'utilisateur (dès qu'il change de champ) en affichant un message d'erreur et dans un second temps empêcher la saisie des autres champs (figer le curseur sur ce champ)

Si vous avez une idée je suis preneur.

Merci

Daniel

[argyronet]

Bonjour,

Voici comment procéder:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Code_Client_BeforeUpdate(Cancel As Integer)
Dim vntCode As Variant
    vntCode = Me!Code_Client.Text
    If IsNull(vntCode) Or Len(vntCode) = 0 Then
      MsgBox "Le code client est obligatoire !", 48
      Cancel = True
    End If
End Sub

Argy

[DurDur]

Bonjour,

J'ai fait un truc comme ça.

Il faut mettre le focus sur un autre controle et ensuite le remettre sur ce controle vide.

Et aussi peut être empècher la saisie des autres controle par la fonction locked=true.

Voilà mon code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub codepostal_LostFocus()
    If Me.codepostal.Value = "" Or IsNull(Me.codepostal.Value) Then
        Formattedmsgbox ("ATTENTION !@Le CODE POSTAL est OBLIGATOIRE@"), vbExclamation, "'PATIENTÈLE'     SAISIE OBLIGATOIRE"
        Nouveau.SetFocus
        codepostal.SetFocus
    Else
        fermecp
    End If
End Sub

et aussi:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ouvrecp()
    codepostal.Enabled = True
    codepostal.Locked = False
End Sub
Private Sub fermecp()
    sauvegarde.SetFocus
    codepostal.Enabled = False
    codepostal.Locked = True
End Sub

Ouvrecp est commandé par le contrôle précédent.

Bon travail

JC57

[Daniel MOREAU]

Bonjour et merci à tous pour vos réponses.

C'est bon ça marche. Je vais pouvour poursuivre.

Merci encore.

Daniel.