Discussion :

[hoaxpunk]

bonjour,

voila j'ai un formulaire avec des labels, des combo et des champs texte, et bien sur un bouton valider ^^.

je voudrais faire une verification de formulaire. seulement je voudrais evité de faire des "If" par 20aine (j'ai bcp de champs a remplir dans mon formulaire).

j'ai essayé ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For Each ComboBox In Form_ss_saisie_BDC
If (ComboBox.Value= "") Then
   MsgBox ("vous devez remplir le champs " & ComboBox.Name)
   End If
Next
For Each TextBox In Form_ss_saisie_BDC
If (TextBox.Value = "") Then
   MsgBox ("vous devez remplir le champs " & TextBox.Name)
   End If
Next

seulement j'ai des erreurs de methodes non reconnues par les objets(ComboBox.Value) par exmple.

quelqu'un aurais une facon de faire en sorte que mes combo et mes txt soient validés simplement ?

merci de votre aide

[LedZeppII]

Bonjour,

Il faut parcourir la collection Controls et tester le type de chaque contrôle.
Un exemple pour vérifier les TextBox et ComboBox d'un sous-formulaire sfmClients

Code vb :

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
Private Sub cmdValider_Click()
Dim obj As Object, Ctl As Access.Control, strChps As String
 
Set obj = Me.sfmClients
' Pour le formulaire remplacer par
' Set obj = Me.Form
For Each Ctl In obj.Controls
  Select Case Ctl.ControlType
     Case acTextBox
       If Nz(Ctl.Value) = "" Then
          strChps = strChps & IIf(strChps = "", "", vbCrLf) & Ctl.Name
       End If
     Case acComboBox
       If Nz(Ctl.Value) = "" Then
          strChps = strChps & IIf(strChps = "", "", vbCrLf) & Ctl.Name
       End If
  End Select
Next
If strChps <> "" Then
   MsgBox strChps, , "Veuillez remplir ..."
End If
End Sub

A+

[hoaxpunk]

merci j'ai fait un peu dans le meme genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For Each MyObjects In Form_ss_saisie_BDC
'si le nom de l'objet commence par cmb ou txt
If (Left(MyObjects.Name, 3) = "Cmb") Or (Left(MyObjects.Name, 3) = "Txt") Then
    'si la value de l'objet est nulle
    If IsNull(MyObjects.Value) Then
        'on affiche un message
        MsgBox ("vous devez remplir le champs " & MyObjects.Name)
        'on sort de la procedure
        Exit Sub
    End If
End If
'objet suivant
Next