Discussion :

[jeo13]

Bonjour a tous,

J'ai mis en place un code afin de pouvoir comparer deux valeurs issus d'une requete

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
 Dim strSql3 As String
 
strSql3 = "SELECT tbl_History.Nummodif, tbl_History.DateModif, tbl_History.UserModif, tbl_History.Remarks, tbl_History_Before.Remarks, tbl_History.ClientRadical FROM tbl_History INNER JOIN tbl_History_Before ON tbl_History.Nummodif = tbl_History_Before.Nummodif;"
 
 Dim rs3 As dao.Recordset
 Set rs3 = CurrentDb.OpenRecordset(strSql3)
 
 
If rs3.Fields("tbl_History_Before.Remarks").Value = rs3.Fields("tbl_History.Remarks").Value Then
DoCmd.OpenQuery "qry_delete_HistoryBefore"
Else
DoCmd.RunMacro "mcr_History"
End If
 
 rs3.Close

lorsque j'exécute le code les commandes sont bien effectuées mais j'ai une erreur (en anglais désolé) erreur 3021: No Current record.

sur la ligne en gras: If rs3.Fields("tbl_History_Before.Remarks").Value = rs3.Fields("tbl_History.Remarks").Value

Savez-vous d'ou ca peut venir?
Merci !

[mikeGo20]

Essaie avec

Code :

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

1
2
3
4
5
 
If rs3.Recorcount>0 then
   If rs3![tbl_History_Before].Remarks=rs3![tbl_History].Remarks Then ...
 
EndIf

[jeo13]

Merci beaucoup, ca marche !

Effectivement, auparavant la requete ne retournait pas de résultat d'ou aucun enregistrement (no current record)

Juste une précision pour ceux que ca pourrait intéresser c'est

Code :

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

RecordCount

. Tu avais fait une petite faute d'orthographe.

[mikeGo20]

Ouppsssss ....