Discussion :

[kjaystar]

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 :

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

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

[Pwouaro]

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?

[kjaystar]

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 ?

[Pwouaro]

" 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 :

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

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

[kjaystar]

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

[Pwouaro]

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

Code :

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

1
2
3
4
 
Dim bd As DAO.Database
 
Set bd = CurrentDb()

Ajoute ces deux lignes sous :

Code :

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

Dim rsStock As Recordset

Ca devrait fonctionner.

[kjaystar]

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 :

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
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

[kjaystar]

j'ai du mieux j'ai rajouter

Code :

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

1
2
Set bd = CurrentDb
Dim rs As Recordset

la il m'ouvre le formulaire

ca a l'air de fonctionner

[kjaystar]

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