Discussion :

[Guy FALESSE]

Bonjour à tous,

Je n'y arrive pas.
Je voudrais ouvrir le formulaire frmAchatsGlobaux où le champ date DateAchats est le mois janvier, avril ou autre.

Code :

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

1
2
3
4
5
6
 
dim monSQL as string
 monSQL="SELECT tblAchatsGlobaux.DateAchats, DatePart("m",[DateAchats]) AS Expr1" _
            &"FROM tblAchatsGlobaux WHERE (((DatePart("m",[DateAchats]))=4))";
    DoCmd.OpenForm frmachatsglobaux
    frmachatsglobaux.RecordSource = monSQL

Que peut-il se passer?
D'avance merci.
@+

Guy FALESSE

[Dolphy35]

bonjour,

on ne peut pas interpréter directement une requête créée depuis l’éditeur de requête. Pour encapsuler une chaîne de caractères passée en paramètre ds une requête SQL il faut la mettre entre Quote ( ' ). de plus si tu veux scinder une chaîne il faut mettre le & avant le _

Code sql :

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

1
2
monSQL="SELECT tblAchatsGlobaux.DateAchats, DatePart('m',[DateAchats]) AS Expr1 " &  _
"FROM tblAchatsGlobaux WHERE (((DatePart('m',[DateAchats]))=4))";

@++

[Guy FALESSE]

Salut Dolphy35,

Merci pour ta réponse, mais j'ai toujours une erreur de syntaxe.
Désolé.
@+
Guy FALESSE

[f-leb]

Bonjour,

Code :

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

DoCmd.OpenForm "frmachatsglobaux"

non ?

[Guy FALESSE]

Salut f-leb,

Merci pour ta réponse.
Mais ça, je l'ai fait et j'ai toujours cette erreur de syntaxe.
@+

Guy FALESSE

[Guy FALESSE]

Bonjour à tous,

A force de chercher, j'ai trouvé la solution:

Code :

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

1
2
3
4
5
6
7
Dim monSQL as string, NumMois as integer
If ListeMois = "avril" Then
            NumMois = 4
            monSQL = "SELECT * FROM tblAchatsGlobaux WHERE DatePart(""m"",DateAchats)=""4"""
            DoCmd.OpenForm "frmAchatsGlobaux"
           Forms!frmAchatsGlobaux.RecordSource = monSQL
       End If

Encore merci à ceux ou celles qui avaient cherché.
@+
Guy FALESSE