كيف انشي للبرنامجي المرفق بحث ؟؟

بسم الله الرحمن الرحيم

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

الاخ العزيز تم التعديل بالمرفق لكن هنالك نقطه معينه في طريقة كتابتك للكود

فقد لاحظت انك قد كتبت عشرات الاسطر لاضافة سجل جديد

بتحديد اسم كل حقل وتحديد قيمته لما لم تقم بمجرد

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

Private Sub Command1_Click()
  For I% = 0 To 3
  Rs.AddNew
  Rs.Fields(I) = Text(I).Text
  Rs.Update
  Next
  End Sub

لاحظ انه الان سوف يمكنك اختزال اكواد مشروعك يمكنني التعديل على المرفق لو

سمح لي الوقت باذن الله

ودمتم

www.zip

أستاذي العزيز

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

ارجو من الله ان تكون با الف صحه وعافيه

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

والله يحفظكم ويجعل ذلك في موازين حسناتكم

ملاحظة :-

يكون لنا الشرف والا عتزاز حينما نتعرف عليكم اكثر من خلال البريد الكتروني التالي

softmail8@gmail.com

تلميذك :سالم احمد

الرياض

المملكه العربيه السعوديه

سلمت يداك

يا أخي

احمد فراس مكية

على هذا الجواب الشافي

---------

وللفائدة فقد قمت بعمله لك بطريقةٍ أخرى لعلَّه ينفعك

رفعته لك على رابطٍ آخر

http://www.fesalup.com/A1MD50W4R493/Update.rar.html

مع تحيَّاتي

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

حمدا لله اني قد استطعت ان انفعك وان شاء الله اي خدمه ثانيه انا حاضر

وبالتاكيد يمككنا التواصل وشكرا للاخ انس

على حله الثاني

ودمتم

اقتباس

ستاذي العزيز

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

ارجو من الله ان تكون با الف صحه وعافيه

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

والله يحفظكم ويجعل ذلك في موازين حسناتكم

ملاحظة :-

يكون لنا الشرف والا عتزاز حينما نتعرف عليكم اكثر من خلال البريد الكتروني التالي

softmail8@gmail.com

تلميذك :سالم احمد

الرياض

المملكه العربيه السعوديه