Discussion :

[tissam89]

Bonjour,
J'ai une requete qui recupere une date max dans un tableau.ensuite j'ai crée un macro qui lance cette requete.
comment est ce que je peux affecter cette date à une variable sur VBA?
Merci en Avance

[tissam89]

Code :

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

1
2
3
4
5
6
7
8
Private Sub Testj_Click()
 
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Requête20")
 
rst.Close
 
End Sub

J'ai ecri ça,mais ne je ne sais pas si ça marche,j'ai ajouté

Code :

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

msgbox  rst

pour tester,mais ca n'a pas marché cette ligne (type incompatible)

[tissam89]

J'ai trouvé la solution, ça peut servir d'autres personnes

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 Testj_Click()
Dim base As DAO.Database
Dim res As String
Dim rst As Recordset
Dim espèce As String
Set base = CurrentDb()
Set rst = CurrentDb.OpenRecordset("Requête20")
rst.MoveFirst
While Not rst.EOF
With rst
res = .Fields("Expr1")
MsgBox res
End With
rst.MoveNext
Wend
 
rst.Close