ابوخليل

كلام ابي ياسر في محله ولكن هناك مشكلة ايضا في تنسيق التاريخ تم التعديل والتجربة db1.rar

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

نموذج الدخول المفترض ان يتم اغلاقه عند الدخول حينما ندخل البيانات الصحيحة وهذا كفيل بمسح الارقام ، ثم حين تريد العودة تجد الحقول فارغة ولكن المشكلة لديك الآن بعد الاطلاع على المرفق : ان الكود المسؤول عن ذلك يحتاج الى اعادة نظر جرب وأدخل في مثالك المرفق اي رقم ستجد انه يتم الدخول وفتح النموذج الرئيسي . تم حذف الاسطر الزائدة وترتيب الكود واضافة سطر الاغلاق ، مع الشرح لكل سطر Private Sub Button27_Click() On Error GoTo Err_Button27_Click Dim Rs As Integer 'عرفنا متغير كرقم Rs = 0 'وقيمته صفر عند فتح النموذج If User = "1" And PassW = "1" Then 'شرط : اذا كان حقل الاسم يساوي 1 وحقل الرقم يساوي واحد إذا Rs = 1 'قيمة المتغير تساوي 1 End If ' نهاية الشرط If Rs = 0 Then 'شرط : اذا كانالمتغير يساوي صفرا MsgBox "كلمة المرور او اسم المستخدم خطأ...حاول مرة اخرى" Exit Sub ' الخروج من الامر End If ' نهاية الشرط If Rs = 1 Then 'شرط : اذا كان المتغير يساوي واحد DoCmd.OpenForm "main_screen" 'افتح النموذج المذكور DoCmd.Close acForm, Me.Name 'واغلق النموذج الحالي End If ' نهاية الشرط Exit_Button27_Click: Exit Sub Err_Button27_Click: MsgBox Err.Description Resume Exit_Button27_Click End Sub الخطة الفصلية2.rar

لاشيء اخي ولكن من باب المبالغة في النقد ، ويكفيك رأي اخواننا المشرفين في عملك هذا اغبطك على هذا الخلق الرفيع وعلى هذه الهمة العالية ، ونحن بالخدمة ما قدرنا .

جميل والواجهات حلوة واليك ما خلصت اليه اولا جميع الواجهات يمكن اختصارها في واجهة واحدة وتؤدي الغرض نفسه ، ومعليش تحمل هذه الكلمة فقد يكون وقعها شديدا عليك : وهي ان النتيجة في برنامجك هذا يمكن عملها في صفحة وورد في خمس دقائق . ثانيا لا ارى للمتدربين نصيب فيفترض كل برنامج في وقت معين يشتملل على متدربين تستطيع التوسع في البرنامج فتطبع منه شهادات الحضور او التخرج تقبل تحيتي

اهلا بك اخي وتسعدني خدمتك : هذا كود لحذف المجلد الفارغ وطبعا لن يسألك ولن يمر على سلة المحذوفات 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

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