Executer un SELECT en VBA et exploiter les données
Bonjour,
Je signale avoir recherché sur l'Internet une solution a ce probléme.
J'ai testé plusieurs solutions proposées qui se sont toutes révélée vaines. :cry:
Voici les données du probléme.
J'ai mis ma fonction dans un cadre texte d'un formulaire
= affichage()
Puis, j'ai créé la fonction suivante
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Public Function affichage()
Dim Requete As String
Requete = "SELECT Utilisateur.Prenom, Utilisateur.Nom FROM Utilisateur "
'Dim DB As Database
Set DB = CurrentDb
Dim rs As Recordset
Set rs = DB.OpenRecordset(Requete, dbOpenTable)
' Libérer la mémoire
rs.Close
DB.Close
Set rs = Nothing
Set DB = Nothing
affichage = "YESSS!!!"
End Function |
J'ai laissé la ligne 6 en commentaire car sinon, j'ai une erreur m'indiquant " Type définis par l'utilisateur non defini"
SI quelqu'un avait une explication afin de me débloquer.
Meric d'avance
