Discussion :

[Scantf]

Bonjour,

J'ai un formulaire sur Access avec des zones de liste, et je voudrai faire apparaître un résultat dans une zone de texte en fonction des choix dans les zones de liste.

Voici mon code:

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 Form_Current()
 
Dim strReq As String
Dim objRs As DAO.Database
 
strReq = "SELECT [Abaques Base Access].[Abaques] FROM [Abaques Base Access] WHERE Forms!Chiffreur!Service_TMA = [Abaques Base Access].[Service de TMA] And Forms!Chiffreur!Activités = [Abaques Base Access].[Activités] And Forms!Chiffreur!Classe = [Abaques Base Access].[Classe] And Forms!Chiffreur!Type = [Abaques Base Access].[Type de Flux] And Forms!Chiffreur!Complexité = [Abaques Base Access].[Complexité] And Forms!Chiffreur!Coordination = [Abaques Base Access].[Coordination] And Forms!Chiffreur!Recette = [Abaques Base Access].[Recette] And Forms!Chiffreur!Assrecette = [Abaques Base Access].[Assistance à recette] And Forms!Chiffreur!Tache = [Abaques Base Access].[Tâches];"
Set objRs = CurrentDb()
Resultat = objRs.OpenRecordset(strReq)
objRs.Close
 
If IsNull(Resultat) Then MsgBox "L'Abaque est N/A", vbOKOnly + vbInformation, "Chiffreur d'Abaques"
 
End If
 
Me.Abaques.Value = Resultat
 
End Sub

Merci pour vos lumières

[Invité]

Bonjour

Beaucoup d'incompréhension dans ton code.

D'abord as-tu un message d'erreur et lequel ?

La zone de liste c'est laquelle ?
As-tu déclaré le recordset Resultat ?

Fais un debug.print de ta requête SQL ou

Code :

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

MsgBox strSql

et tu verras qu'elle est fausse car :

Tu fais appel a des données d'un formulaire, oui mai il ne faut pas copier intégralement le texte générer par Access, il faut l'adapter, entre autre sortir les appels aux champs de ton formulaire et les rajouter par concaténation.

De plus, est-ce que toutes tes données sont de types numériques ? C'est ce que sous entend ta chaîne SQL, il faut utiliser des ' pour les données de type texte.

Je t'invite également à lire cela ce qui concerne les requêtes dans la FAQ Access (le lien est en haut de cette page), tu y trouveras de nombreuses réponses à mes questions et les solutions.

Philippe

[Scantf]

Merci pour cette réponse

Ca marche !
J'ai mis des chaines de caractères dans ma requête pour mes variables;
"' & Forms!Chiffreur!Abaques & "'

regards,