لو سمحتم متطوع يشرح طريقة التالي والسابق للنموذج المرفق / Ado

#112 مارس 2009 في 15:45 صاحب الموضوع

لو سمحتم النموذج المرفق بحاجة الى التعديل على زري السابق والتالي

ودمتم سالمين

فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.

#212 مارس 2009 في 16:01

أهلاً يا شادي..

كود التالي:

Private Sub Command1_Click()
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveNext
End Sub

كود السابق:

Private Sub Command2_Click()
If Adodc1.Recordset.BOF Then Exit Sub
Adodc1.Recordset.MovePrevious
End Sub

هذه الجملة خاطئة :wacko:

#312 مارس 2009 في 16:06

تسلم يا كابتن يعني لو بالممكن تعدل على النموذج المرفق يكون اوضح لي ولغيري

وشكرا

فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.

#412 مارس 2009 في 17:12

تسلم :)

shadinxtpr.rar

هذه الجملة خاطئة :wacko:

#513 مارس 2009 في 13:43

اسف اني غلبتك

بس النموذج موش زابط وانا برضو عملت كدا باول رد ليك لكن ما فيش فايدة لو ممكن ياكبتن تشوفلنا ايه الحكاية وايه الي ناقص وتسلم والله

فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.

#613 مارس 2009 في 14:27

وما هي مشكلته؟ إنه يعمل عندي بشكل جيد، ما هي رسالة الخطأ؟

هذه الجملة خاطئة :wacko:

#713 مارس 2009 في 15:56

Abboodd كتب:
وما هي مشكلته؟ إنه يعمل عندي بشكل جيد، ما هي رسالة الخطأ؟

الرسالة الاولى تذهب عند تفريغ خاصية ال DataSource

الرسالة الثانية هي اساس المشكلة وسبب استفساري

وتسلم ياكابتن

فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.

#813 مارس 2009 في 19:57

السلام عليكــم ورحمـة الله وبركاتــة ،،

وعلى متيجي يا عبود .. ده بعد اذنكم يعني :)

احذف اداة الـ adodc1 وضع غيرها .. ثم ضع الكود ادناه في الحدث Load للـ Form

Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "userpass"

Adodc1.Refresh

	Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\main.mdb"

والهدف من حذف الاداة واضافتها من جديد هو إرجاع خاصية الـ CommandType إلى الـ adCmdUnknown

وحذف قيمة خاصيتي الـ RecordSource والـ ConnectionString ... الأفضل ان تضعهم بالكود فقط

والرسالة التانيه ناتجة عن فشل الاتصال فقط .. ولن تظهر مع اتباع الخطوات سالفة الذكر

ولاحظ يا شادي ان الكلام ده متكرر .. كان عندك نفس الرسالة وعاوز تخلص منها

لكنها كانت بالانجليزي المره اللى فاتت .. الموضوع كله في مسار قاعدة البيانات

ولما بتحدده في الـ Design مبتقدرش تحدده وفقا للـ App.Path .. فلازم يكون في وقت التشغيل

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

لو سمحتم متطوع يشرح طريقة التالي والسابق للنموذج المرفق / Ado

مواضيع مشابهة

عدد الزوار حالياً