Discussion :

[SophiePops]

Bonjour a vous-

J'essaye depuis un petit moment de resoudre un probleme de boucle sur les ctrl ... sans y arriver ...

Situation:
j'ai une MAIN_FORM a laquelle est associe une SUB_FORM de type datasheet.
Les donnees sont a vide et l'utilisateur va saisir des informations

Lorsque que l'utilisateur "sort" de cette SUB_FORM apres avoir saisi de 1 a n lignes, je souhaiterai balayer l'ensemble des donnees saisies pour verifier leur presence et validite
Si une donnee manque (sur n'importe quelle ligne, je souhaiterai faire un .setfocus sur le champ en erreur (qui peut bien entendu se situer a la 1ere ou Neme ligne et sur le 1er champ ou le Neme champ)

D'apres mes lectures, jJ'ai comme l'impression que je dois utiliser un RecordSet ... mais j'avoue ne pas savoir le faire, ni meme comprendre ou je dois coder tout cela ..
Merci bcp

[loufab]

Bonjour,

En effet tu dois parcourir le recordset du sous formulaire, 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
17
dim rst as dao.recordset
dim fld as dao.field
 
set rst = me.recordset
rst.movefirst
while not rst.eof  'parcours les enregistrements
     for each fld in rst.fields   ' parcours les champs
          if isnull(fld.values) then  'le champ est vide
             me.controls(fld.name).sefocus
             msgbox "c'est vide"
             exit sub
          endif
     next
     rst.movenext   'passe au prochain enregistrement
wend
set fld = nothing
set rst = nothing

me est le formulaire local, donc si tu mets ce code dans le module du sous-form il y fera référence.
les contrôles doivent porter le même nom que les champs de la source.
Cordialement,

[SophiePops]

Parfait ... Merci beaucoup pour cette presentation rapide et claire ....