Kod:
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 Sub
Kod:
Private 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 Sub
şeklinde olmadı istediğim gibi bu kodu nasıl uyarlayabilirim acaba