Discussion :

[lerorodu51]

bonjour , voilà je veux créer un lien entre ma liste déroulante et mon sous-formulaire , voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
 
Option Explicit
 
Private Sub Modifiable0_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[id_article] = " & Str(Nz(Me![Modifiable0], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Il me dit que j'ai un probleme au niveau du

Code :

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

Set rs = Me.Recordset.clone

[psykodumarteau]

Bonjour,

Tu as essayé de déclarer rs comme un recordset ? Personnellement j'utilise Me.recordset.Clone est ça marche plutot bien.

Cordialement

[lerorodu51]

Sérieusement , j'ai pris ce code sur la FAQ donc j'ai rien essayé de faire . Je n'ai pas compris quand tu dis

Personnellement j'utilise Me.recordset.Clone est ca marche plutot bien.

C'est ce qu'il y a dans mon code , non ?

[psykodumarteau]

Oui c'est pour ça, je suis étonné que ça ne marche pas chez toi. Tu peux commencer par déclarer rs comme un recordset. Juste une question bête mais ton formulaire est bien basé sur une requête ou une table.

[lerorodu51]

Il est basé sur une table

je doit t'avouer je m'y connais pas du tout en VBA donc ....

[psykodumarteau]

En fait, c'est plus "propre" de déclarer directement un recordset. la déclaration en tant qu'objet est très vague et peu posé problème. Essaye en mettant.

Code :

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

Dim rs As Recordset

ou de rajouter la ligne

Code :

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

set rs = new Recordset

avant la ligne

Set rs = Me.Recordset.Clone

Cordialement

[lerorodu51]

Maintenant il me met me dit qu'il y a une erreur au niveau du New

[psykodumarteau]

En effet, j'ai essayé sur une petit base test, j'ai la même erreur.

As tu essayé de déclarer rs comme un recordset?

Remplace "Object" par "Recordset" dans

Dim rs As Object

Pour information j'ai regarder sur le net le probleme du "New". En mettant la bibliothèque "Microsoft ActiveX Data Objects..." en priorité par rapport à "Microsoft DAO 3.6 ...", le New remarche parcontre la Méthode Seek ne fonctionne plus. Du moins, La definition de la bibliothéque seek a changé. Il y visiblement un conflit entre les deux bibliothèques.

Cordialement

[lerorodu51]

En remplacant Object par Recordset , sa ne marche pas

[psykodumarteau]

Hum... pas evident ton problème. La synthase a l'air bonne.

Peux m'en dire plus sur le message d'erreur, ça pourrai m'aider à comprendre.

Cordialement

[lerorodu51]

Il me dit

Variable objet ou variable de bloc WITH non définie

[psykodumarteau]

Re,

Bonne nouvelle, je crois savoir d'où vient ton problème.
La méthode "clone" s'applique à un recordset, pour un formulaire c'est "RecordsetClone" il n'y pas de point entre clone et recordset. Voici le code que j'ai utilisé pour tester.

Code :

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

1
2
3
4
5
6
 
Private Sub Commande12_Click()
Dim rcs As Recordset
Set rcs = Me.RecordsetClone
MsgBox "commande" & rcs.Fields(0) & " ligne : " & rcs.Fields(1)
End Sub

Cordialement

[lerorodu51]

Comment te dire sa.... sa ne marche pas chez moi , il aime pas trop RecordsetClone sans le point .Il me dit "Vous avez entré une expression dont la valeur à la propriété ClôneRecordReset n'est pas valide "

[psykodumarteau]

Etonnant, j'ai testé le code que j'ai mis dans mon dernier post et il marche. Je suis sous Access 2003.

Tu as quelle version d'Access?

Ton code se trouve bien dans le module d'un formulaire?

Quelles sont tes bibliothéques actives et dans quelles ordre? (outils/références)

[lerorodu51]

Oui il se trouve bien dans le module de mon formulaire .Mes bibliothèques :
j'ai les 5 premières de cocher (Visual , MS access object library , OLE , DAO,activeX)

[psykodumarteau]

J'ai les memes bibliothèque que toi et ça marche chez moi. Dans l'éditeur VBA quand tu tape "Me.", dans la liste déroulante qui s'ouvre y a-t-il "RecordsetClone"? Je ne comprend pas pourquoi ce code ne marche pas.

[lerorodu51]

oui il y est bien , c'est peut etre dû à la référence que j'ai mis "id_article" , regarde sur mon premier code .

[psykodumarteau]

Je ne pense pas vue que ton problème ce trouve avant cette ligne. Ce qui est bizzar c'est qu'il te propose bien le RecordsetClone mais que celui ne marche pas

[Renardo]

bonjour

bonjour , voilà je veux créer un lien entre ma liste déroulante et mon sous-formulaire , voici mon code

Code :

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

1
2
3
4
Dim rs As Object
 Set rs = Me.NomDuSousForm.Form.Recordset.Clone
 rs.FindFirst "[num] = " & Str(Nz(Me![Modifiable0], 0))
 If Not rs.EOF Then Me.NomDuSousForm.Form.Bookmark = rs.Bookmark

[LE VIEUX]

dans le genre j'ai l'équivalent de ça qui marche aussi bien sur 2003 que 2007:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Modifiable0_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[id_article] = '"& Me![Modifiable0] &”’”
 
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub