Discussion :

[BRUNO71]

Bonjour,

J'ai une table (Tble) avec deux colonnes (demandeur) et (Num).
Chaque demandeur correspond à un Num.

Je rajoute que cette table c'est un essai, pour m’entraîner.

Avec la macro ci-dessous je tente de récupérer le nom qui correspond.

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim rst As DAO.Recordset
Dim nom As Variant
 
Set rst = DLookup("SELECT [demandeur],[Num] FROM [Tble] WHERE [Num] =608", dbOpenSnapshot)
nom = rst("demandeur")
MsgBox nom
rst.Close
Set rst = Nothing

Malgré plusieurs essais, si si, je n'y arrive pas.

Le message est le suivant : Erreur de syntaxe dans l'expression SELECT [demandeur],[Num] FROM [Tble] WHERE [Num] =608"

Merci pour votre aide, je jette l'éponge.

Cordialement,

[amelyfred]

Bonjour
Je pense que tu mélanges 2 trucs .

Code :

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

nom = DLookup("[demandeur]", "Tble",[num] =608)

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim oRst as DAO.Recordset
Dim oDb as DAO.Database
Set oDb=CurrentDb
Set oRst=oDb.OpenRecordset("SELECT [demandeur],[Num] FROM [Tble] WHERE [Num] =608",dbOpenSnapshot)
nom =oRst.Fields("demandeur").Value
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst=Nothing
Set oDb=Nothing

Fred

[BRUNO71]

Bonjour amelyfred,

J'ai essayé également ce code, j'ai bien regardé le PDF (Définition et manipulation de données avec DAO) réalisé par Christophe WARIN.
Mais je n'y arrive pas....Voici un exemple.
Pièce jointe 199208

Honnêtement , si quelqu'un a une idée !

Merci

[Malick]

Le problème vient du fait que dans votre table, le champ Num est de type Texte.



Votre code devrait être :

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
Private Sub Commande411_Click()
 
 
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim Nom As String
Set oDb = CurrentDb
 
Set oRst = oDb.OpenRecordset("SELECT [demandeur],[Num] FROM [Tble_demandeurs2] WHERE [Num] ='608' ", dbOpenSnapshot)
Nom = oRst.Fields("demandeur").Value
MsgBox "LA réponse est : " & Nom
 
oRst.Close
oDb.Close
Set oRst = Nothing
 
End Sub

Ou bien vous changez le type du champ Num en Numérique et vous exécutez la requête que vous avez initialement écrite.

Voici votre base corrigée :

[BRUNO71]

Oh...M.....
Merci..

Si c'est du texte, dans mon exemple :

Code :

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

WHERE [Num] = '608'

Si 'est un nombre :

Code :

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

WHERE [Num] =608

Entouré par des apostrophes '


MERCI