Discussion :

[undebutantsuraccess]

Bonjour,

je cherche à faire une boucle pour vérifier que les contrôles de mon formulaire ne soient pas nuls. ( critère qui permet à l'utilisateur d'ajouter un nouvel enregistrement )

J'ai essayé ce code sans succès :
Mes contrôles sont des textbox et des listes déroulantes
J'ai des erreurs de type et de syntaxe, est-ce quelqu'un pourrait m'aider ?

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
Dim ctrl As Control
Dim j as Integer
j=0
 
For Each ctrl In Me.Controls
               If ctrl.Value=null Then
            j=j+1
            End If
Next
 
if j=0
 
    ' ajouter l'enregistrement
 
else 
 
    messageBox("tous les champs doivent être renseigné")
 
end if
 
j=0

Je vous remercie pour votre aide,


Un débutant sur access

[ONTAYG]

Bonjour,

Il faut tester avant le type de contrôle, par exemple si tu tombes sur un bouton de commande ou une étiquette il n'y a pas de propriété value et donc cela plante.

Donc intérresse toi à TypeOf comme sur cet exemple : https://access.developpez.com/faq/?p...ControlRemplis

ONTAYG

[undebutantsuraccess]

Merci beaucoup pour cette réponse,

c'est maintenant fonctionnel mais surtout j'ai compris mon erreur !
Je prends note pour mes prochains essais.

Un débutant sur access