Takvim, Hesap Makinası (Popups) Uygulaması

RomaRakamlarını hepimiz biliriz. Çok fazla kullanılmasada belki bir gün işinize yarayabilir.

toplama - çıkarma ve çarpma işlemleri yapabilirsiniz. sonuçları hem roma rakamlarıyla hemde normal rakamla gösterir. dosya içinde ayrıca roma rakamları hakkında biraz bilgilendirme mevcut.

Arkadaşlar Buna Benzer bir tasarım yapmaya çalışın. Daha güzel gözükecektir..

[Resim: http://img463.imageshack.us/img463/6374/hmakqb5.jpg]

Forma;

2 TextBox, 2 Label (1de çıkan sonuç yazacak. 2yede sadece isim olarak "Sonuç" yazınız.. ), 4 tane commandbutton( + - / * ) ve tasarım olarak canlılık kazandıracaksanız resimdeki gibi Shape ekleyin

Kodlamamıza Geçiyoruz.


-----------

Toplama İşlemi yaptırıyoruz.. (+ buttonuna tıklayarak kod bölümünü açın )

[code]Priva

Gerçek gibi görünümü var. Orjinal bir hesap makinesi.

Yeni Kanuna göre 1-1-2009 tarihinden sonra firmalar hemen hemen hiçbir ödemesini nakit olarak yapamayacak. Bunun yapılması demek alanada verenede ceza demek yeni v.u.k na göre.

Bende bunu baz alarak bir günlük ödeme takibi ve banka hareketleri takibi diye bir Excel tablosu düzenledim. 3 ayrı dosyadan oluşmaktadır.

1) Ödeme Takip (Ana Tablo)
2) Çek Takip (Normal Excel tablosu)
3) Banka Takip (Vadeli Vadesiz Hesap)

Karmaşanın içinden çıkabilirseniz baya iş gören birşey olduğunu farkede

arkadaşlar accesste yapılmış bi banka veritabanı lazım yardımcı olursanız çok sevinirim...

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

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..

mrb. konu ile ilgili daha önce sorum oldu ve tdsharun hocam'ın yardımı ile sorunum hallolmuştu. tekrar yeniden tablo ve form oluşturduktan sonra defalarca denememe ragmen başaramadım nerde yablış yapıyorum bulamadım. hocam yardımcı olursanız sevinirim.