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&qu