Discussion :

[Ryton]

Bonjour,

Je voudrai dans un formulaire faire une selection selon une date (champ d'une table).
L'opèrateur rentre une date et une zone de liste affiche toutes les lignes d'une table qui ont été modifiées depuis cette date.

Le seul problème c'est que je n'arrive pas à trouver la bonne formulation...

Voici le 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
Private Sub RefreshQuery()

Dim SQL As String

If Information.IsDate(Me.text_Date_modif) Then
    SQL = "SELECT [Lien SAP].[Article], [Lien SAP].[Désignation article], [Table Fiches Produits].[Format], [Table Fiches Produits].[Destination client], [Table Fiches Produits].[Date Modification] FROM [Table Fiches Produits] RIGHT JOIN [Lien SAP] ON [Table Fiches Produits].[Code Article]=[Lien SAP].[Article] GROUP BY [Lien SAP].[Article], [Lien SAP].[Désignation article], [Table Fiches Produits].[Format], [Table Fiches Produits].[Destination client], [Table Fiches Produits].[Date Modification] HAVING ((([Table Fiches Produits].[Date Modification]) >= & '" & Me.text_Date_modif & "' &)) ORDER BY [Table Fiches Produits].[Date Modification];"
Else
    SQL = "SELECT [Lien SAP].[Article], [Lien SAP].[Désignation article], [Table Fiches Produits].[Format], [Table Fiches Produits].[Destination client], [Table Fiches Produits].[Date Modification] FROM [Table Fiches Produits] RIGHT JOIN [Lien SAP] ON [Table Fiches Produits].[Code Article]=[Lien SAP].[Article] GROUP BY [Lien SAP].[Article], [Lien SAP].[Désignation article], [Table Fiches Produits].[Format], [Table Fiches Produits].[Destination client], [Table Fiches Produits].[Date Modification] ORDER BY [Table Fiches Produits].[Date Modification];"
End If

Me.list_rslt.RowSource = SQL
Me.list_rslt.Requery

End Sub

Merci beaucoup!

[philben]

Bonjour,

si le champ <[Table Fiches Produits].[Date Modification]> à un format <Date> et non <Texte> votre écriture n'est pas bonne dans votre clause <having>.

Ecrire plutôt :

Code :

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

1
2
... HAVING ((([Table Fiches Produits].[Date Modification]) >=  #" & Format(Me.text_Date_modif , "m-d-yy") & "#)) ...

Je ne connaissais pas cette syntaxe : <Information.IsDate> ?
C'est quoi ?

Philippe

[Ryton]

Merci beaucoup, ça marche nickel!

Sinon Information.isdate permet de savoir si l'expression dans les () est une date ou pas...

Bonne fin de journée!