AccessTr.neT
BOF yada EOF Hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: BOF yada EOF Hatası (/konu-bof-yada-eof-hatasi.html)



BOF yada EOF Hatası - ceforce - 24/11/2013

"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


Cvp: BOF yada EOF Hatası - alpeki99 - 24/11/2013

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.


Cvp: BOF yada EOF Hatası - ceforce - 24/11/2013

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


Cvp: BOF yada EOF Hatası - ceforce - 25/11/2013

Ben Çözdüm
If ac.EOF = True Then
MsgBox "Böyle Bir Kayıt Yok, Yada Soyadı Bölümü Boş"
Else
.
.
.
end if