[AC-2007] Rédaction d'un test de vérification avec des champs définis

[Oliv'83]

Bonsoir à tous,

J'ai un formulaire pour lequel je souhaiterai vérifier que certains champs soient bien renseignés avant de valider l'inscription.

J'ai trouvé sur le forum la solution suivante par Philippe JOCHMANS :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub TestCtrl()
Dim Ctrl As control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Value = "" Or IsNull(Ctrl.Value) Then
                MsgBox "Toutes les cases doivent être renseignées", vbOKOnly + vbExclamation, "Sélection"
                Ctrl.SetFocus
                Exit Sub
            End If
        End If
    Next Ctrl
End Sub

Seulement moi je souhaite vérifier seulement une partie des Textbox j'ai donc pensé qu'il fallait mettre :

Code :

    For Each Ctrl In Me.Controls!NomClient or Me.Controls!PrenomClient or Me.Controls![Date début] or Me.Controls![Date fin])

Mais Access n'aime pas du tout ma syntaxe. Je ne vois pas comment rédiger ma liste autrement alors si quelqu'un peut me venir en aide je lui serai reconnaissant.

Bonne soirée

Oliv'

[keita]

bonjour
Puisque tu n'as que 4 ou 5 controls à vérifier, tu pourrais peut etre faire une serie de If...End If non?
comme ceci:

Code :

1
2
3
4
 If isnull(Me!NomClient) Then
  msgbox "Le nom du client.....",vbexclamation,"monAppli"
  exit sub
End if

Faire ça pour les 5 controls; non?
@+

[Philippe JOCHMANS]

Bonjour

Je pense que tu n'as pas compris le principe des collection.

Dans cette ligne

Code :

 For Each Ctrl In Me.Controls

On passe en revu tous les contrôles du formulaire en cours, hors ce que tu écris ici

Code :

Me.Controls!NomClient

n'a aucun sens, car tu ne trouves qu'un contrôle.

Par contre ce que tu peux faire c'est jouer sur la propriété Name du contrôle.

Voici un exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Name = "NomClient" Or Ctrl.Name = "PrenomClient" Then
                If Ctrl.Value = "" Or IsNull(Ctrl.Value) Then
                    MsgBox "Il manque des informations", vbOKOnly + vbExclamation, "Sélection"
                    Ctrl.SetFocus
                    Exit Sub
                End If
            End If
        End If
    Next Ctrl

Une autre solution plus judicieuse est de créer une fonction où tu passes en paramètre le nom de la zone de texte et le nom du formulaire, et qui renvoie un booléen (de type Vrai Faux).

Il faut tester le résultat de cette fonction par une suite de If, l'avantage si tu as pleins de formulaires tu auras une fonction qui fait tout.


Philippe

[Oliv'83]

Bonjour Keita, bonjour Philippe,

Merci de vos aides respectives

Keita ta solution ne me convient pas complètement car je ne pourrais pas l'adapter (ou alors avec de fortes contraintes) si un jour j'ai un test sur de nombreux champs à faire. Merci quand même

Philippe, je pense que je vais tenter ta solution.

Envoyé par Philippe JOCHMANS

Je pense que tu n'as pas compris le principe des collection.

Dans cette ligne

Code :

 For Each Ctrl In Me.Controls

On passe en revu tous les contrôles du formulaire en cours, hors ce que tu écris ici

Code :

Me.Controls!NomClient

n'a aucun sens, car tu ne trouves qu'un contrôle.

Je pensais que si on établissait une liste des contrôles à vérifier le passage en revue se faisait au sein de cette liste, du moins je l'espérais...

Envoyé par Philippe JOCHMANS

Par contre ce que tu peux faire c'est jouer sur la propriété Name du contrôle.

Merci pour cette piste et ton exemple que je vais essayer d'adapter de ce pas.

Envoyé par Philippe JOCHMANS

Une autre solution plus judicieuse est de créer une fonction où tu passes en paramètre le nom de la zone de texte et le nom du formulaire, et qui renvoie un booléen (de type Vrai Faux).

Il faut tester le résultat de cette fonction par une suite de If, l'avantage si tu as pleins de formulaires tu auras une fonction qui fait tout.
Philippe

Je ne suis pas sur d'être encore "au niveau" pour arriver à ce que tu préconises ma difficulté étant de faire passer le non des champ à contrôler à la fonction.

En tout cas merci beaucoup

Oliv'

[keita]

bonjour
Dans ce cas ceci devrais suffire;non?

Code :

1
2
3
4
5
6
7
8
9
10
Dim Ctrl As Control
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Value = "" Or IsNull(Ctrl.Value) Then
                    MsgBox "Il manque des informations ici: " & Ctrl.name, vbOKOnly + vbExclamation, "Sélection"
                    Ctrl.SetFocus
                    Exit Sub
            End If
        End If
    Next Ctrl

@+