Discussion :

[Zuthos]

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.

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 :

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
 
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

[marot_r]

Il manque probablement une référence sur DAO.

En mode design de code ; menu outils choix références, cocher Mirosoft DAO 3.6.

ensuite être sur d'éviter la confusion avec les objets ADO qui portent le même nom, toujours préfixer par DAO. lors de la définition de la variable.

Code :

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

1
2
Dim DB As DAO.Database
Dim rs As DAO.Recordset

A+