+- 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