[VBA/access]validation des champs d'un formulaire access

Version imprimable

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:

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

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:

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+

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

Code:

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