Discussion :

[proz.one]

Bonjour,

J'ai un problème sous VBA Access,
J'aimerais afficher le résultat d'une requête dans une zone de texte (Text_th)
contenue dans un formulaire.
Le programme me renvoie un message d'erreur 3078 selon lequel la table ou requête serait inexistante ou mal orthographiée.

Voila la procédure qui contient la requête :

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 Rafraichir()
 
Dim Req As String
Dim ResultReq As Recordset
Dim Db As Database
Dim CodeBd  As Integer
 
Set Db = CurrentDb
Code_Bd = Forms![FormSeance].[LstNumSeance]
Close Req = TextSQL = "SELECT LibelleTheme"
            TextSQL = TextSQL & "FROM Theme,Séance"
            TextSQL = TextSQL & "WHERE Séance.num_theme = Theme.num_theme"
Set Result.Req = Db.OpenRecordset(Req)
Txt_th.Text = ResultReq(LibelleTheme)
ResultReq.Close
 
End Sub

____________

Savez vous de quoi cela peut venir?

Merci d'avance.

[Invité]

Bonjour

Il manque des espaces dans ta requête (après LibelleTheme et après Séance), affiche ta chaine SQL dans une MsgBox par exemple pour voir.

Evite les accents, entoure les noms des champs de crochets.

Philippe

[proz.one]

Bonjour Philippe,

Merci de m'avoir répondu, mais le problème ne vient pas de là apparemment. D'après le débogueur, il y a une erreur sur la ligne :

Set Result.Req = Db.OpenRecordset(Req)

Je me demande ce qu'il se passe, je demanderais à ma prof d'info!

Encore merci d'avoir pris le temps de répondre.

[Invité]

Re

Comme je te l'ai dit ta requête n'est pas bonne et d'autre choses.

C'est quoi ce close Req ? Req suffit.

Tu travailles en DAO ou ADO ?

A priori DAO, est-ce la bibliothèque est bien cochée ? De plus dans tes déclarations il y a des soucis.

Code :

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

1
2
3
4
Dim Req As String
Dim ResultReq As DAO.Recordset
Dim Db As DAO.Database
Dim CodeBd  As Integer

Philippe