"Ya BOF ya da EOF Doðru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor."
böyle bir hata alıyorum.
veritabanımda böyle bir kayıt olmadığı için hata alıyorum.acaba bu hata yerine kayıt bulunamadı diye bir hata verdirmek için if komutu mu while komutu kullanmam gerekli nasıl kullanabilirim
Son kayıttan sonraki adıma ilerlemek istemişsiniz. Genelde döngüde kullanılır ama kodlarınızı görmek lazım:
Do While Not rst.EOF
..
..
Loop
gibi çok farklı kullanım şekilleri var.
KODLAR
If adi.Text = "" Then
MsgBox "Boş Arama Gerçekleştirilemez"
Else
Dim conn As Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=microsoft.jet.oledb.4.0"
conn.Open App.Path & "\db.mdb"
Set ac = New ADODB.Recordset
SQL = "select * from Tablo1 where adi ='" & CStr(adi.Text) & "' and soyadi ='" & CStr(soyadi.Text) & "' "
ac.Open SQL, conn, 1, 3
tckimlikno.Text = ac("tckimlikno")
kayittarihi.Text = ac("kayittarihi")
dogumtarihi.Text = ac("dogumtarihi")
adres.Text = ac("adres")
tedavi.Text = ac("tedavi")
telefonno.Text = ac("telefonno")
ac.Update
ac.Close
End If
Ben Çözdüm
If ac.EOF = True Then
MsgBox "Böyle Bir Kayıt Yok, Yada Soyadı Bölümü Boş"
Else
.
.
.
end if