مشكلة في قواعد البيانات عند الوصول الى اخر سجل

أخي الكريم

ضع هذا الكود قبل عبارة end if

txtCustNo = datCust.Recordset![cus_no]
txtCustName = datCust.Recordset![Name]
txtCustFeed = datCust.Recordset![feed]

أي اجعل هذا الكود هو آخر شيء بعد عبارة End if

وأخبرني

هذا الكود تبعي هل يوجد به اخطاء علشان تطلعلي الرسالة

no curent record

Private Sub cmdNext_Click()

If datCust.Recordset.EOF Then
MsgBox("this is the last one")
Else

datCust.Recordset.MoveNext
txtCustNo = datCust.Recordset![cus_no]
txtCustName = datCust.Recordset![Name]
txtCustFeed = datCust.Recordset![feed]

End If
End Sub

معقولة

وين الخبراء ؟؟

ضع السطر التالى قبل أى كود خاص بك

If datCust.Recordset.BOF And datCust.Recordset.EOF Then Exit sub

هناك كود بسيط جداً يمكنك استعماله وهو مجرب في كل مكان

on error resume next

ثم تضع الأمر فعندما يكتشف الخطأ يتعدي هذا الكود فلا تكون ةهناك مشكلة

مثلاً

private command1.click()

on error resume next

data1.recordset.movenext

end sub

انصحك بالتفكير

فى الانتقال بالعمل بالمكتبات

ado

فهى افضل بكثير وبها امكنيات اكبر

من الداتا كنترول

اضافه بسيطه بس على كود الاخ Sphinx-EG ليتضمن نص الرساله بانه اخر عميل ليصبح كالتالي :

Private Sub cmdNext_Click()

If datCust.Recordset.BOF And datCust.Recordset.EOF Then 

   MsgBox("this is the last one")

Else

datCust.Recordset.MoveNext

txtCustNo = datCust.Recordset![cus_no]
txtCustName = datCust.Recordset![Name]
txtCustFeed = datCust.Recordset![feed]

End If

End Sub

كما انني مع الاخ asdsuez لاستخدام ADO التي تمكنك من ربط برامجك مع قواعد بيانات اكسس واس كيو ال و اوراكل

السلام عليكم

اخوتي اسمحوا لي ان اضيف بانه سجل لموظف هو ليس نهاية الملف انما هو ما قبل النهاية

If Data1.Recordset.EOF = False Then

Data1.Recordset.MoveNext

Else

Data1.Recordset.MoveFirst

End If