Discussion :

[ToTo13]

Bonjour,

j'ai une table Chefs(Num_matricule, Nom_chef).
Un formulaire me donne le nom du chef et je souhaite retrouver son numéro de matricule en faisant une requête.

Les deux requêtes (recordSet et DLookUp) suivantes nous renvoit : "Elément non trouvé dans cette collection". Pourtant la table Chefs est bien remplie.

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
30
 
Private Sub Commande50_Click()
On Error GoTo Err_Commande50_Click
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Dim sSQL As String
 
    Dim param As String
    param = ListeBoxNomChef.Value
 
 
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase("C:\Documents and Settings\jjnicola.DDSIS-13\Bureau\Stage\LPFF.mdb")
 
    sSQL = "Select Chefs.[Num_matricule] From Chefs Where [Num_matricule]=" & param
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
    rst.Close
 
 
 
    nom_resultat = DLookup("[Num_matricule]", "Chefs", "[Nom_chef]=" & param)
 
Exit_Commande50_Click:
    Exit Sub

Est ce que quelqu'un saurait me dire pourquoi ???

Merci par avance

[Demco]

Fais :

Code :

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

1
2
3
4
5
sSQL = "Select Chefs.[Num_matricule] From Chefs Where [Num_matricule]=" & param
 
Debug.Print sSQL
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

Tu auras ainsi le texte de ta requête SQL écrite dnas la fenêtre de débogage. tu pourras alors tester la requête directement dans le requêteur d'Access afin de voir ce qui ne va pas.

[Invité]

Bonjour

Est-ce que le champ [Num_Matricule] est bien écrit pareil ?

Starec

[ToTo13]

Bonjour,

- DEMCO : je viens de faire le test comme tu le conseilles et la requête renvoit bien ce qu'il faut.

- STAREC : les orpthographes sont correctes...

[Demco]

Oui mais attends, tu n'utilises même pas ton recordSet en fait, tu le fermes directement.

Ajoute le code de parcourt de RecordSet qui se trouve dans la FAQ.

[Demco]

Sinon un truc pour ton DLookUp ... ton critère est de type texte donc il faut des apostrophes pour entourer le critère, comme en SQL.

Code :

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

nom_resultat = DLookup("[Num_matricule]", "Chefs", "[Nom_chef]='" & trim(param) & "'")

[ToTo13]

Voilà exactement le code que j'ai :

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
30
31
32
33
34
35
36
37
38
39
 
Private Sub Commande50_Click()
On Error GoTo Err_Commande50_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
 
 
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim sSQL As String
 
    Dim param As String
    param = NomChef.Value
 
    Set db = CurrentDb
 
    sSQL = "Select Chefs.[Num_matricule] From Chefs Where Chefs.[Nom_chef]=" & param
    Debug.Print sSQL
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    rst.MoveFirst
    While Not rst.EOF
    ' code
        rst.MoveNext
    Wend
 
 
    nom_resultat = DLookup("[Num_matricule]", "Chefs", "[Nom_chef]='" & Trim(param) & "'")
 
    db.Close
 
 
 
Exit_Commande50_Click:
 
 
    Exit Sub

Mais j'ai maintenant le message : Trop peu de paramêtres, 1 attendu.