Discussion :

[benejepo]

Je débute en access et j'ai le problème suivant:
Dans un formulaire j'ouvre une liste déroulante dans laquelle je sélectionne un nom (ça marche). A partir de ce nom je veux afficher les éléments d'une table correspondant à ce nom . Je reçois systématiquement ce message :

ERREUR D'EXECUTION 91 VARIABLE OBJET OU VARIABLE DE BLOC WITH NON DEFINIE

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
13
14
15
16
17
18
19
20
21
22
23
Option Compare Database
 
Private Sub Form_Open(Cancel As Integer)
    rech_cli = ""
End Sub
 
Private Sub rech_cli_AfterUpdate()
 
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
 
Set rs = Me.Recordset.Clone
rs.FindFirst rech_cli
Me.Bookmark = rs.Bookmark
 
 
 
        Texte7 = cli_nom
        Texte5 = cli_cp
        rech_cli = ""
 
 
End Sub

Aidez-moi svp

[Lou Pitchoun]

Bonjour (c'est pas facultatif et les balises code non plus)

L'erreur est ici.

Code :

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

Dim rs As Object

La déclaration n'est pas bonne

Code :

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

Dim rs As Recordset

[benejepo]

Merci pour la réponse.
J'ai effectué la modification mais tjs la meme erreur !!!!

[loufab]

Bonjour,

Au lieu de ceci

Code :

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

Set rs = Me.Recordset.Clone

mettre cela

Code :

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

1
2
Set rs = Me.RecordsetClone

ici :

Code :

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

1
2
rs.FindFirst rech_cli

A moins de rech_cli contienne une condition where valide (champ="valeur") il faut étayer un peu la demande.

Qu'est ce que Texte7 ? un controle du formulaire ?
idem cli_nom et cli_cp.

Code :

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

1
2
3
4
Texte7 = cli_nom
Texte5 = cli_cp
rech_cli = ""

Code :

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

1
2
3
Me.texte7 = rs!cli_nom
...

Access est aussi bête qu'il est intelligent. Moins on lui précise les choses plus il renvoit des messages d'erreurs.

Après un Findfirst (et autre findx) il faut verifier l'aboutissement de la recherche avec nomatch sinon tu risques d'écraser des données...

Cordialement,

[loufab]

Dans un formulaire j'ouvre une liste déroulante dans laquelle je sélectionne un nom (ça marche). A partir de ce nom je veux afficher les éléments d'une table correspondant à ce nom . Je reçois systématiquement ce message :

Je viens de lire ta demande.

Pourquoi ne pas générer directement le code à partir de l'assistant Liste déroulante. Premier panneau choisir la dernière option. Rechercher.....

[benejepo]

Ok ça marche Grand-merci