Takvim, Hesap Makinası (Popups) Uygulaması

istediğiniz yılı yazın (ör:2009) o yıla ait takvimi oluştursun.
kodlar açıktır.

Genellikle işyerlerinde alınacak kısa yada uzun not vs. bilgilerin tarih girmeden kolaylık sağlayan bir -BASİT- çalışma.(istek üzerine yapılan) çalışmayı herkesle paylaşmak istedim. Bir fikir olabilecek geliştirilirse çok kullanışlı olacağı kanısındayım.
Parola:1 Vb:1

Biliyorum, forumumuzda bu ve benzeri bir sürü takvim uygulaması gördük.
Ancak animasyonlu olması, Activex denetimi kullanması, Türkçe'ye uyumlu olması ve Kodlarının da basit ve anlaşılır olması sebebiyle diğer takvimlerden farklı olduğunu düşünüyorum.
Günlerle ilgili bi sıkıntı da yok. Hatırlarsanız daha önce verilen takvimlerde haftasonlarını Cumartesi-Pazar olarak görmüyordu. Pazar-Pazartesi olarak görünüyor ve insanların kafasını karıştırıyordu.
Yine ecnebi bi sitedeki bi uygulamadan yol

Bu aralar takvimlerle ilgili bayaa bi örnek topladım. Hoşuma gidenleri düzenleyip sizlerle paylaşıyorum.

Yine ecnebi bi sitedeki bi uygulamadan alarak Türkçe çevirisini, form düzenini falan yaptım. Ücretsiz dağıtım olmasına ve herhangi bir yasal hak söz konusu olmamasına rağmen kodları yazan ecnebi arkadaşların yazdıkları açıklamaları, bilgilendirmeleri, künye bilgilerini, İletişim bilgilerini falan silmedim. Yine de isteyen silebilir...

[url=http://accesstr.net/animasyonlu-acilir-takvim-

Hepinize selamlar...

Orijinali Almanca olan bir uygulamadan yola çıkarak yaptığım bir uygulamadır.

Geçmişteki hatalarıyla ilgili yardımcı olmaya çalışan herkese teşekkür ederim.

Saygılar...

*******************************************************

Takvim - Ajanda olarak eklediğim uygulama tarafımca güncellenmiş olup bazı özellikler eklenmiştir:

1- Alarm özelliği eklendi.
2- Tema yapısı değiştirildi.
3- Bekleme modu eklendi.

*********************************************

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

Açılan Kutuda veri yoksa eklesin istiyorum, yapamadım...

Değer forum dostları ve hocalarım;

Herkese tekrar MUTLU YILLAR...

"YonetimGiderleri" formundan aynı adlı tabloya kayıt ekliyorum. Bu formun "HizmetVerenKişi" açılan kutusu içerisinde aranan kişi yoksa, bu açılan kutuya çift tıklanınca, "HizmetVerenler" formu açılsın; Bu form aracılığı ile "Yeni Kişi" "Kaydını Eklemek" ya da "Silme" işlemini gerçekleşsin istiyorum.

Bunu 3-4 saattir yapamayınca, yeterli zamanım olmadığı için, si

ekteki örnek birinin sorduğu soruydu neyse iki tür rapor var biri yıllık rapaor tüm yılın aylarını gösteririr yıl seçimini form dan yaparsınız 1 den başlamak üzere sınırsız yıl seçebilirsiniz tabii en son 9998 yılı olmak üzere
aylık rapor içinde bulunduğumuz yılın tüm aylarına ait raporları verir tabloyu kontrol eder uyuşan tarihlerdeki bilgileri alır ilgili metin kutularına yazar ve size 12 aylı bir takvim verir

not:burdan alınan buraya aittir referans vermeden kullanılmaz

arkadaşlar bi konu bulmam lazım..accessde yapılabilecek çok zor olmayan ama gerçekten güzel ve kullanıuşlı bi program olması lazım...aklına konu gelenlerden cvp bekliorum..