Bonjour a tous ,
lors de l'exécution du code si dessous, j'ai un message
"Aucun enregistrements en cours"
il est vrai qu'actuellement tous les sfml ne contiennent pas encore tous des données, et ne peuvent dès lors écrire la valeur qui devra être recopié plus loin dans le code, info : actuellement, quelques sfml sont remplis...

comment faire pour ne plus avoir ce message quand il n'y a pas de données dans ces listes et qu'il termine le code ?

en vous remerciant

Marcmarc

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
22
23
24
25
26
 
'auditeur suivant
'-----------------
DoCmd.GoToRecord , , acNext
'prendre dernière formation de l'auditeur
'---------------------------------------
 
Me.sfml_rq_dernière_audit_form_1.Form.Recordset.MoveLast
Me.sfml_rq_dernière_audit_form_2.Form.Recordset.MoveLast
Me.sfml_rq_dernière_audit_form_3.Form.Recordset.MoveLast
Me.sfml_rq_dernière_audit_form_4.Form.Recordset.MoveLast
Me.sfml_rq_dernière_audit_form_5.Form.Recordset.MoveLast
Me.sfml_rq_dernière_audit_form_6.Form.Recordset.MoveLast
 
'ecrire valeur dans competence isots16949
'---------------------------------------
Me.compétence_iso_ts_16949_auditeur = Me.Texte151.Value
Me.date_compétence_iso_ts_16949_auditeur = Me.Texte68.Value
'ecrire valeur dans competence iso14001
'---------------------------------------
Me.compétence_iso_14001_auditeur = Me.Texte153.Value
Me.date_compétence_iso_14001_auditeur = Me.Texte76.Value
'ecrire valeur dans competence ohsas18001
'---------------------------------------
Me.compétence_ohsas_18001_auditeur = Me.Texte155.Value
Me.date_compétence_ohsas_18001_auditeur = Me.Texte84.Value