Discussion :

[cyb33]

Bonjour,

J'ai créé une requête dans accès (Elle fonctionne très bien) puis j'ai copié le code SQL pour le coller dans le module d'un rapport à éxécuter lors de son ouverture.

Lorsque le rapport lance la procédure, l'erreur 2342 apparaît, il s'agit de :

"Une action ExécuterSQL nécéssite un argument consistant en une instruction SQL"

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Report_Open(Cancel As Integer)
Dim strSQL As String
 
strSQL = "SELECT tbl_Journal.jou_Id, tbl_Vehicules.veh_Type, tbl_Sorte.sor_Sorte, tbl_Trafic.tra_Trafic, tbl_Lieu.lieu_Lieu, tbl_Journal.jou_DateDebut, tbl_Journal.jou_HeureDebut, tbl_Journal.jou_DateFin, tbl_Journal.jou_HeureFin, tbl_Journal.jou_Bis, tbl_Journal.jou_DpAvise, tbl_Journal.jou_NoVehicule, tbl_Journal.jou_NoSAP, tbl_Journal.jou_StatutSAP, tbl_Journal.jou_rep, tbl_Journal.jou_remarque, tbl_Journal.jou_CeresOkBis, tbl_Journal.jou_Suivi, tbl_Journal.jou_CeresOk, tbl_Journal.jou_Suppr, tbl_Journal.jou_Termine, tbl_Journal.jou_veh_Id, tbl_Journal.jou_sor_Id, tbl_Journal.jou_tra_Id, tbl_Journal.jou_lieu_Id "
strSQL = strSQL & "FROM tbl_Vehicules INNER JOIN (tbl_Trafic INNER JOIN (tbl_Sorte INNER JOIN (tbl_Lieu INNER JOIN tbl_Journal ON tbl_Lieu.lieu_Id = tbl_Journal.jou_lieu_Id) ON tbl_Sorte.sor_Id = tbl_Journal.jou_sor_Id) ON tbl_Trafic.tra_Id = tbl_Journal.jou_tra_Id) ON tbl_Vehicules.veh_Id = tbl_Journal.jou_veh_Id "
strSQL = strSQL & "WHERE (((tbl_Trafic.tra_Trafic)='Agenda FV') AND ((tbl_Journal.jou_DateDebut)=#1/12/2009#));"
 
DoCmd.RunSQL strSQL
 
End Sub

Qu'y a-t-il de faux ? faut-il ajouter des références ?

Merci d'avance pour toute l'aide que je recevrai.

[Jean-Philippe André]

salut,
lorsque tu effectues une requête, il en existe 2 types :
- requête sélection (SELECT FROM WHERE)
- requête action (SELECT INTO FROM WHERE, UPDATE, DELETE, INSERT, etc.)

Dans ton exemple, il s'agit d'une requête sélection. Aussi il te faut un Recordset qui sert de récipient, et ton code deviendra donc :
avec DAO :

Code :

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

1
2
3
Dim RS as DAO.RecordSet
strSQL = "XXX"
Set RS = CurrentDb.OpenRecordSet(strSQL)

avec ADODB

Code :

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

1
2
3
Dim RS as New ADODB.recordSet
strSQL = "XXX"
RS.Open strSQL, CurrentProject.Connection

[cyb33]

Super ça marche encore Merci et A+