27/12/2008, 21:53
karam
Cvp: Takvim, Hesap Makinası (Popups) Uygulaması (Alıntı)
Private Sub Ctltxttarih_DblClick(Cancel As Integer)
Dim blRet As Boolean
Dim dtStart As Date, dtEnd As Date
dtStart = Nz(Me.txttarih.Value, 0)
dtEnd = 0
blRet = ShowMonthCalendar(mc, dtStart, dtEnd)
If blRet = True Then
Me.txttarih = dtStart
Else
MsgBox "Tarih seçmediniz!!! Lütfen kontrol edin...", vbOKOnly, "Tarih seçmediniz..."
End If
End Sub
blRet = ShowMonthCalendar(mc, dtStart, dtEnd) kodunda debug yaptığımda mc kodunda hata veriyor "byref argument type mismatch "hatası veriyor bir türlü uygulayamadım hatayı nasıl düzeltirim yardımcı olurmusunuz
Private Sub Ctltxttarih_DblClick(Cancel As Integer)
Dim blRet As Boolean
Dim dtStart As Date, dtEnd As Date
dtStart = Nz(Me.txttarih.Value, 0)
dtEnd = 0
blRet = ShowMonthCalendar(mc, dtStart, dtEnd)
If blRet = True Then
Me.txttarih = dtStart
Else
MsgBox "Tarih seçmediniz!!! Lütfen kontrol edin...", vbOKOnly, "Tarih seçmediniz..."
End If
End Sub
blRet = ShowMonthCalendar(mc, dtStart, dtEnd) kodunda debug yaptığımda mc kodunda hata veriyor "byref argument type mismatch "hatası veriyor bir türlü uygulayamadım hatayı nasıl düzeltirim yardımcı olurmusunuz