Discussion :

[Herman]

Bonjour,

J'obtiens un message d'erreur 3021, Aucun enregistrement en cours en executant ce code (l'erreur surgit sur la ligne du if):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set rstDU15 = db.OpenRecordset("SELECT IdxDanger, intitule_action, etat_avancement FROM tbl_action WHERE IdxDanger =  " & rstDU8.Fields(0) & " ")
 
If rstDU15.Fields("etat_avancement") = "Cloturée" Then
 
sql3 = "INSERT INTO tbl_mesure_existante (Idxdanger, description) SELECT " & _
rstDU7.Fields(0) & ", intitule_action FROM tbl_action WHERE IdxDanger =  " & rstDU8.Fields(0) & ""

Pourtant, si je fais un Msgbox de rstDU15.Fields("etat_avancement"), il me renvoie bien la valeur "cloturée".

Quelqu'un sait d'ou cela peut venir ?

Merci d'avance

[jfc]

En déboguant as-tu bien l'erreur 3021 sur la clause if. Mois je pense que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT " & _
rstDU7.Fields(0) & ", intitule_action FROM tbl_action WHERE IdxDanger =  " & rstDU8.Fields(0) & ""

ne te retourne aucun un enregistrement.

[Kalvin_20]

tu peux rajouter un test avec ton if pour voir si tu as des enregistrements ou pas , à l'aide de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RS.EOF

Cordialement