Discussion :

[elkhy]

Bonjour,

Je suis en train de faire un état de sortie excel.
En fonction de deux champs que je récupère dans deux listes déroulantes, j'alimente un fichier excel.

Mon pb est le suivant:
Je récupère bien les données de mon formulaire, mais quand je veux les utilisés dans ma requête,
apparemment ça ne passe pas car je n'ai pas le résultat voulu (j'ai comparer en plaçant les données en dur dans la requête).
Voici comment je fais:
Je déclare mes deux variables qui vont récupérer les données de mon formulaire:

Public CurAnnee As String
Public CurCode As String

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
CurAnnee = Form_FormulaireExport.period.Value
CurCode = Form_FormulaireExportCadrage.Code.Value
sqlchaine = "SELECT Restitution.IdRestit, Restitution.NomRestit, Restitution.IdFiliale, Restitution.Code, Restitution.IdPeriode, Restitution.NomMillesime, Restitution.Valeur "
                sqlchaine = sqlchaine & " FROM Restitution WHERE (((Restitution.IdRestit)=1) AND ((Restitution.Code)='CurCode') AND ((Restitution.IdPeriode)=1) AND ((Restitution.NomMillesime)='CurAnnee'));"
                Debug.Print sqlchaine
                Set rst = CurrentDb.OpenRecordset(sqlchaine)
                    If rst.RecordCount > 0 Then
                    NS_N = rst.Fields("valeur")
                    Else
                    NS_N = 0
                    End If
                rst.Close
 
                objTemplateSheet.Range("Mavariable").Value = NS_N

Je sais que le pb se situe sur les 2 variables en couleur car j'ai tout testé pas à pas dans le programme...

D'avance merci pour votre aide

[Kloun]

Code :

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

1
2
3
4
5
6
7
sqlchaine = "SELECT IdRestit, NomRestit, IdFiliale, " & _
                "Code, IdPeriode, NomMillesime, Valeur " & _
                "FROM Restitution " & _
                "WHERE IdRestit =1 " & _
                "AND Code='" & CurCode & "' " & _
                "AND IdPeriode = 1 " &  _
                "AND NomMillesime ='" & CurAnnee & "'"

Ca devrait aller mieux

[elkhy]

Merci pour ton aide

Malheureusement, il me mets toujours une erreur la-dessus

"Erreur d'execution 3464:
Type de données incompatible dans l'expression du critère"

Est-ce que cela te dit quelque chose ?

Merci d'avance

[Kloun]

Code et NomMillesime sont de type texte ?

Récupère la chaîne dans la fenêtre de débogage et exécute-là dans une requète, le message d'erreur sera sans doute plus précis.

[elkhy]

Merci Kloun,

J'ai trouvé grâce à toi !!!

Voici ce qui n'allait pas: j'ai retiré les simples côtes de CurAnnee et ça passe... alors savoir pourquoi, je ne sais pas.

Mais voilà ça fonctionne ;-)
++

Code :

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

1
2
3
4
5
6
7
8
sqlchaine = "SELECT IdRestit, NomRestit, IdFiliale, " & _
                "Code, IdPeriode, NomMillesime, Valeur " & _
                "FROM Restitution " & _
                "WHERE IdRestit =1 " & _
                "AND Code='" & CurCode & "' " & _
                "AND IdPeriode = 1 " &  _
                "AND NomMillesime =" & CurAnnee & ""

[Kloun]

Sans doute parce que NomMillesime est déclaré comme numérique dans ta table.

[elkhy]

Exact !
++