Discussion :

[El Bosc]

Bonsoir,

En cours de transfert d' une base de Access 97 à 2007, je bute sur une erreur 3021. Le code utilisé dans ma liste déroulante est le suivant:

Code :

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

1
2
Me.RecordsetClone.FindFirst "[Cf_CltCmd] = " & Me![LstCmd]
    Me.Bookmark = Me.RecordsetClone.Bookmark

Je tiens à préciser que la liste contient bien des valeurs. Par contre, le système bloque sur la deuxième ligne en me renvoyant le message suivant.
Erreur d' exécution 3021
Aucun enregistrement en cours.
Quelqu' un aurait-il une idée sur les causes de ce dysfonctionnement.

Cordialement

[Tofalu]

Tout d'abord, votre utilisation de recordsetclone est curieuse. A chaque appel, celle-ci renvoie un nouvel objet Dao.Recordset. A l'appeler deux fois de suite, vous utilisez deux objets différents complètement indépendants.

Utilisez une seule fois RecordsetClone et stockez le retour dans une variable de type DAO.Recordset avec le mot clé Set. Ensuite, faites vos traitements sur cette variable.

[El Bosc]

Bonsoir,

Merci Tofalu d' avoir répondu si rapidement.
Ce que je ne comprend pas, c' est que le code de mon premier message est le même dans tous les formulaires. Le fonctionnement est parfait dans tous les cas sauf bien entendu, celui présenté ci-dessus.
Dans ce cas particulier, la valeur sélectionnée s 'affiche bien dans mon formulaire mais sans la mise à jour de ce dernier.
D' autre part, mon formulaire est basé sur une requête. Lorsque je saisie directement la valeur dans celle-ci, l' affichage est correct. Le bug pourrait-il venir d' un autre élément?

Cordialement

[marsouin_89]

Bonjour,

Essaies le code fournit avec l'assitant création de liste.

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub MyList_AfterUpdate()
 
Dim Rs As Object
 
Set Rs = Me.Recordset.Clone
Rs.FindFirst "[Cf_CltCmd] = " & Me![LstCmd]
Me.Bookmark = Rs.Bookmark
 
End Sub

De plus, Me![LstCmd] est-il bien une valeur numérique ?

Cordialement

Christophe

[El Bosc]

Bonjour,

Je viens de tester la proposition de Marsouin_89.
Malheureusement sans changement sur le résultat.
Le message s' affiche toujours sur la dernière ligne du code, à savoir:
Me.Bookmark = Rs.Bookmark
Enfin, et pour répondre à votre question, le champ [LstCmd] est bien un champ nuémrique.

Cordialement

[El Bosc]

Bonjour,

Tout d' abord, mille excuses pour vous avoir fait perdre votre temps. Il y a des baffes qui se perdent! En effet, le problème venait bien d' une mauvaise construction du formulaire. Sans rentrer dans trop de détails inutiles, j' utilisai un champ d' une table qui ne correspondait pas à la logique du but recherché!
En vous renouvelant mes excuses en particulier à Tofalu et Marsouin_59.
Bien cordialement