Recupération de requete à l'aide de recorsdet

Question

Bonjour,
j'essaie de recuperer le contenu d'une requete SQL dans une variable à l'aide de recordset.
Voici mon code :

Private Sub Form_Load()


Dim DB As Database
Dim Rs1 As Recordset
Dim Sql As String


Set DB = CurrentDbSql "SELECT piece.codets FROM piece INNER JOIN fiche ON piece.codepiece fiche.codepiece WHERE (((fiche.codefiche) = [Forms]![modiffiche]![codefiche]))"
Set Rs1 = DB.OpenRecordset(Sql)
Rs1.Close
Set Rs1 = Nothing


End Sub

J'ai une erreur au niveau de  """""Set Rs1 = DB.OpenRecordset(Sql)"""""
-------> trop peu d'argument.1 attendu

en theorie OpenRecordset possede un argument obligatoire et les 3autres sont facultatifs, merci de me dire où il y aurait un probleme.

chaibat05 · Answer

Bonjour,
Set Rs1 =  DB.OpenRecordset(Sql, dbOpenSnapshot )
Si c' est uniquement pour visualiser
Set Rs1  = DB.OpenRecordset(Sql,dbOpenDynaset)
Si tu veux intervenir au niveau des données (Ajouter,Modfier,Supprimer)

cs_GigaCool · Answer

J'ai eu le même problème une fois ! Apparemment dans mon cas le nom du contrôle n'était pas reconnu ( [Forms]![Modiffiche]... ici) Pour y remedier j'avais créer une var globale qui prenait la valeur du contrôle puis ton sql deviendrait :
Dans ton formulaire Modiffiche , fais : MaVarGlobale = CodeFiche ' en ayant crée une var globale MaVarGlobale dans un module.
Sql =" Select... where(((Fiche.codefiche) = " & MaVarGlobale & "));"

Recupération de requete à l'aide de recorsdet

2 réponses

Votre réponse

Discussions similaires