السلام عليكم أخواني الأفاضل
عندي مشكلة في الأنتقال بين سجلات جدول في قاعدة بيانات أكسس
طريقة الأتصال هي AdO
وكود الأتصال القاعدة موجود ويعمل
وهذا كود الأتصال بالجدول
rs_kind.Open "[kinds]", db, 3, 3
وكود الأنتقال أكتبه هكذا
rs_kind.MoveNext
للتالي
أو
rs_kind.Movelast
للأخير وهكذا تماما للأول والسابق
الرسالة التي تظهر لي عند تنفيذ أمر الأنتقال هي كالتالي
"object reqiured"
ماهو الحل للمشكلة جزاكم الله خير
بكون عندك حقل Primary key
اعمل عليه Locked True من الخصائص
اذا ما نفع ارفق
محتار!!! مش عارف شوتعمل؟؟! عندك مشاكل ونفسك تنحل؟؟!
عليك بالاقتراب من خالقك
عليك بصلاة الاستخارة
وعليك بالصدقة
داوو مرضاكم بالصدقة
ما نقص مال من صدقة
تصدقو ولو بشق تمرة
شكرا أنا ألغيت المفاتيح بالجداول لأن بطريقة الآدو ممكن نستعلم ونضيف ونحذف بالأكود فشفت أن مافي داعي لأستخدام المفاتيح
بس بقيت مشكلة عند الأنتقال للزرللسجل الآخير مابيطلع رسالة تفيد أنني وصلت للسجل الآخير وهذا هو الكود أخي الفاضل
On Error Resume Next
If kind_tbl.EOF = True Then
MsgBox "لقد وصلت للسجل الآخير,", vbOKOnly
Else
kind_tbl.MoveLast
Text1.Text = kind_tbl.Fields(0)
Text2.Text = "" & kind_tbl.Fields(1)
Text3.Text = "" & kind_tbl.Fields(2)
End If
أخي يمكن الخطأ من العلاقة بين الجدول اتاكد,, لانو الكود جربته عندي وشغال تمام مافي اي اخطا,,, عشان كذا اتاكد واعمل قاعدة بيانات من جدول واحد واربطها بالكود وشوف بيطلع معاك الخطا ولا لا
ويالبت ترد علينا اذا تصلح الخطا.. ... :D تحياتي
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…