ابوخليل

اهلا بك اخي وتسعدني خدمتك : هذا كود لحذف المجلد الفارغ وطبعا لن يسألك ولن يمر على سلة المحذوفات RmDir (CurrentProject.Path & "\myfolder") نضع مجلدا في نفس مسار قاعدة البيانات باسم myfolder

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

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

كافيك لذة الانتصار والاكتشاف لكن كلمة : " احصائية " الا ترى انها تستحق ان تفرد في عنوان جديد . اعانك الله ووفقك

اخي الكريم : هذا منتدى تعليمي متخصص في برامج الاوفس وهذا القسم خاص بالاكسس ، فإن كان برنامجك تم تصميمه على أكسس فيمكن ان تجد من يساعدك هنا . للعلم امتدادات الاكسس هي : mdb or mde or Accdb or Accde فإن كان احد هذه الامتدادات موجود ولا تعمل كما ذكرت فأكيد انت بحاجة الى تنصيب الاوفيس على حهازك والله اعلم ،،،

دالة الجمع ستعتمد على القيم في جدول الثوابت وتكون كهذه : Dim m Text2 = 0 For m = 1 To Len(Text1) Text2 = Text2 + DLookup("num", "tbl1", "tex = '" & Mid(Text1, m, 1) & "'") Next m

التوفيق هو تواجدك بعد هالغيبة الله يحفظك

ادوات / ادوات مساعدة لقواعد البيانات / انشاء ملف mde هذا بالنسبة للاصدار 2003 والاصدارات الاحدث يتم تحويل لقاعدة كذلك في الخيارات من accdb الى accde

نعم لقد اتضح ما تريد تفضل هذا الكود يقوم بادخال تواريخ متتابعة حسب تاريخين محددين Dim date1 As Date, date2 As Date Text1.SetFocus date1 = CDate(Text1.Text) Text2.SetFocus date2 = CDate(Text2.Text) If date1 > date2 Then MsgBox "The initial date is after the finish date!" Exit Sub End If DoCmd.SetWarnings False Do Until date1 >= date2 DoCmd.RunSQL "insert into text1 (dateField) values (#" & date1 & "#);" date1 = DateAdd("d", 1, date1) Loop DoCmd.SetWarnings True

تقصد من ليس لك صلاحية انك لم تستطع ؟ اذا كان كذلك فقم بضغط الملف قبل ارفاقه بأحد برامج الضغط winrar or winzip ايضا : الجمع معروف وأمره ميسور بإذن الله ولكن عدد ورود الحرف في الجملة لا اعلم كيف تريد ظهوره ؟ هل تريد ان تظهر الحروف كلها وتجعل امام كل حرف عدد تكرار وروده في الجملة ؟ ام تريد الحروف المكررة فقط وعدد تكرارها ؟

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

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

الملاحظات من محاسن وعيوب لا تظهر حاجتها الا بعد الممارسة الفعلية والعمل على البرنامج وهذه يمكن تداركها فيما بعد ، فليس غريبا ان يستمر التعديل على البرنامج لمدة طويلة وهو على رأس العمل ، ايضا لا ننسى ما يسمى بالتحديثات المواكبة للتغير والحاجة الى التغيير ...

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

وجدت عدة اخطاء في التسميات وخاصة في التقرير وتم اصلاحها انظر المرفق فيه قاعدتان وكما تسميهما تنفيذه واحدة محمية والاخرى مفتوحة للدخول الى التصميم والتعديل فقط على المفتوحة اضغط على زر الشفت اثناء ( قبل ) التشغيل واستمر ضاغطا حتى تفتح القاعدة على التصميم حاول اكتشاف ما تم من تحسينات بنفسك ، فإن فعلت فقد قطعت نصف الطريق ss.rar

ارفق مثالك للتطبيق

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

شكرا لك يا نور الرياض ’ اكثر الله من امثالك

حقيقة المشكلة غريبة ومع انه يظهر الرقم 2 في النموذج الا انه لا يتم تفعيله في الجدول لذا تجده ينقلب الى رقم 1 للحل طرق عدة وهذه واحدة منها : المخزن.rar

اخي سعد شكرا لك على هذه المعلومة

اخي سعد شكرا لك وهذه المشاركة لعلها تكون تفسير لهذه الظاهرة : http://www.officena.net/ib/index.php?showtopic=30480

وضح اكثر ، ماذا تريد ان تعمل في هذا الجدول ؟ ولماذا وضعته ؟ وما علاقته بالجداول الاخرى ؟

المسألة بسيطة انت نسيت تمسح مربعات النص المخفية وطبعا هي المعيار في الاستعلام EXEMPLE_Saerch2.rar

انظر الصورة :

ارفق مثالك للتطبيق