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 recordset sur access2000

recordset sur access2000

2 réponses
Avatar
loisel
bonjour,

j'essaye de faire un recorset sur access 2000,et je n'y=20
arrives pas....il y a t'il eu des changement par rapport=20
=E0 access 97?

code 97 qui marche

Set DB =3D CurrentDb=20

'/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
///////////////////////////////=20
'//////////////////////////////////////////recuperation=20
des valeurs =E0 mettre =E0 jour de la table=20
APO////////////////////////////////////////////////=20
'/////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
///////////////////////////////=20
sSQL_A_Rappocher =3D "SELECT APO.Coche_Apo, APO.Apo_Clef,=20
APO.Apo_Clef_Rappro, APO.Date_Rglmt, APO.act_lib_court,=20
APO.ta_libelle, APO.t_tt_intitule, APO.tr_qte,=20
APO.tr_mnt_dev_cot FROM APO WHERE (((APO.Coche_Apo)=3D-1)=20
AND ((APO.Apo_Clef_Rappro)=3D'xxxxxxxxxxxxxxxxxxxx'));"=20

Set RS =3D DB.OpenRecordset(sSQL_A_Rappocher)=20
If RS.BOF =3D True Then=20
Rafraichir=20
Set RS =3D Nothing=20



code 2000 qui bloque (parametre non d=E9finis)

Dim rs As New ADODB.Recordset 'definition du recorset

=20

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''ceation msgbox qui fait la=20
diff=E9rence entre les lignes rapproch=E9es''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''

=20

'''''''''''''''''''''''''cot=E9 table compte=20
ch=E8que2'''''''''''''''''''''''''''''''''''''''''

=20

sSQL_A_Rappocher =3D "SELECT Rqy_Banque.Date,=20
Rqy_Banque.Numero_d_operation, Rqy_Banque.Libell=E9,=20
Rqy_Banque.D=E9bit, Rqy_Banque.Cr=E9dit, Rqy_Banque.[Num=20
Compte], Rqy_Banque.Compte, Rqy_Banque.Coche,=20
Rqy_Banque.Clef_rappro,FROM Rqy_Banque WHERE=20
(((Rqy_Banque.[Num Compte])=3D[Formulaires]!
[Formulaire_demarrage]![Compte]) AND ((Rqy_Banque.Coche)=3D-
1) AND ((Rqy_Banque.Clef_rappro) Is Null));"

'recup=E9ration des donn=E9es dans le form non rapproch=E9=20
banque

=20

rs.Open sSQL_A_Rappocher,=20
CurrentProject.Connection 'ouverture du recordset sur=20
sSQL_A_Rappocher =20


j'ai pourtant utiliser ce code pour ouvrir un recordset=20
sur une table, et =E7a avait march=E9

ne connaissant pas trop access 2000 pouvez vous me donner=20
des infos compl=E9mentaires 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
test
test
-----Message d'origine-----
bonjour,

j'essaye de faire un recorset sur access 2000,et je n'y
arrives pas....il y a t'il eu des changement par rapport
à access 97?

code 97 qui marche

Set DB = CurrentDb

'////////////////////////////////////////////////////////
/

/////////////////////////////////////////////////////////
/

///////////////////////////////
'//////////////////////////////////////////recuperation
des valeurs à mettre à jour de la table
APO////////////////////////////////////////////////
'////////////////////////////////////////////////////////
/

/////////////////////////////////////////////////////////
/

///////////////////////////////
sSQL_A_Rappocher = "SELECT APO.Coche_Apo, APO.Apo_Clef,
APO.Apo_Clef_Rappro, APO.Date_Rglmt, APO.act_lib_court,
APO.ta_libelle, APO.t_tt_intitule, APO.tr_qte,
APO.tr_mnt_dev_cot FROM APO WHERE (((APO.Coche_Apo)=-1)
AND ((APO.Apo_Clef_Rappro)='xxxxxxxxxxxxxxxxxxxx'));"

Set RS = DB.OpenRecordset(sSQL_A_Rappocher)
If RS.BOF = True Then
Rafraichir
Set RS = Nothing



code 2000 qui bloque (parametre non définis)

Dim rs As New ADODB.Recordset 'definition du recorset



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'

''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''ceation msgbox qui fait la
différence entre les lignes rapprochées''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'

''''''''''''''''''''''''''''''''''



'''''''''''''''''''''''''coté table compte
chèque2'''''''''''''''''''''''''''''''''''''''''



sSQL_A_Rappocher = "SELECT Rqy_Banque.Date,
Rqy_Banque.Numero_d_operation, Rqy_Banque.Libellé,
Rqy_Banque.Débit, Rqy_Banque.Crédit, Rqy_Banque.[Num
Compte], Rqy_Banque.Compte, Rqy_Banque.Coche,
Rqy_Banque.Clef_rappro,FROM Rqy_Banque WHERE
(((Rqy_Banque.[Num Compte])=[Formulaires]!
[Formulaire_demarrage]![Compte]) AND ((Rqy_Banque.Coche)
=-

1) AND ((Rqy_Banque.Clef_rappro) Is Null));"

'recupération des données dans le form non rapproché
banque



rs.Open sSQL_A_Rappocher,
CurrentProject.Connection 'ouverture du recordset sur
sSQL_A_Rappocher


j'ai pourtant utiliser ce code pour ouvrir un recordset
sur une table, et ça avait marché

ne connaissant pas trop access 2000 pouvez vous me
donner

des infos complémentaires merci?




.



Avatar
3stone
Salut,

sans regarder de près... ;-)

"loisel"

[...]
sSQL_A_Rappocher = "SELECT Rqy_Banque.Date,
Rqy_Banque.Numero_d_operation, Rqy_Banque.Libellé,
Rqy_Banque.Débit, Rqy_Banque.Crédit, Rqy_Banque.[Num
Compte], Rqy_Banque.Compte, Rqy_Banque.Coche,
Rqy_Banque.Clef_rappro,FROM Rqy_Banque WHERE
(((Rqy_Banque.[Num Compte])=[Formulaires]!
[Formulaire_demarrage]![Compte]) AND ((Rqy_Banque.Coche)=-
1) AND ((Rqy_Banque.Clef_rappro) Is Null));"



Le SQL ne connait pas de "Formulaires", uniquement des "Forms"



--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome