Discussion :

[r.mehdi]

salut avant de poser mon probleme je veux souhaite une bonne journée
Bon Voila j'ai poser 2 Maskedbox (le premier pour date debut le 2eme pour fin) et Listview pour affichage
Bon Voila ma requette elle est juste

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub load()
Maskedbox1.Mask="99/99/9999"
Maskedbox2.Mask="99/99/9999"
End Sub
 
Private Sub Commande1_click()
If MaskEdBox1 <> "" Then
 
SQL = "select article.*, stock.numd_stock, stock.libd_stock, stock.date_stock from article, stock " & _
" where stock.codea_stock=article.code_art and article.datea_art=#" & MaskEdBox1.Text & "#"
 
ElseIf MaskEdBox1.Text <> "" And MaskEdBox2.Text <> "" Then
SQL = "select article.*, stock.numd_stock, stock.libd_stock, stock.date_stock from article, stock " & _
" where stock.codea_stock=article.code_art and " & _
" (article.datea_art BETWEEN #" & (MaskEdBox1.Text) & "# and #" & (MaskEdBox2.Text) & "#)order by datea_art, codea_art, desig_art"
ListView1.ColumnHeaders.Add , , "Date Achat", (ListView1.Width * (2 / 12)), lvwColumnLeft
End If
 
Set E_sql = base.OpenRecordset(SQL)
With E_sql
If Not .EOF Then .MoveFirst
While Not .EOF
Set l = ListView1.ListItems.Add(, , !code_art)
l.SubItems(1) = !desig_art
'l.SubItems(2) = !pu_art
'l.SubItems(3) = !comptf_art
'l.SubItems(4) = !nomf_art
l.SubItems(5) = !datea_art
'l.SubItems(6) = !numd_stock
'l.SubItems(7) = !libd_stock
'l.SubItems(8) = !date_stock
.MoveNext
Wend
End With
End Sub

Bon Le Probleme c'est quand je Saisie Le Maskedbox1 il Verifie la 2eme Conditon (Elseif) et il me donne Erreur Bon le Probleme c'est Dans If Maskedbox.Text<>"" and Maskedbox2="" Pourkoi il l'ignore et il Passe a la 2eme conditon
pourrez vous m'aider sur Ca

[ucfoutu]

Bon Le Probleme c'est quand je Saisie Le Maskedbox1 il Verifie la 2eme Conditon (Elseif) et il me donne Erreur Bon le Probleme c'est Dans If Maskedbox.Text<>"" and Maskedbox2="" Pourkoi il l'ignore et il Passe a la 2eme conditon
pourrez vous m'aider sur Ca

*
Bonsoir,

Pardon ?
Il ne risque au contraire jamais de passer par le Else If ...
Relis ce que tu as écrit !

C'est un peu comme si tu disais ceci :

Code :

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

1
2
3
4
5
Si Pierre n'a pas 20 ans alors 
  disons-lui bonjour
Si non (donc si Pierre a 20 ans) alors
  Si Pierre n'a pas 20 ans (or il a 20 ans et de toute manière son cas serait déjà traité par le 1er If s'il avait 20 ans !...) et que Paul n'a pas 10 ans alors 
disons-leur salut

quels que soient l'âge de Pierre et celui de Paul, tu ne risqueras jamais de tomber dans le cas SI NON !!!
Question de logique pure bien avant question de code !!!!


EDIT : en outre :
Comme l'alimentation de ta listview est mise (dans ton code) avant le end if, elle ne peut se faire que si l'on rentre dans le else if (dans lequel, comme vu, on ne risque jamais d'entrer !) ===>> ta listview ne sera donc jamais (quel que soit le cas) remplie ....

Voilà qui fait beaucoup en peu de lignes de code !!... en espérant qu'en plus ton bouton de commande s'appelle bien Commande1 (comme le montre ton code) et non Command1 ( )

Moi, je me suis arrêté là et n'ai même pas jeté un coup d'oeil sur le reste !!!!