Discussion :

[bestall666]

Hello

Est-il possible de créer une requete ajout parmètrée ?

J'ai testé mais j'obtiens l'erreur "variable objet ou variable de bloc with non définie "

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
 
Set oQdf = db.QueryDefs("qryAjouteFilm")
            oQdf.Parameters("parmTitre").Value = Replace(MonFilm.FTitre, "'", "''")
            oQdf.Parameters("parmTitreVO").Value = MonFilm.FTitreVO
            oQdf.Parameters("parmDurée").Value = Replace(MonFilm.FDurée, "H", ":")
            oQdf.Parameters("parmAnnée").Value = MonFilm.FAnnée
            oQdf.Parameters("ParmRésumé").Value = MonFilm.FRésumé
            Set rst = oQdf.OpenRecordset()

Merci d'avance pour l'aide !!

@++

Bestall666

[FRED.G]

Oui c'est possible.

Vérifie que tu nommes bien tes variables objets DAO comme ceci :

Code :

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

1
2
dim db as DAO.Database
dim oQdf as DAO.Querydef

Ce problème et sa réponse se trouve dans la FAQ. Pense à la consulter.

[bestall666]

Oui c'est possible.

Vérifie que tu nommes bien tes variables objets DAO comme ceci :

Code :

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

1
2
dim db as DAO.Database
dim oQdf as DAO.Querydef

Ce problème et sa réponse se trouve dans la FAQ. Pense à la consulter.

Merci de répondre : en fait j'ai supprimer la référence ado et ajouter seulement dao !!!!!

mais je tente quand meme!!

@++

[bestall666]

Petite précision : le message d'erreur apparait sur la ligne

Code :

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

1
2
Set oQdf = db.QueryDefs("qryAjouteFilm")

En fait le code correct est :

Code :

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

1
2
 
Set oQdf = CurrentDb.QueryDefs("qryAjouteFilm")