Discussion :

[mat75019]

Bonjour tout le monde !

Tout est dans le titre du post. J'ai essayé

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub libemp_BeforeUpdate(Cancel As Integer)
Dim lib As String
lib = Me.libemp
If Len(lib) = 0 Then
MsgBox "Veuillez renseigner le libellé de l'emprunteur, merci"
Cancel = True
End If
End Sub

ou encore la meme chose avec if lib = ""
ou encore avec valide si NbCar ([libemp]) > 0 dans les propriétés du contrôle.

Que dois je faire ?

Merci d'avance !

[sunvialley]

as tu essayé de mettre l'évènement sur le bouton "valider" (s il y en a un) ?

Code :

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

1
2
3
4
5
Private Sub btValider_Click()
    If IsNull(libemp.Value) Then
        MsgBox ("erreur")
    End If
End Sub

[ActionAccess]

Bonjour,

Par exemple:

Code :

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

1
2
3
4
5
6
Private Sub ChampObligatoire_Exit(Cancel As Integer)
If IsNull(ChampObligatoire.Value) = True Then
MsgBox "Ce champ est obligatoire!!"
Cancel = True
End If
End Sub

Bon courage

[mat75019]

ActionAcces :

J'ai essayé ton code, ca marche pas, la msgbox n'apparait pas (le meme probleme que moi avant.

Sun Vialley, je n'ai pas de bouton valider, une msgbox apparait lorsque l'utilisateur renseigne le dernier controle du formulaire (confirmez l'enregistrement de cette nouvelle fiche dans la base, puis je fais un setfocus sur le sous-formulaire pour que l'enregistrement ce fasse.

C'est vraiment bizarre que toute ces methodes pour contrloler la saisie d'une zone de texte ne marchent pas...

[sunvialley]

logiquement un isNull doit suffir, mais il faut le placer dans le bon evenement...

ton dernier controle en question c'est quoi ? un champ text ?

et l evenement perte de focus (LostFocus) ?

[mat75019]

c'est une zone de liste (la confirmation ce fait sur click)
Tiens ! J'ai fermé et ouvert ma base, ca marche avec le code de ActionAccess, merci beaucoup tout les 2 !!!