Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Creation de requetes

4 réponses
Avatar
inno
Bonjour,
apres passe mon appli access 2000 sous en version projet
pour sql serveur 2000, le code que j utilisais pour la
creation de requete ne marche plus.

Dim requete As QueryDef

Set Mabase = CurrentDb()
Mabase.QueryDefs.Refresh
For Each requete In Mabase.QueryDefs
If requete.Name = "Requete1" Then
Mabase.QueryDefs.Delete requete.Name
Mabase.QueryDefs.Refresh
End If
Next requete

quelqu un aurait il une idee de la marche a suivre pour
arriver au mm resultat et creer des requetes via vba.

d'avance merci

4 réponses

Avatar
Jessy Sempere [MVP]
Bonjour

Vérifis que dans ton projet, tu as bien la référence :

"Microsoft DAO 3.xx Object Library"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"inno" a écrit dans le message news:
064301c3dab4$21d32500$
Bonjour,
apres passe mon appli access 2000 sous en version projet
pour sql serveur 2000, le code que j utilisais pour la
creation de requete ne marche plus.

Dim requete As QueryDef

Set Mabase = CurrentDb()
Mabase.QueryDefs.Refresh
For Each requete In Mabase.QueryDefs
If requete.Name = "Requete1" Then
Mabase.QueryDefs.Delete requete.Name
Mabase.QueryDefs.Refresh
End If
Next requete

quelqu un aurait il une idee de la marche a suivre pour
arriver au mm resultat et creer des requetes via vba.

d'avance merci


Avatar
j ai bien la refence Microsoft DAO 3.6 Object Library
de cochée
Avatar
PatBurn
Essai de spécifier que c'est bien DAO
ex:
dim requete as DAO.qrydef




"inno" a écrit dans le message de
news:064301c3dab4$21d32500$
Bonjour,
apres passe mon appli access 2000 sous en version projet
pour sql serveur 2000, le code que j utilisais pour la
creation de requete ne marche plus.

Dim requete As QueryDef

Set Mabase = CurrentDb()
Mabase.QueryDefs.Refresh
For Each requete In Mabase.QueryDefs
If requete.Name = "Requete1" Then
Mabase.QueryDefs.Delete requete.Name
Mabase.QueryDefs.Refresh
End If
Next requete

quelqu un aurait il une idee de la marche a suivre pour
arriver au mm resultat et creer des requetes via vba.

d'avance merci


Avatar
Charles ERNST
Si c'est des vues et des procédures stockées pour SQL Serveur, on ne peut
pas créer des querydefs....
faut aller voir du côté des views, méthode append ou l'objet procedure...



"inno" a écrit dans le message de
news:064301c3dab4$21d32500$
Bonjour,
apres passe mon appli access 2000 sous en version projet
pour sql serveur 2000, le code que j utilisais pour la
creation de requete ne marche plus.

Dim requete As QueryDef

Set Mabase = CurrentDb()
Mabase.QueryDefs.Refresh
For Each requete In Mabase.QueryDefs
If requete.Name = "Requete1" Then
Mabase.QueryDefs.Delete requete.Name
Mabase.QueryDefs.Refresh
End If
Next requete

quelqu un aurait il une idee de la marche a suivre pour
arriver au mm resultat et creer des requetes via vba.

d'avance merci