Takvim uygulaması olarak benim eklemiş olduğum bir uygulama var. Modul kullanıyor. Sürekli formda da kullanılabiliyor. Aradığınız örnek bu olabilir: Açılır Pop-Up Takvim Uygulaması
Takvimi dış veri al ile alamıyorum
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...
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.
(19/05/2009, 08:27)firdevs yazdı: 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...
Sayın firdevs siz halen örneği eklememişsiniz,
diğer konuya gelirsek tsdharun hocanın örneğinden almıntı yapmışsınız ve mc'nin hata verdiğini belirtiyorsunuz,acaba siz
1-bu örnekten alıntı yaparken modülleri almamış olabilirmisiniz
2-kodların hepsini almamışsınız gibime geliyor bakın o kodların geçmişinde mc'nin görevi var ...
Option Compare Database
Option Explicit
Private mc As clsMonthCal
Private Sub Form_Load()
Set mc = New clsMonthCal
mc.hWndForm = Me.hWnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Not mc Is Nothing Then
If mc.IsCalendar Then
Cancel = 1
Exit Sub
End If
Set mc = Nothing
End If
End Sub
...bunlara dikkat edin yadd örneğinizi bir ekleyin yardım ederken onun üzerinde yapmaya çalışalım ..kolay gelsin
Tamam hocam bu sefer başardım sanırım biraz ara vermem gerekiyormuş..
Off tam herşey tamam derken formun birinde çalışıyor birinde çalışmıyor.
Gelir_Havale ve Gider_Havale sürekli formlarına ekledim.
Birisinde her satırda çalışıyor diğerinde sadece ilk satırda çalışıyor.
Sorunum çözüldü zannedip sizi uğraştırmayım diye örneği göndermekten vaz geçmiştim. Şimdi gönderiyorum.
Bu işe işin uzmanı gerekiyor...
örnek ekte
Off tam herşey tamam derken formun birinde çalışıyor birinde çalışmıyor.
Gelir_Havale ve Gider_Havale sürekli formlarına ekledim.
Birisinde her satırda çalışıyor diğerinde sadece ilk satırda çalışıyor.
Sorunum çözüldü zannedip sizi uğraştırmayım diye örneği göndermekten vaz geçmiştim. Şimdi gönderiyorum.
Bu işe işin uzmanı gerekiyor...
örnek ekte
Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Like"*"&[metin kutusu]&"*"
Son Düzenleme: 19/05/2009, 16:41, Düzenleyen: firdevs.
Sayın firdevs, C*E*L*O*Y*C*E hocam zaten gerekli bütün açıklamayı yapmış. Örneğe bakarak örneği kendinize uygulamanız yeterliydi aslında. Neyse, ben sizin örneğinizdeki bahsettiğiniz iki forma da uyguladım. Kolay gelsin...
Hocam yaptığınız örnekte de gelir_havale deki butonlar çalışmıyor.
Herneyse bensürekli forma takvim koymasam daha iyi olacak sanırım.
Ne benim başım ağrır ne de sizin..
Yardımlarınız için teşekkür ederim...
hWnd Sürekli form demek mi oluyor?
Herneyse bensürekli forma takvim koymasam daha iyi olacak sanırım.
Ne benim başım ağrır ne de sizin..
Yardımlarınız için teşekkür ederim...
hWnd Sürekli form demek mi oluyor?
Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Like"*"&[metin kutusu]&"*"
Son Düzenleme: 20/05/2009, 00:00, Düzenleyen: firdevs.
Konuyu Okuyanlar: 1 Ziyaretçi