Harun Hocam denedim
Tarih alanının çift tıklandığında olay yordamına
Private Sub Tarihi_DblClick(Cancel As Integer)
Dim blRet As Boolean
Dim dtStart As Date, dtEnd As Date
dtStart = Nz(Me.Tarihi.Value, 0)
dtEnd = 0
blRet = ShowMonthCalendar(mc, dtStart, dtEnd)
If blRet = True Then
Me.Tarihi = dtStart
Else
MsgBox "Tarih seçmediniz!!! Lütfen kontrol edin...", vbOKOnly, "Tarih seçmediniz..."
End If
End Sub
blRet = ShowMonthCalendar(mc, dtStart, dtEnd) satırında mc yi hta olarak kabul etti.
Size zahmet olacak ama bu örneği bir sürekli forma uygulayarak tekrar gönderebilirmisiniz.
Veya seruz hocamın örneği sürekli formda uygulanmış olursa bende uygulayabilirim. Başka türlü uyarlayamıyorum.
Hocalarım ben hala , sürekli forma bu tarih örneklerini uygulayamadım.
Konu cevaplanmış konulara taşınmış.
Lütfen yardım edermisiniz...
Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Like"*"&[metin kutusu]&"*"
Son Düzenleme: 19/05/2009, 09:21, Düzenleyen: firdevs.