![Icon_rolleyes Icon_rolleyes](https://accesstr.net/images/smilies/icon_rolleyes.gif)
![Çözüldü](images/icons/cozuldu.png)
bu listedeki gibi başlıkları ayıran ve onun altına istediğim kayıtları nasıl textlerden alıp aktarabilirim ?
![Icon_rolleyes Icon_rolleyes](https://accesstr.net/images/smilies/icon_rolleyes.gif)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[TABLODAKİ ALAN ADI] = " & Me.[LİSTE ADI].Column(TABLODA ARANACAK DEĞERİN OLDUĞU SÜTÜN NUMARASI)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
(24/12/2010, 00:26)alpeki99 yazdı: Önce şunu sormuş olalım. Listeye kayıtları çekebildiniz mi? Eğer listelediniz ve listeden bir kayıda tıklayınca metin kutularında bu bilgileri görmek istiyorsanız :
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[TABLODAKİ ALAN ADI] = " & Me.[LİSTE ADI].Column(TABLODA ARANACAK DEĞERİN OLDUĞU SÜTÜN NUMARASI)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark