uğur ılgın

Veritabanında yaptıklarımızı bu linkten indirebilirsiniz. http://hotfile.com/dl/137328282/7e34b24/Veri_Taban_Defteri.rar.html

Option Compare Database ' Yıllara göre gelir gider fark gibi alanlar içeren Tablo oluşturma '© All reserved uğur Sub form() Dim db As Database Dim tbl As TableDef Dim alan1 As Field Dim alan2 As Field Dim alan3 As Field Set db = CurrentDb() For x = 2001 To 2005 Set tbl = db.CreateTableDef(x) Set alan1 = tbl.CreateField("gelir", dbDouble, 20) Set alan2 = tbl.CreateField("gider", dbDouble, 20) Set alan3 = tbl.CreateField("fark", dbDouble, 20) tbl.Fields.Append alan1 tbl.Fields.Append alan2 tbl.Fields.Append alan3 db.TableDefs.Append tbl Next x End Sub

Option Compare Database Sub ugur() Dim db As Database Dim tbl As TableDef Dim alan1 As Field Dim alan2 As Field Set db = CurrentDb() Set tbl = db.CreateTableDef("Bilgi") Set alan1 = tbl.CreateField("ad", dbText, 20) Set alan2 = tbl.CreateField("soyadı", dbText, 20) tbl.Fields.Append alan1 tbl.Fields.Append alan2 db.TableDefs.Append tbl End Sub

Option Compare Database Dim frm_deneme As Form Sub form_olay() '**********************************________Form Oluşturma_______________ 'Set frm_deneme = CreateForm 'DoCmd.Close acForm, "Deneme", acSaveYes '**********************************________Form Kapatma_______________ 'DoCmd.Close acForm, "Kapatılacak Formun İsmi", acSaveYes 'DoCmd.Close 'bütün formları kapatır . Kaydetmeyi sorar '**********************************________Form Adı Değiştirme_______________ 'DoCmd.Close acForm, "Form1", acSaveYes 'DoCmd.Rename "deneme", acForm, "Form1" '**********************************________Form Açma_______________ 'DoCmd.OpenForm "deneme" '**********************************________Form Silme_______________ DoCmd.DeleteObject acForm, "deneme" '**********************************________Forma Nesne Ekleme_______________ DoCmd.OpenForm "Form1...

Çalıştığı Gün Kadar Maaş Hesaplanması

Tarih Fonksiyonları Metin1 = Date -------> Sistem tarihini verir. Metin1 = Time ------->Sistem saatini verir Metin1 = Now ------->Hem tarih hem zaman verileri elde edilir. Metin1 = Day(Date )------->Gündeğerini verir.date yerini sabit bir değer verilebilir-metin1=day("13.01.2011") Metin1 = Month(Date) ------->  Ayın değerini verir Metin1 = Year(date)  ------->Yılın değerini verir Metin1 = Weekday(Date) -------> Haftanın kaçıncı günü oldğunu verir. Metin1 = WeekdayName(Weekday(Date), False, vbSunday)  ------->Sistem tarihindeki günün adını verir. Metin1 = WeekdayName(Weekday("21.12.2012"), False, vbSunday)