Discussion :

[MeRc|LeSs]

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

[Theocourant]

Bonjour,

Déjà une petite question : pourquoi faire une fonction alors qu'elle ne renvoie pas de donnée ???

Autres chose : vr="" n'a aucun sens.

Pour une TextBox et une ComboBox, il faut contrôler la propriété Text

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
Public Function verifvide(frm As Form) As Boolean
Dim vr As Controls

verifvide=True

For Each vr In frm.Controls
   If TypeOf vr Is TextBox Or TypeOf vr Is ComboBox Then
      If vr.Text = "" Then
         MsgBox " une des zones est vide"
         vr.SetFocus
         verifvide=False
      End If
   End If
Next
End Function

et pour la seconde partie

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
Private Sub cmdenregis_Click()
Dim NonVide As Boolean

NonVide=verifvide(frmajoutsous)
If NonVide Then
   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 If

End Sub

+

Théo

[MeRc|LeSs]

oui tout a fait correcte ce que tu viens de mettre mais le probléme c'est qu'il connait pas le .Text et le .Setfocus il me donne seulment vr.count et vr.item :s

et il me donne un bug sur le vr.Text

et le bug dit :


Erreur de Compilation :
Methode ou membre de données introuvables

[Theocourant]

Alors sépare les traitements pour les TextBox et les ComboBox

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
For Each vr In frm.Controls
   If TypeOf vr Is TextBox Then
      If vr.Text = "" Then
         MsgBox " une des zones est vide"
         vr.SetFocus
         verifvide=False
     End If
   ElseIf TypeOf vr Is ComboBox 
     If vr.ListIndex = -1 Then
         MsgBox " une des zones est vide"
         vr.SetFocus
         verifvide=False
      End If
   End If
Next
End Function

Et dans ce cas tu regardes la sélection des ComboBox

+

Théo

[zazaraignée]

salut

Et comme ceci:

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
Public Function verifvide(frm As Form) As Boolean
Dim vr As Control

verifvide = True

For Each vr In frm.Controls
   If TypeOf vr Is TextBox Or TypeOf vr Is ComboBox Then
      If vr.Text = "" Then
         MsgBox " une des zones est vide"
         vr.SetFocus
         verifvide = False
      End If
   End If
   Exit For 'sinon autant de boîte de message que de contrôle vide
Next
End Function

[Theocourant]

salut

Et comme ceci:

Code :

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

   Exit For 'sinon autant de boîte de message que de contrôle vide

Encore mieux : je n'y avais pas pensé