Appliquer un filtre sur un bindingsource suivant une date ou pas de date renseig

Question

'Bonsoir à tous,
'J'ai une table dans une base de données Access 2007.
'Je souhaite Filtrer des enregistrements avec plusieurs critères.

'J'utilise le Code suivant:

'J'ai deux ComboBox l'un avec les douze mois de l'année,
' le deuxième avec les années de 2000 à 2050.

Dim MaDate1,MaDate2 as Date
Date1 = "01/" & Format(Me.ComboBox7.SelectedIndex + 1, "00") & "/" & Me.ComboBox6.Text
Date2 = Date.DaysInMonth(Me.ComboBox6.Text, Me.ComboBox7.SelectedIndex + 1) & "/" & Format(Me.ComboBox7.SelectedIndex + 1, "00") & "/" & Me.ComboBox6.Text

Me.StockTableadapter.Fill(Me.MyBaseDataset.Stock)
Me.StockBindingSource.Filter = "Fournisseur='Weber' And Stock=True And [Date Commande]<=#" & Format(Date2, "M/d/yyyy") & "# And DateVente>=#" & Format(Date2, "M/d/yyyy") & "# Or DateVente is Null"

' J'ai un DataGridView4 qui affiche les données.
' Normalement, le DataGridView devrait retourner 393 enregistrements
' mais il m'en donne 3661.

' Quelqu'un pourrait-il m'aider, je ne comprends pas la raison.

' D'avance un grand merci pour toute l'aide que vous pourrez
' m'apporter. Je serais également ravi de comprendre, si possible
' les raisons de ce comportement.

' Merci encore

ucfoutu · Answer

Bonjour,

Je pense que tout vient de ce que contient ton champ datevente, de ce qui y a été mis.
Une donnée NULL n'est pas une donnée vide
Et quel est le type de ce champ ? si de type String : "" n'est pas NULL


____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP

cs_Adi57 · Answer

Bonjour,
Le type de champ est Date, abrégé.
Merci

cs_Adi57 · Answer

' Rebonjour,
' J'ai appliqué la modification suivante au code et cela fonctionne.

Dim MaDate1,MaDate2 as Date 
Date1 = "01/" & Format(Me.ComboBox7.SelectedIndex + 1, "00") & "/" & Me.ComboBox6.Text
 Date2 = Date.DaysInMonth(Me.ComboBox6.Text, Me.ComboBox7.SelectedIndex + 1) & "/" & Format(Me.ComboBox7.SelectedIndex + 1, "00") & "/" & Me.ComboBox6.Text
 
Me.StockTableadapter.Fill(Me.MyBaseDataset.Stock) 
Me.StockBindingSource.Filter = "Fournisseur='Weber' And Stock=True And [Date Commande]<=#" & Format(Date2, "M/d/yyyy") & "# And DateVente>=#" & Format(Date2, "M/d/yyyy") & "# Or DateVente is Null"


' Merci pour vos commentaires.

À bientôt.

cs_Adi57 · Answer

' Désolé j'ai oublié de modifier le code.
' Donc le voici.

Dim MaDate1,MaDate2 as Date 
Date1 = "01/" & Format(Me.ComboBox7.SelectedIndex + 1, "00") & "/" & Me.ComboBox6.Text
 Date2 = Date.DaysInMonth(Me.ComboBox6.Text, Me.ComboBox7.SelectedIndex + 1) & "/" & Format(Me.ComboBox7.SelectedIndex + 1, "00") & "/" & Me.ComboBox6.Text
 
Me.StockTableadapter.Fill(Me.MyBaseDataset.Stock) 
Me.StockBindingSource.Filter = "Fournisseur='Weber' And Stock=True And [Date Commande]<=#" & Format(Date2, "M/d/yyyy") & "# And DateVente>=#" & Format(Date2, "M/d/yyyy") & "# Or Fournisseur='Weber' And Stock=True And [Date Commande]<=#" & Format(Date2, "M/d/yyyy") & "# And DateVente is Null"

Appliquer un filtre sur un bindingsource suivant une date ou pas de date renseig

4 réponses

Votre réponse

Discussions similaires