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
mc kodunda
byref argument type mismatch hatası veriyor bir türlü uygulayamadım hatayı nasıl düzeltirim yardımcı olurmusunuz
Son Düzenleme: 22/12/2008, 22:36, Düzenleyen: karam.