Skip to main content

AccessTr.neT


dtpicker yardım lütfen

dtpicker yardım lütfen

#1
arkadaşlar merhabalar, şöyle bir sorunum var:
vb6'da 3 adet dtpicker'im yani tarihim, bir de listbox'ım var, 3. girilen tarihin; 1. ve 2. girilen tarihler arasındaki günlerden birine eşit olması halinde listbox'a atmamasını, eşit değilse atmasını istiyorum. yardımcı olurmusunuz, şimdiden teşekkür ediyorum.
Cevapla
#2
Merhabalar, text3 e girilen tarihi list1 de arat varsa ve yoksa İF THEN komutları ile istediğin şekilde kodu yap. Sana text e yazıp listte aramat kodu verecem devamı sen getir.

Kod:
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text = text1.Text Then
MsgBox " your item has been founded" & i, vbInformation + vbOKOnly, "founded"
Exit Sub
End If
Next i
MsgBox " Not founded", vbExclamation + vbOKOnly, "not founded"
End Sub

Cevapla
#3
Private Sub Komut14_Click()
Dim tr1, tr2, tr3 As Date

tr1 = Me.Metin0.Value
tr2 = Me.Metin2.Value
tr3 = Me.Metin4.Value

If tr3 > tr1 And tr3 < tr2 Then
MsgBox "TR3 TR1 DEN BÜYÜK TR2 DEN KÜÇÜK"
'Şart msağlandığında yapılacak işlemler
Me.Liste12.AddItem (tr3)
Else
MsgBox "TR3 TR1 DEN BÜYÜK TR2 DEN KÜÇÜK ŞARTI SAĞLANMIYOR"
'Şart sağlanmadığında yapılacak işlemler.
End If
End Sub

konu eski fakat ilave etmek istedim.
Universal Form Tasarımı. devamlı güncelleniyor.
SQL TO Vba Convertör.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task