Takvimi dış veri al ile alamıyorum

1 2 3
18/05/2009, 23:07

tdsharun

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ı
19/05/2009, 08:27

firdevs

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...
19/05/2009, 10:28

C*e*l*o*y*c*e

(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
19/05/2009, 16:38

firdevs

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
19/05/2009, 21:12

tdsharun

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...
19/05/2009, 23:51

firdevs

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?
1 2 3