|
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 m
|
