OVH Cloud OVH Cloud

Code 2002 vers 2000

6 réponses
Avatar
Jer
Bonjour,=20
J'ai donc import=E9 une base de donn=E9es issue de Access 2002=20
sous Access 2000
Tout semble a priori maintenant fonctionn=E9 (merci pour=20
l'astuce d'hier)
Simplement j'ai sur cette liste d=E9roulante de s=E9lection,=20
un d=E9bogage qui appara=EEt et indique rs =3D nothing
Est ce que ce code est exclussif =E0 la version 2002 ?
Quelle =E9criture pourrait convenir =E0 la version 2000 ?
Merci et bonne journ=E9e
jer

Private Sub Modifiable36_AfterUpdate()
' Rechercher l'enregistrement correspondant au=20
contr=F4le.
Dim rs As Object

Set rs =3D Me.Recordset.Clone
rs.FindFirst "[MAPINFO_ID] =3D " & Str(Nz(Me!
[Modifiable36], 0))
If Not rs.EOF Then Me.Bookmark =3D rs.Bookmark
End Sub

6 réponses

Avatar
Raymond [mvp]
tu donnes la procédure mais le rs = nothing n'apparaît pas dans cette
procédure. tu as du te tomper de liste ?
la syntaxe normale est : Set rs = Nothing
et est reconnu par toutes les versions.

--
@+
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


"Jer" a écrit dans le message de
news:1dd8f01c4550a$73fd23a0$
Bonjour,
J'ai donc importé une base de données issue de Access 2002
sous Access 2000
Tout semble a priori maintenant fonctionné (merci pour
l'astuce d'hier)
Simplement j'ai sur cette liste déroulante de sélection,
un débogage qui apparaît et indique rs = nothing
Est ce que ce code est exclussif à la version 2002 ?
Quelle écriture pourrait convenir à la version 2000 ?
Merci et bonne journée
jer

Private Sub Modifiable36_AfterUpdate()
' Rechercher l'enregistrement correspondant au
contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[MAPINFO_ID] = " & Str(Nz(Me!
[Modifiable36], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Avatar
Jer
il serait possible d'avoir plus d'explications ou
éventuellement un descriptif de ce que je dois faire parce
que le débogage s'ouvre bien sur la ligne
Set rs = Me.Recordset.Clone
(elle devient jaune)
en fait c'est une zone de liste modifiable où je peux
sélectionner le nom d'une commune et alors dans mon
formulaire les informations sur la commune apparaissent
après la mise à jour de cette zone de liste
donc je comprends pas pourquoi ça marche pas
peut être que le problème est lié à la valeur par défaut
de l'enregistrement de cette liste? ici la premiere
commune de ma liste est la premiere selon le code
Mapinfo_ID!
Merci
Affaire à suivre

-----Message d'origine-----
tu donnes la procédure mais le rs = nothing n'apparaît
pas dans cette

procédure. tu as du te tomper de liste ?
la syntaxe normale est : Set rs = Nothing
et est reconnu par toutes les versions.

--
@+
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


"Jer" a écrit dans
le message de

news:1dd8f01c4550a$73fd23a0$
Bonjour,
J'ai donc importé une base de données issue de Access 2002
sous Access 2000
Tout semble a priori maintenant fonctionné (merci pour
l'astuce d'hier)
Simplement j'ai sur cette liste déroulante de sélection,
un débogage qui apparaît et indique rs = nothing
Est ce que ce code est exclussif à la version 2002 ?
Quelle écriture pourrait convenir à la version 2000 ?
Merci et bonne journée
jer

Private Sub Modifiable36_AfterUpdate()
' Rechercher l'enregistrement correspondant au
contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[MAPINFO_ID] = " & Str(Nz(Me!
[Modifiable36], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


.



Avatar
Raymond [mvp]
je préfère cette erreur.
la procédure n'a rien d'anormal dans sa construction. on dirait qu'access ne
reconnaît pas la source du formulaire ou que le formulaire n'en a pas ou que
tu as changé la source du formulaire.
as-tu vérifié, au cas où, si tes reférences étaient bonnes ?
pour faire un essai, supprime cette liste modifiable et son code.
crée une nouvelle liste modifiable avec l'option 3 recherche
d'enregistrement.
est-ce que ça marche ?
--
@+
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


"Jer" a écrit dans le message de
news:1e00701c4552a$5c7c8bb0$
il serait possible d'avoir plus d'explications ou
éventuellement un descriptif de ce que je dois faire parce
que le débogage s'ouvre bien sur la ligne
Set rs = Me.Recordset.Clone
(elle devient jaune)
en fait c'est une zone de liste modifiable où je peux
sélectionner le nom d'une commune et alors dans mon
formulaire les informations sur la commune apparaissent
après la mise à jour de cette zone de liste
donc je comprends pas pourquoi ça marche pas
peut être que le problème est lié à la valeur par défaut
de l'enregistrement de cette liste? ici la premiere
commune de ma liste est la premiere selon le code
Mapinfo_ID!
Merci
Affaire à suivre
Avatar
Eric
Bonjour,

Ton erreur vient de :
Set rs = Me.Recordset.Clone

tu dois mettre :
Set rs = Me.RecordsetClone

pas de point entre Recordset et Clone

A+
Eric

"Jer" écrivait news:1e00701c4552a
$5c7c8bb0$:

il serait possible d'avoir plus d'explications ou
éventuellement un descriptif de ce que je dois faire parce
que le débogage s'ouvre bien sur la ligne
Set rs = Me.Recordset.Clone
(elle devient jaune)
en fait c'est une zone de liste modifiable où je peux
sélectionner le nom d'une commune et alors dans mon
formulaire les informations sur la commune apparaissent
après la mise à jour de cette zone de liste
donc je comprends pas pourquoi ça marche pas
peut être que le problème est lié à la valeur par défaut
de l'enregistrement de cette liste? ici la premiere
commune de ma liste est la premiere selon le code
Mapinfo_ID!
Merci
Affaire à suivre

-----Message d'origine-----
tu donnes la procédure mais le rs = nothing n'apparaît
pas dans cette

procédure. tu as du te tomper de liste ?
la syntaxe normale est : Set rs = Nothing
et est reconnu par toutes les versions.

--
@+
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


"Jer" a écrit dans
le message de

news:1dd8f01c4550a$73fd23a0$
Bonjour,
J'ai donc importé une base de données issue de Access 2002
sous Access 2000
Tout semble a priori maintenant fonctionné (merci pour
l'astuce d'hier)
Simplement j'ai sur cette liste déroulante de sélection,
un débogage qui apparaît et indique rs = nothing
Est ce que ce code est exclussif à la version 2002 ?
Quelle écriture pourrait convenir à la version 2000 ?
Merci et bonne journée
jer

Private Sub Modifiable36_AfterUpdate()
' Rechercher l'enregistrement correspondant au
contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[MAPINFO_ID] = " & Str(Nz(Me!
[Modifiable36], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


.






Avatar
Raymond [mvp]
heureusement que tu es là, je n'ai pas vu le point et je n'étais pas prêt de
le voir. s'il a recréé la liste ça doit marcher maintenant. Attendons
l'hypothétique feedback.
--
@+
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


"Eric" a écrit dans le message de
news:
Bonjour,

Ton erreur vient de :
Set rs = Me.Recordset.Clone

tu dois mettre :
Set rs = Me.RecordsetClone

pas de point entre Recordset et Clone


Avatar
Eric
Bonjour Raymond,

"Raymond [mvp]" écrivait
news:ecMdG#:

heureusement que tu es là, je n'ai pas vu le point et je n'étais pas
prêt de le voir. s'il a recréé la liste ça doit marcher maintenant.
Attendons l'hypothétique feedback.



Sur le post du départ, je m'etais moi aussi fixé sur le rs= Nothing.
J'allais répondre et j'ai vu arriver ta réponse donc j'ai shunté. Ce n'est
qu'après son reply et connaissant les qualités de tes réponses qu'etonné,
j'ai tout relu. Et ... , j'ai vu le point à la volée. ;-)

S'il a recréé c'est clair que ca marchera.

A+
Eric