Salut

j'ai cette fonction dans un module de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Function verifvide(frm As Form)
Dim vr As Controls
 
For Each vr In frm.Controls
If TypeOf vr Is TextBox Or TypeOf vr Is ComboBox Then
If vr = "" Then
MsgBox " une des zones est vide"
vr.SetFocus
 
End If
End If
Next
End Function
et je l'appel dans le button enregistrer comme suit =

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
 
Private Sub cmdenregis_Click()
 
call  verifvide(frmajoutsous)
sousc.AddNew
affectation1
sousc.Update
cond.AddNew
affectation2
cond.Update
Prm.AddNew
affectation3
Prm.Update
vehicu.AddNew
affectation4
vehicu.Update
 Poli.AddNew
affectation5
 Poli.Update
MAJ_Garantie
MAJ_reduction
 
MsgBox "Enregistrement Réussie ", vbInformation, "Ajout..."
 
 
End Sub
Mais ça marche pas , si tout les zones sont rempli ils m'affiche le message ( " une des zones est vide" ) , et il enregistre

j'ai pas compris ce que je doit faire :s