Discussion :

[BRUNO71]

Bonjour,

Je bloque sur une zone de texte dont voici le code.
Au moment de la validation, un message apparaît si la zone est vide, je clic sur OK, mais ça valide quand même la zone de texte vide.
Dans ma tbl je retrouve une ligne avec une une clef, mais rien dans la colonne.
Ce code ce trouve dans l'action Après Maj.

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
 
Private Sub img_ok_Click()
 
If IsNull(mazonedetexte.Value) Or mazonedetexte.Value = "" Then
MsgBox "Vous devez choisir au moins une lettre.", vbExclamation, "Attention..."
 
'Mise en majuscule
         Me.mazonedetexte = StrConv(Me.Livraison, vbUpperCase)
 
    Me.Dirty = False
    DoCmd.GoToRecord , , acNewRec
     DoCmd.GoToControl "mazonedetexte"
 
Else
 
   Me.mazonedetexte.SetFocus
 
End If
 
End Sub

Comment ne pas valider l'action si la zone de texte est vide ?
Si la personne clic sur OK, alors on retourne sur la zone de liste vide en attendant une autre action.


Merci

[FreeAccess]

Bonjour,

En regardant vite fait ton code (sauf erreur de ma part..), si ta zone est vide, alors tu fais afficher un message, tu clic sur OK.......mais l'instruction suivante continue le code au lieu de l'arrêter...

Alors que :

Code :

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

1
2
3
4
5
6
7
8
9
If IsNull(mazonedetexte.Value) Or mazonedetexte.Value = "" Then
MsgBox "Vous devez choisir au moins une lettre.", vbExclamation, "Attention..."
'Je place le curseur sur la Zone vide
Me.mazonedetexte.setFocus
'...et je stoppe l'exécution du code
Exit Sub
'....et si la zone est rempli
else
.........la suite du code

...à voir