Discussion :

[Corinne4775]

Je transfère une base access 2.0 sur access 2003. Inutile de dire que tout est très différent, et casse-tête au possible (+++ le language).
Ma question est très simple : j'ai un formulaire + sous-formulaire qui affiche les données d'une table. J'ai un bouton de commande "Rechercher" qui ouvre un formulaire indépendant qui permet de saisir le numéro à rechercher. Ceci pour positionner le curseur sur l'enregistrement voulu (au niveau du sous-formulaire précedant).
La méthode FindFirst est refusée au moment de l'exécution. Pourquoi, je ne sais pas.
Merci d'avance à tous ceux ou celles qui pourront me fournir leur aide.
Corinne

[Arkham46]

La méthode FindFirst est refusée

C'est-à-dire? On manque d'info là.

Message d'erreur?
Sur quel objet est appliqué findfirst? Recorset? Quel type?
Un petit bout de code?

[Corinne4775]

Mon cher Arkham46,
J'applique la méthode FindFirts sur un Objet Recordset contenu dans le sous-formulaire (affiche les enregistrements d'une table).
Je pense que je dois, dès le départ, mal déclarer et initiatliser mes variables.

Je te joins ce qui ne fonctione pas :

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
Dim MaBD as Database
Dim MonGroupe as Recordset
Dim MonFormulaire as Form
Dim CritèreRecherche as String
 
Set MaBD = CurrentDb
Set MonFormulaire = Forms!Param_151!Param_151_b.Form
Set MonGroupe = MonFormulaire.Recordset
 
CritèreRecherche = "Me!en_CodeAtelier LIKE MonFormulaire!en_CodeAtelier"
 
MonGroupe.FindFirst CritèreRecherche
 
Etc...
 
J'espère que tu pourras m'apporter une petite aide ... je découvre depuis très recemment le code VBA.
Grand merci de ta réponse.
Corinne

[Corinne4775]

Mon cher Ami,
Je viens de trouver la solution à mon problème.
Merci qd même de ton aide, mais que je ne te fasse pas perdre ton temps.
Si tu le souhaites, je t'envoie le code.
Bien à toi
Corinne

[Arkham46]

Mon cher Arkham46

Mon cher Ami

Je n'en mérite pas tant

Merci d'avoir prévenu de la résolution du problème.

Bye.