Yıllara göre gelir gider fark gibi alanlar içeren Tablo oluşturma

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