#1
Yeni Microsoft Access Veritabanı.rar
(Dosya Boyutu: 52,86 KB | İndirme Sayısı: 5)
Option Compare Database
Private Sub Komut0_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tel As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from TEL")
tel = ""
With rst
Do While Not .EOF
tel = tel + !TEL_NO & " - "
.MoveNext
Loop
End With
Me.TOPLU = tel
End SubPrivate Sub Komut163_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim cins, elegecen As String
Dim adet As Integer
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from tblson")
cins = ""
elegecen = ""
adet = 0
With rst
Do While Not .EOF
adet = !adet & " "
cins = !cinstop & " "
elegecen = !elegecen & " , "
.MoveNext
Loop
End With
Me.txtkacak = adet & " " & cins & " " & elegecen
End SubPrivate Sub Komut163_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim toplam, kayıt As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from tblson")
toplam = ""
Do While Not rst.EOF
toplam = rst(3) & " " & rst(1) & " ,"
kayıt = kayıt + toplam
rst.MoveNext
Loop
Me.txtkacak = kayıt
End Sub