[vb6]probleme avec Condition If entre deux Maskedbox
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:
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
