ابوخليل

وهذا تعديل طفيف عند النقر  على لست الأب .. سيظهر الابناء مع ارقام امهاتهم
اضفت رقم الأم الى الكود
 
 
CNA_8.rar

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

من خصائص مربع التحرير / تنسيق
اجعل عدد الاعمدة 2 أو ثلاثة بدلا من 1
333.rar

انتهيت الى هذا
بفضل الله .. ثم بمشاركتكم تولدت الأفكار والحلول
 
Database29.rar

مشاركة مع اخي فادي للفائدة العامة
مشروع تأجير المركبات :
1- تكون المركبة هي رأس الهرم في المشروع ، اما العميل فهو فرع
سبب بسيط بديهي :
المركبة يتناوب عليها الكثير من العملاء وقد يستأجرها عميل طارىء مرة واحدة فقط
المركبة هي المصدر المالي للمشروع ويجري عليها العمليات المختلفة : تحصيل اجور/ نفقات صيانة / تأمين / مبالغ للوقود / اجرة سائق ان وجد ..... الخ
 
 
 

طريقتك في ادخال الغياب ضمن جدول الدرجات مقبولة بل جيدة .. وايضا تسهل عليك الرصد 
نأتي لشرح التعديل حسب طلبك فارجو القراءة بتمعن وحرص :
اولا :
1- جدول Tbl_materil اساسي ومهم جدا ضبطه بالصورة الصحيحة
وانا قمت بضبطه حسب اجابتك اعلاه
فالمادة اما ان تكون خاصة بالصفوف العليا او خاصة بالدنيا او مشتركه بينهما
ايضا الدرجة ستبقى كما هي عمود للعليا وآخر للدنيا 
2- جدول الصف يتم ضبط النوع رقم 1 للدنيا ورقم 2 للعليا
ثانيا : النماذج
1- نموذج الرأس : اظهرت لك الحقل المخفي  safType  من اجل تطلع على التغيير عند التغيير في مربع الصف
2- مربع الصف عند الاختيار  يصبح قيمة safType  تساوي 1 للصفوف الدنيا و 2 للصفوف العليا
3- حقل safType نستخدمه كمعيار  في استعلام مربع المواد لعرض المواد الخاصة بالدنيا او العليا + رقم 3 لأن رقم 3 يمثل المواد المشتركة بينهما
الى هنا اعتقد كل شيء واضح تماما .
نأتي لشرط عدم ادخال قيمة اعلى من الدرجة المقررة
تم الاعلان عن متغير رقمي عام  varHiDarjh تجده في الوحدة النمطية
في نموذج الرأس وعند حدث بعد التحديث لمربع المواد  عملنا هذا
If Me.safType = 1 Then varHiDarjh = Nz(Me.mater.Column(5), 0) Else varHiDarjh = Nz(Me.mater.Column(4), 0) End If المتغير يأخذ الدرجة من مربع المواد .. لأن الدرجات موجودة في الاستعلام مصدر المربع سواء الدنيا او العليا ، فالاولية في العمود الخامس بينما درجة الصفوف العليا في العمود الرابع
الآن المتغير يحمل القيمة وجاهز لاستخدامه
نذهب الى النموذج الفرعي والى حقل الدرجة deg لنطلع على الحدث قبل التحديث سنجده كالتالي :
If deg.Value > varHiDarjh Then Beep MsgBox "القيمة اكبر من المقرر" واعتقد ان هذا واضح ولا يحتاج شرح
 
 
البحث وتعديل درجات4.rar

تفضل
 
تحويل مبلغ2.rar

Private Sub Form_Open(Cancel As Integer) Dim i As Boolean i = Nz(DLookup("Name_ID", "Name_Tbl", "Name_ID=" & crMyfrmId), 0) If i = True Then DoCmd.GoToRecord , , , crMyfrmId Else DoCmd.GoToRecord , , acNewRec End If End Sub crMyfrmId  هو متغير عام يحمل رقم السجل
Tracking test to المنتدى.rar

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

بعد المحاولة والتجربة خرجت بالنتائج التالية :
1- اي عملية حجز يراد التعديل عليها أو تحديثها الأفضل ان يتم الغاؤها .. اي حجبها فلا تظهر في بحث الحجز .. سواء كان القصد استبدال الزبون او تغيير وقت الحجز .
2- الإلغاء او الحجب عبارة عن حقل  نعم/ لا  يتم تفعيله عند الإلغاء
بعد حجب الموعد :
 البديل الجديد او الزبون الذي يريد تغيير وقت الحجز  يتم تسجيل حجز جديد له
في المرفق ادناه : نموذج خاص بالإلغاء
لن تظهر الملاحظات الا بعد التجربة المكثفة
 
مواعيد دخول وخروج3.rar

ما تزعقش ياخوي يا عبداللطيف 😫
تفضل جرب
ادخل اكثر من 3 سجلات وشوف النتيجة
بعد ادخالك 4 سجلات اغلق النموذج ثم افتحه من جديد
الافضل كتجربة : كل سجل تدخله اغلق النموذج ثم افنح من جديد حتى تصل الى السجل الرابع .. كي تتأكد من جودة الحماية
ممنوع دخول الخبراء ..  
 
اوفسنا كود ايقاف2.rar

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

تفضل
معالج اكسس قام بكل شيء
DB2.rar

طيب على راحتك
نحن نتعلم .. لنتجاوز أخطاءنا .. ونطبق الطرق السليمة كي نطور انفسنا
كتابة الحقول بحروف عربية ستتعبك كثيرا ويصعب عليك التعلم ..
تفضل :
تم تحقيق طلبك كما تريده بالضبط  من دون اي تعديلات على المرفق..
If Me.TXT = "مقيم" Then Me.Form.Filter = "مقيم like '" & "نعم" & "'" Me.Form.FilterOn = True ElseIf Me.TXT = "لديه كفيل" Then Me.Form.Filter = "[لديه كفالة] like '" & "نعم" & "'" Me.Form.FilterOn = True ElseIf Me.TXT = "لديه اقامة" Then Me.Form.Filter = "[لديه اقامة] like '" & "نعم" & "'" Me.Form.FilterOn = True End If  
test4.rar

معالجة جميلة استاذ فادي
وهذه محاولة مني لإدراج الترقيم في الجدول
Dim rs As Recordset Dim i As String Dim ii As Integer Dim x As Integer Set rs = CurrentDb.OpenRecordset("Query1") rs.MoveLast rs.MoveFirst i = Me.GRADE1.Column(1) ii = Me.GRADE1.Column(2) Do While Not rs.EOF rs.Edit rs!code_stagiere = i & (ii + x) rs.Update x = x + 1 rs.MoveNext Loop  
baseAA.rar

تفضل
New.rar

مشاركة مع اخي الاستاذ عمر
حل آخر باستخدام التنسيق الشرطي
 
sick2.rar

عليكم السلام
اعتقد لو وضعت هذا السطر  في اعلى الكود سيتجاوز الخطأ ولن تظهر الرسالة ، ولكن لن يتم التحديث على الحقل
On Error Resume Next  

الرسالة هذه تفيد عدم وجود بيانات
تم اضافة سطر لتوضيح الحالة
ملحوظة حتى تظهر المادة يجب ادخال تاريخ موجود في الجدول ExamTimeTable
Dim i As String todd.Requery i = Nz(DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#"), "") If i = "" Then MsgBox "لا يوجد اختبار في هذا التاريخ", , "" Else Me.crs_cd = i End If اذا لا تريد الرسالة والتنبيه يظهر تكتفي بهذه
Dim i As String todd.Requery i = Nz(DLookup("[crs_cd]", "[ExamTimeTable]", "[edate] =#" & [Forms]![GyabF]![todd] & "#"), "") Me.crs_cd = i Gyab3.rar

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

IT2.mdb

test.rar

وحتى لا تتوه ادرجت لك
Dim rs As Recordset Dim na0, na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst DoCmd.Hourglass True Do While Not rs.EOF na0 = "": na1 = "": na2 = "": na3 = "" na0 = Split(rs!AsmGded, " ")(0) na1 = Split(rs!AsmGded, " ")(1) na2 = Split(rs!AsmGded, " ")(2) na3 = Split(rs!AsmGded, " ")(3) rs.Edit rs!Rmz = Mid(na0, 1, 2) & Mid(na1, 1, 2) & Mid(na2, 1, 2) & Mid(na3, 1, 2) rs.Update rs.MoveNext Loop DoCmd.Hourglass False Beep MsgBox "تم توليد الرموز بنجاح", , "" End Sub السطرين .. فقط استبدل الكود بهذا
 

مشكلتك في الفرز
انت عملت الفرز في التقرير حسب التاريخ .. والكود تعامل معه على هذا الاساس ..
طيب ما المشكلة لما تفرز حسب المعرف ... هو نفسه سوف يفرزه حسب التاريخ بل هو ادق بحيث لو تاريخين متشابهين راح يجيب لك الذي تم تسجيله اولا  ويضعه في الأعلى
---------------------------------------------------------------------------------
كود الرصيد يعتمد على معرف الجدول (id) وهو تلقائي غير قابل للتكرار
والتاريخ مؤكد سوف يتجدد حسب السجل الجديد
بمعنى ان اي تاريخ يتم تسجيله كجديد سوف يكون التاريخ اكبر من الذي قبله أو مساويا له
الكود لا ينظر للتاريخ وانما ينظر للمعرف ويتعامل معه من الاصغر الى الأكبر 
اكبر دليل لما تكون فاتح نموذج التقارير وتختار المواد الغذائية والبطاطا .. افتح الاستعلام وانظر 
 
 
stock19 .rar

شكرا للمشاركة اخي ابو بسملة
تفضل تعديل كامل على الكود مع المرفق
Dim db As Database Dim td As TableDef Set db = CurrentDb() For Each td In db.TableDefs If Left(td.Name, 4) = "MSys" Or Left(td.Name, 1) = "~" Then GoTo Continue DoCmd.RunSQL "DELETE * FROM " & td.Name & ";" Continue: Next MsgBox " all records in all tables are deleted" Me.Requery  
Database2.rar