Discussion :

[BRUNO71]

Bonjour,

Dans une requête comme celle-ci, je cherche a afficher des commentaires de ma table...

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
 
    Dim NbDb As DAO.Database
    Dim NbRst As DAO.Recordset
    Set NbDb = CurrentDb
    Dim info As String
 
 num = Me.lstResultats
 
On Error Resume Next
Set NbRst = NbDb.OpenRecordset("SELECT [commentaire_demande], [Num_demande] FROM [Requête_demande] WHERE [Num_demande] = '" & num & "'", dbOpenSnapshot)
info = NbRst.Fields("commentaire_demande").Value
 
If Err.Number <> 0 Then
 
  Me.Et_info.Caption = "Commentaire du n° " & num & " : " & info
 
End If
 
    NbRst.Close
    NbDb.Close
    Set NbRst = Nothing
    Set NbDb = Nothing

J'obtiens bien ma phrase (Commentaire du n°15 par exemple....
Mais je n'arrive pas à afficher les commentaires (info)....ou est mon erreur ?

Qui a la solution ...

Merci

[BRUNO71]

.....

Code :

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

1
2
 
 " & num & "

J'ai résolu mon soucis....