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

Yorumlar

Bu blogdaki popüler yayınlar

Uygulama Sınavı S-1

İsmi A ile Başlayan Kişi Sayısı Option Compare Database Sub soru1() Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") toplam = 0 Do Until rst.EOF If Left(rst.Fields("ad").Value, 1) = "a" Then toplam = toplam + 1 End If rst.MoveNext Loop MsgBox (toplam) End Sub

Devamı

04.10.2011 2.ÖRNEK(Veri Tabanı)

04.10.2011 2.ÖRNEK Sub hesapla() For x = 1 To 10 ' burada D sütunun içine A sütunun ilk harfi ve nokta sonra B sütunun birleşmiş halidir. Cells(x, 4) = Left(Cells(x, 1), 1) & "." & " " & Cells(x, 2) ' burada E sütunun içine A sütunuyla B sütunun birleştirmiştir. Cells(x, 5) = Cells(x, 1) & " " & Cells(x, 2) Next x End Sub

Devamı

bir tablodan diğer bir tabloya veri aktarımı

Option Compare Database Dim db As Database Dim rst As Recordset Dim rs As Recordset2 Sub kayıt() Set db = CurrentDb() Set rst = db.OpenRecordset("tablo1") Set rs = db.OpenRecordset("yedek") Do Until rst.EOF rs.AddNew rs.Fields("isim").Value = rst.Fields("isim").Value rs.Update rst.MoveNext Loop End Sub

Devamı

uğur ılgın

Bu Blogda Ara