Bonjour
J'ai défini une classe clsUSER qui contient les informations sur l'utilisateur connecté à ma base de données (identifiant, droit, chemin d'accès à la base de données...)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
 
Option Explicit
'variable string qui contiendra le matricule
Private matricule As String
Private droit As Integer
Private DB_directory As String 'répertoire où se trouve la BD
Private previous_frm As String 'contient la page precedente
Private next_frm As String 'contient la page suivante
Private current_frm As String 'contient la page courante
Private choosed_opt As Integer 'contient l'option choisie par l'utilisateur
Private cnx As ADODB.Connection 'connection courante de l'utilisateur
Private cur_database As Database 'base de données courante
J'ai déclaré une variable pers de type clsUSER dans un module (module1)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Public pers As clsUSER 'utilisateur connecté
Lors du lancement de l'application, après l'identification de l'utilisateur, j'instancie la variable pers et je la met à jour suivant les informations rentrées pas l'utilisateur. (Tout ceci dans un module de formulaire intitulé Form_connexion dont voici un extrait).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Set pers = New clsUSER
  pers.directory = getDirectory()
  pers.id = rs("matricule").value
  pers.permission = rs("code_droit").value
  MsgBox "Personne créée avec comme nom " & pers.id & " permission " & pers.permission
Le problème est que je n'arrive pas, dans les autres modules formulaires, à utiliser les propriétés de cet objet (pers est de type clsUSER et Connect_BD permet d'avoir accès à la prppriété cnx de clsUSER):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
req2 = Traitement_tblTempMesure_car(product, nbClic, value, signe, pers.Connect_BD)
Le message d'erreur qui s'affiche est le suivant

Erreur d'exécution 91:
Variable objet ou variable de bloc With non définie
Qu'est ce qui est à l'origine de ce problème? Comment le résoudre?