error code recordset (debutant)

Bonjour,

j'ai récupéré un formulaire d'une autre base acces pour l'inserer dans ma base (acces 2003), parcontre j'ai une erreur quand j'ouvre ce formulaire (ligne jaune).

et pourtant sur l'ancienne base ce formulaire fonctionne correctement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Form_Open(Cancel As Integer) Dim rsStock As Recordset ' compte le nombre d'enregistrement Set rsStock = bd.OpenRecordset("SELECT Count (*)AS nb_enreg FROM stock")nb_enreg = rsStock!nb_enreg rsStock.Close DoCmd.Maximize filtre = "" tri = "" Me.Filter = filtre Me.FilterOn = True Me.OrderBy = tri Me.OrderByOn = True End Sub

---

merci d'avance pour votre aide je continue a chercher pour autre solution

Salut,

Ta nouvelle base access contient-elle les même tables et les mêmes champs que dans ton ancienne base?

As-tu un message d'erreur?

j'ai repris justes les tables , requetes qui font fonctionner ce formulaire parcontre ce texte " nb_enreg " je ne le retrouve dans aucune table est ce normal ?

Citation:

---

" nb_enreg " je ne le retrouve dans aucune table est ce normal ?

---

nb_enreg, c'est le nom que tu donnes à ta sélection.

Essaye à nouveau après avoir fait un retour à la ligne ici :

Code:

---

1 2 3

Set rsStock = bd.OpenRecordset("SELECT Count (*)AS nb_enreg FROM stock") nb_enreg = rsStock!nb_enreg

---

j'ai deja le retour a la ligne , "sorry j'ai fais un copier coller tout bete "

Il faut que tu déclares ta variable "bd" au début de ta sub:

Code:

---

1 2 3 4

Dim bd As DAO.Database   Set bd = CurrentDb()

---

Ajoute ces deux lignes sous :

Code:

---

Dim rsStock As Recordset

---

Ca devrait fonctionner.

j'avais deja un retour a la ligne

j'ai fais un test sur l'ancienne base
il y a un module qui s'appel global si je renomme ce module , j'ai la meme erreur .

ce module contient ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Compare Database Option Explicit   Global bouton_appuye As Integer Global nom_operateur As String Global ptr_rs As Integer   Global var_tech As Integer Global var_date As Date Global var_debut_periode As String Global var_fin_periode As String   Global num_logger As Integer   Global bd As Database Global PASS As String   Global lien As String

---

j'ai du mieux j'ai rajouter

Code:

---

1 2	Set bd = CurrentDb Dim rs As Recordset

---

la il m'ouvre le formulaire :king:

ca a l'air de fonctionner

Merci pwouaro , j'avais meme pas vu ta réponse , et j'avais trouver la solution ,
merci beaucoup