حارث

في الإرشيف *فورم* حفظ اضافة تحرير بنموذج واحد بدون DAO و لا SQL http://www.arabteam2000.com/vb/showthread....&threadid=13229 والمثال الموجود فيه يحتوي على ما طلبت

حقيقة نفتقده كثيرا ، فطمئنونا .

بعد إذن أستاذنا أبو هاجر بالنسبة للسؤال الثاني الدالة التالية ترجع مسار قاعدة البيانات الحالية Function fCurrentDBDir() As String Dim strDBPath As String Dim strDBFile As String strDBPath = CurrentDb.Name strDBFile = Dir(strDBPath) fCurrentDBDir = Left(strDBPa…

مثال الكود الأول errortable.zip

وأعتذر حيث لم أقرأ موضوع أبو هاني جيدا ، فقد كنت أبحث عن موضوع أشرف الذي أذكره ، وما خطر في بالي أن كود الأخ أبو هاني لإنشاء جدول . وقد أمضيت البارحة كلها أحاول إنشاء هذا الجدول بنفسي ، وكان الكود أمامي. أخي العزيز فهد : كما قال الأخ أبو هاجر : نفذ الكود الأول…

الذي أرفقه مشرفنا الغالي أشرف خليل مشكورا

سؤال حول الأخطاء حسب تجربتكم هل أرقام الأخطاء منضبطة ، أي لا تتغير من وقت لآخر ، أو من جهاز لآخر ، أم أنها قد تتغير . ذلك أني افترضت في بعض الأكواد أن رقم الخطأ منضبط ، لكن أحد الأخطاء -والذي كان من المفترض أن يكون رقمه 2501 - ظهرت معه الرسالة السابقة ورقم الخ…

تظهر عندي هذه الرسالة مع بعض الأخطاء ، والتي كان يفترض أن يظهر معهاErr.Description ملاحظة : أحد الأخطاء كان رقمه 3000 فما سبب ذلك ؟ وكيف أقوم بتفادي هذه الرسالة إذا تكرر مثل هذا الخطأ

وجزاك الله خير وجعل كل ما تقدمه في هذا المنتدى وغيره في موازين حسناتك .

آسف حيث غفلت عن هذا الموضوع كل هذه المدة وجدت الغرض المطلوب في السؤال في الماكرو التالي Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "هـ" .Replacement.Text = "هـ" .Replacement.Font.Name = "Arial" .Forwar…

جزاك الله خير أخي أبو هاجر على المثال السابق فقد كنت بأمس الحاجة إليه حاولت وضع كود يصلح لجميع التقارير التي لدي في أحد البرامج ، وعددها يقارب العشرة ، فتوصلت إلى المثال المرفق طبعا الكود يتناسب مع طريقة تصميم تلك التقارير وللفائدة أرفقته لعل أحدا يستفيد من هذ…

في الإرشيف *فورم* اعادة تصفير رقم تلقائي بعد المسح http://www.arabteam2000.com/vb/forumdispla...y.php?forumid=6

أستاذينا الحبيبين محمد و أبو هاجر جزاكما الله خيرا . والمطلوب هو ما وضحه أبو هاجر مشكورا .

لعل العنوان يوضح المطلوب لدي جدول فيه عدد من الحقول ، وتم كتابة بعض البيانات فيه ، وأريد عمل تحديث له بإضافة بعض الحقول إليه ، منها - وهو الذي لم أتمكن من عمله- حقل من نوع ترقيم تلقائي AutoNumber فكيف يكون ذلك ؟

المعذرة الأمثلة مفقودة من عندي ، ولهذا لم أحل على هذا الموضوع من قبل ، لكن لما وجدت أن الأخ فهد أورد المثال السابق - وهو أهمها ويكفي عن غيره- أحلت عليه لبيان الغرض منه فقط لا لشيء آخر

جزاك الله خير أخي فهد ما أدري كيف استخرجت المثال ولفهم الغرض من هذا المثال فهو محمل من الوصلة التالية : http://www.arabteam2000.com/vb/showthread....=&threadid=4104 بعنوان : قاعدة بيانات للاختبارات الموضوعية

تتالت علينا الروائع منك أبو هاجر جعل الله ما تقدمه في موازين حسناتك ، وألهمنا دعوة لك بالغيب مستجابة

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

هل جربتم وضع هذا الكود في الوحدة النمطية الخاصة بالنموذج وهو من موضوع شريط التقدم في موقع ابو حمود Private Sub Pause(ByVal nSecond As Single) Dim t0 As Single t0 = Timer Do While Timer - t0 < nSecond Dim dummy As Integer dummy = DoEvents() If Timer < t0 Then t…

يمكن أن تستفيد من طريقة عمل المثال التالي: http://www.pcpages.com/harith77/UmCalUse.zip افتح الرابط ثم انقر على Click Here والموجود في الإرشيف في الوصلة التالية : http://www.arabteam2000.com/vb/showthread....&threadid=12761 عنوان الموضوع : *فورم* تقويم أم القر…