Discussion :

[antoine1504]

Bonjour,

Je rencontre un souci au niveau de l'execution de mon code VBA.
J'ai un formulaire sur lequel j'ai une zone de liste déroulante, avec dedans une liste de nom (nommée Nom_Prenom). Je souhaite que lorque l'on choisi un nom dans la liste, les informations concernant cette personne s'affiche.
Mes données sont issues de la table "Op". Les données que je souhaite afficher sont des text box (ici nommées service, emploi et type_contrat) et font partie du même formulaire.
La zone de liste déroulante a pour code source la table "Op" qui a pour 1er champ le numéro du client et pour 2iéme champ le nom.
La zone de liste à comme propriétés:
nbre de colonnes:2
colonne liée 2:
largeur colonne 0;3

Voici le code que j'ai affecté à la zone de liste déroulante:

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
24
25
Private Sub Nom_Prenom_Click()
Dim SQL As String
Dim rs As Recordset
Dim NomRecup As Integer
 
If Nom_Prenom.Value <> Empty Then
     NomRecup = Nom_Prenom.Value
 
     'création d'une requete pour aller chercher les données que l'ont récupère dans un recordset
     SQL = "SELECT * FROM Op WHERE Numero = " & NomRecup & ";"
     Set rs = Application.CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
 
     Service = rs.Fields("Service")
     Emploi = rs.Fields("Emploi")
     Type_contrat = rs.Fields("Type_contrat")
     '...
 
  rs.Close
 
     Service.Visible = True
     Emploi.Visible = True
     Type_contrat.Visible = True
 
 
End If

Lors de l'execution j'ai le message d'erreur suivant: "Variable non définie" et le compliateur pointe sur: "dbOpenDynaset".


A quoi est du cette erreur??
Merci d'avance.

[Oleff]

Bonjour,

A priori, il te manque une référence.
Pour vérifier, tu ouvres un module, tu cliques sur outil/références et tu vérifie que "Microsoft Access x.x Object library" est bien coché.

[6ril25]

Salut,

Teste le contenu de NomRecup avec

Code :

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

MsgBox NomRecup

avant le

Code :

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

Set rs...

[Alain R]

bonjour,

Je pense que pour la combo Nom_Prenom il faudrait:
Colonne lié : 1

Car après tu fais :

Code :

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

NomRecup = Nom_Prenom.Value

(et NomRecup est definie en Integer)

et puis la condition de la requête :

Code :

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

 "SELECT * FROM Op WHERE Numero = " & NomRecup & ";"

est sur un champ numérique.


Cdlt.

[antoine1504]

La référence "Microsoft Access x.x Object Library" est bien coché.
J'ai modifié un peu 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
24
25
26
27
28
29
Option Compare Database
Option Explicit

Private Sub Nom_Prenom_Click()
Dim SQL As String
Dim rs As Recordset
Dim NomRecup As String

If Nom_Prenom.Value <> Empty Then
     NomRecup = Nom_Prenom.Value
 
     'création d'une requete pour aller chercher les données que l'ont récupère dans un recordset
     SQL = "SELECT * FROM Op WHERE Nom_Prenom = " & NomRecup & ";"
    Set rs = Application.CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
  
     Service = rs.Fields("Service")
     Emploi = rs.Fields("Emploi")
     Type_contrat = rs.Fields("Type_contrat")
     '...
 
  rs.Close
 
     Service.Visible = True
     Emploi.Visible = True
     Type_contrat.Visible = True
   
End If
End Sub

Lorsque je rajoute en plus

Code :

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

msgbox nom_recup

cela me renvoi bien le nom et prénom de la personne sélectionée...
Mais j'ai toujours le même message d'erreur...

[Oleff]

Le message d'erreur t'indiques que la constante dbOpenDynaset, n'est pas reconnue.
Il doit donc te manquer une référence.

Après vérification ce doit être a référence Microsoft DAO x.x..

[Alain R]

NomRecup est une chaine, je pense qu'il faut faire

Code :

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

SQL = "SELECT * FROM Op WHERE Nom_Prenom = """ & NomRecup & """;"

Cdlt.

[6ril25]

plutôt d'accord avec Alain R...

Pour la réf, vérifie quand même mais je parie qu'elle est cochée...

[Invité]

Bonjour

Décoches "Microsoft Access x.x Object Library" et coches bien la "Microsoft DAO 3.6 ...".

Je parie que la première est placée avant la deuxième dans la liste des références.

Lorsque tu déclares

Code :

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

Dim rs As Recordset

Tu utilises dans ce cas la première référence, et donc le OpentRecordset n'existe pas.

Donc :
soit tu mets

Code :

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

Dim rs As DAO.Recordset

soit tu décoches la première référence.

Starec

[antoine1504]

Bonjour,

La référence: "Microsoft DAO 3.6 ...", ne figure pas dans ma liste...Est-ce normal?
Sinon j'ai modifié le code SQL comme indiqué ci-dessus.
Merci.