ابوخليل

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

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

مشاركة مع اخوتي واحبتي الكرام تفضل .. وغير ما يلزم .. حسب المسميات عندك Dim rs As Recordset Private Sub cmdOK_Click() Set db = CurrentDb Set rs = db.OpenRecordset("tblUsers", dbOpenDynaset) rs.FindFirst "UserName = '" & UserName & "' and password ='" & Password & "'" If rs.NoMatch Then MsgBox "هذا المستخدم غير مسجل" Exit Sub Else DoCmd.OpenForm "frm_main" DoCmd.Close acForm, Me.Name End If End Sub

وعليكم السلام انظر هذا النظام ربما يروق لك

اخي الكريم قائمة التاريخ غير فعالة عندي يمكن انها بحاجة الى مكتبة خاصة فعند فتح النموذج تخرج رسالة بأن الكائن غير موجود في عنصر التحكم لذا قائمة التاريخ تظهر عندي كأنها مربع نص عادي

كم اتفقنا انك تفرد كل سؤال بموضوع وعنوان جديد يخصه بالنسبة للحل اعلاه كما قلت لك : افتح التقرير على التصميم / ثم انقر على الخلية بزر الفأرة الأيمن اختر من القائمة : تنسيق شرطي سيظهر لك مربع حوار وسترى القيمة التي وضعتها انا وهي morte=-1 ولون الخلفية اذا تحقق الشرط طبق العملية على جميع الخلايا

وعليكم السلام استخدمنا التنسيق الشرطي اذا كان الحقل True يصبح الحقل احمر انقر بزر الفأرة الايمن على الحقل واختر تنسيق شرطي ستتضح لك المسألة beirut ifradi akeli2.rar

وعليكم السلام انا اخالفك الرأي لان الكود المكتوب ابقى واسرع لوصول الفائدة ، وسأثبت لك انه مجدي عمليا اولا غير اسم صفحة النت الموجودة في مرفقاتك الى studNm.htm ثم الصقها بجانب قاعدة بيانات جديدة افتح قاعدة البيانات واعمل نموذجا جديدا واعمل داخله زر أمر في حدث النقر للزر الصق السطر التالي : DoCmd.TransferText acImportHTML, , "tmpHTMLImport", CurrentProject.path & "\studNm.htm", False, "الادارة الالكترونية للتعليم##بيانات التلميذ6" واذا اردت استيراد الرقم التسلسلي غير العبارة الاخيرة الى ( الادارة الالكترونية للتعليم##بيانات التلميذ3 ) يمكنك بعد ذلك تصدير بيانات الجدول الجديد الحاصل الى جدولك الرئيس

المشكلة السابقة هي ان الحقول كانت غير منضمة الى الجدول المرفق لا يحتوي على قائمة منسدلة للتاريخ !!

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

يصبح هكذا : ejmaleEjazat: Int(((Date()-[hiredate])/7.3))

اولا لا بد ان تعمل جدولا خاصا بهذه القيم لانها قابلة للزيادة والنقصان ، لذا فحين تتغير قيم التعويض يستطيع المستخدم وبكل بساطة تغيير القيم داخل الجدول فقط ولست بحاجة للتعديل على الكود تفضل تم تعديل المرفق PerDiem2.rar

لطفا اخي الكريم افتح بكل سؤال جديد موضوع بعنوان جديد بارك الله فيك

الواتس محجوب الصوت عندنا أسأل الله ان يعينكم ويييسر اموركم

اخي الكريم انظر المرفق وتفحص الجداول جيدا واعتقد ان التأسيس يحتاج الى زيادة نقاش ، من اجل تحليل البيانات واستيعاب وتصور المشروع لذا ان امكن التحادث عبر احد برامج المحادثة فهو افضل testbeirut2.rar

السلام عليكم تم التعديل وهو اضافة الدالة Btween الى المعيار Copy3.rar

المرفق سليم يمكن المشكلة عندك في المتصفح وتفضل مرة اخرى test2 (1).rar

تفضل انقر F2 ولاحظ يجب ان يكون التركيز واقع على النموذج Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF2 Then DoCmd.OpenForm "A1", acNormal End If End Sub db.rar

تفضل امل ان يكون التعديل هو مطلوبك test2.rar

بمشيئة الله سوف ارسم لك الخطوط العريضه وارفق لك تطبيقا من مثالك .. فقط امهلني .. وذكرني ان نسيت

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

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

وعليكم السلام طبعا العمل هذا عليه كلام لانه غير منضبط تماما لانك ستجد زيادة او نقص في البيانات المطلوب : نفرض ان سعاد قد تزوجت بأكثر من شخص ولها منهم ابناء فبكل بساطة يمكن ان تظهر سعاد في دفتر نفوس كل واحد منهم ، وبالمقابل لو اخترنا سعاد لظهر في دفتر نفوسها ابناءها جميعهم لو قمتم بحملة جماعية لترتيب البيانات يجب ان يشتمل الجدول على ثلاث حقول الزامية : 1- رقم هوية الأب 2- رقم هوية الأم 3- رقم هوية الشخص نفسه لان اولاد اليوم سيكونون غدا آباء وأمهات وتكون الاسماء موزعة على جدولين جدول للآباء وجدول للابناء وبعد بضع عشر ة سنة او عشرين ان امد الله في عمرك ستعمل جدولا فرعيا لجدول الابناء وهكذا ... فإذا قلنا ان الجيل 30 سنة فبعد 90 سنة من الآن سيكون حصيلتنا 4 جداول فقط تحتضن ثلاثة اجيال

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

واذا اردت حلا اسهل فهذا السطر يفي بالغرض If Not IsNull(txtSaveOpérateur) Then Exit Sub