Cevaplarınız için teşekkürler
İkinci örneğiniz tam benim istediğim gibi. Kendi programıma uyarlayabilirim.
Teşekkürler
İyiki varsın acceetr.net

pardon accesstr.net
Private Sub Komut4_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tel As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from Tablo1")
tel = ""
With rst
Do While Not .EOF
tel = tel + !Adı & " - "
.MoveNext
Loop
End With
Me.Metin2 = tel
End Sub
(11/11/2010, 17:51)mahirozcan yazdı: Sayın okileturc
Ben verileri sorgudan aldırmaya çalıştım. Siz tabloya göre bakmışınız. İsimleri de sorguya o şekilde verdim. İsimlendirmede hatam yok zannedersem. Tekrar inceleyebilirmisiniz?
Teşekkürler.