Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access pb code access 97 passé en 2000

pb code access 97 passé en 2000

2 réponses
Avatar
Guy
Bonjour g un pb avec du code acces97 ki marche bien qui=20
pass=E9 en 2000 ne marche plus!

Sub Requete_F_Principal(ByVal NO As String, ByVal RO As=20
String)

On Error GoTo ErreurRequete_F_Principal

Dim MaBD As Database, MaRequ=EAte As QueryDef, ListeReq=20
As Recordset
Dim Crit=E8re As String, ReqSql As String

'Set MaBD =3D DBEngine.Workspaces(0).Databases(0)
Set MaBD =3D CurrentDb
Set MaRequ=EAte =3D MaBD.CreateQueryDef
("RF_Principal") ' Cr=E9e la requ=EAte.
Set ListeReq =3D MaBD.OpenRecordset("T_Requetes",=20
dbOpenSnapshot)

Crit=E8re =3D "([N=B0Requete] =3D 2)"

ListeReq.FindFirst Crit=E8re

ReqSql =3D ListeReq.SQL & NO & ListeReq.SQL2 & RO &=20
ListeReq.SQL3 '<<<<<<il di que l'erreur est la membre de=20
methode ou de donn=E9es introuvable

MaRequ=EAte.SQL =3D ReqSql

Exit Sub
=20
ErreurRequete_F_Principal:
MaBD.DeleteQueryDef "RF_Principal"
Set MaRequ=EAte =3D MaBD.CreateQueryDef
("RF_Principal") ' Cr=E9e la requ=EAte.
Resume Next

End Sub

c'et peut- etre un pb de syntax?

merci

+
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI [mvp]
bonjour
il faut que tu charges la réf microsoft dao 3.xx
et que tu la palce avant la ADO
ou tu ajoute dao devant les objets
exemmple
DAO.DataBase

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Guy" a écrit dans le message de news:1fd501c4a78c$cfad7d10$
Bonjour g un pb avec du code acces97 ki marche bien qui
passé en 2000 ne marche plus!

Sub Requete_F_Principal(ByVal NO As String, ByVal RO As
String)

On Error GoTo ErreurRequete_F_Principal

Dim MaBD As Database, MaRequête As QueryDef, ListeReq
As Recordset
Dim Critère As String, ReqSql As String

'Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaBD = CurrentDb
Set MaRequête = MaBD.CreateQueryDef
("RF_Principal") ' Crée la requête.
Set ListeReq = MaBD.OpenRecordset("T_Requetes",
dbOpenSnapshot)

Critère = "([N°Requete] = 2)"

ListeReq.FindFirst Critère

ReqSql = ListeReq.SQL & NO & ListeReq.SQL2 & RO &
ListeReq.SQL3 '<<<<<<il di que l'erreur est la membre de
methode ou de données introuvable

MaRequête.SQL = ReqSql

Exit Sub

ErreurRequete_F_Principal:
MaBD.DeleteQueryDef "RF_Principal"
Set MaRequête = MaBD.CreateQueryDef
("RF_Principal") ' Crée la requête.
Resume Next

End Sub

c'et peut- etre un pb de syntax?

merci

+
Avatar
Raymond [mvp]
Bonjour.

la propriété Sql n'est pas supportée par le recordset mais par le QueryDef.
si tu veux récupérer le sql de Listereq il faut que ListeReq soit une
QueryDef.
profite de la modif pour mettre DAO. devant database et recordset et
querydef
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Guy" a écrit dans le message de news:
1fd501c4a78c$cfad7d10$
Bonjour g un pb avec du code acces97 ki marche bien qui
passé en 2000 ne marche plus!

Sub Requete_F_Principal(ByVal NO As String, ByVal RO As
String)

On Error GoTo ErreurRequete_F_Principal

Dim MaBD As Database, MaRequête As QueryDef, ListeReq
As Recordset
Dim Critère As String, ReqSql As String

'Set MaBD = DBEngine.Workspaces(0).Databases(0)
Set MaBD = CurrentDb
Set MaRequête = MaBD.CreateQueryDef
("RF_Principal") ' Crée la requête.
Set ListeReq = MaBD.OpenRecordset("T_Requetes",
dbOpenSnapshot)

Critère = "([N°Requete] = 2)"

ListeReq.FindFirst Critère

ReqSql = ListeReq.SQL & NO & ListeReq.SQL2 & RO &
ListeReq.SQL3 '<<<<<<il di que l'erreur est la membre de
methode ou de données introuvable

MaRequête.SQL = ReqSql

Exit Sub

ErreurRequete_F_Principal:
MaBD.DeleteQueryDef "RF_Principal"
Set MaRequête = MaBD.CreateQueryDef
("RF_Principal") ' Crée la requête.
Resume Next

End Sub

c'et peut- etre un pb de syntax?

merci

+