Private Sub Command21_Click()
Dim dbdosya As Database
Dim rskayıtt As Recordset
Set dbdosya = OpenDatabase("C:\Program Files\kayıt listesi.mdb")
Set rskayıtt = dbdosya.OpenRecordset("select * from kayıt")
Dim SAd As String, a As String, SAd1 As String, SAd2 As String, SAd3 As String, SAd4 As String 'veri tabanında alacağımız bilgiyi koyacağımız değişken

rskayıtt.MoveFirst 'tablonun ilk kaydına git
Do Until rskayıtt.EOF 'tablo sonuna kadar devam edecek
If rskayıtt!kayıt_no = Text8.Text Then 'tablonun "Ad" sutununa bak
Frame8.Visible = True
SAd = rskayıtt!kitap_adi 'aranan "Ad" bulundu - ilgili "SoyAd"ı al
SAd1 = rskayıtt!kitap_turu
SAd2 = rskayıtt!yazarın_adı
SAd3 = rskayıtt!giriş_tarihi
SAd4 = rskayıtt!kayıt_no
Text10.Text = SAd
Combo2.Text = SAd1 + "a"
Text12.Text = SAd2
Text13.Text = SAd3
Text14.Text = SAd4
Else
a = Text7.Text
MsgBox (a + " kriterlerine uygun kayıt bulunamadı")
End If

rskayıtt.MoveNext 'tabloda bir satır ilerle
Loop

Frame9.Visible = False

End Sub

arkadaslar burada "text8" in iceriği "rskayıtt!kayıt_no" ya eşit olduğu hade de bana mesaj veriyor...
bu olayı cozebilirmiyiz???
ki mesajı tabloda kac kayıt varsa o kadar tekrarlıyo
__________________