ابوخليل

خطأ خفي استنفد وقتا طويلا جميع محاولاتي باءت بالفشل ، حتى انني ابتعدت عن الحاسبة اتمشى واجدد افكاري
وفي النهاية اكتشفته ..
انت تكتب الابتدائي هكذا الابتدائى وهو خطأ حيث نهابة الكلمة ياء وليست ألف مقصورة
المهم تم ضبط الاستعلام
تجد نموذجا جديدا يشتمل على زر  وخلفه كود يستند الى الاستعلام .. هذا الزر يحدث بيانات الجدول الجديدة والقديمة معا في اي وقت تريد
يمكنك نقل الزر وكوده الى اي نموذج تريد
ملحوظة : المدير والوكيل يجب ان تكتب في حقل المرحلة .. مدير او وكيل ولا تتركه خاليا .. طبعا من خلال تسجيل جديد سيقوم اكسس بكتابته
جرب ووافني بملاحظاتك
 
برنامج حساب الحافز 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

الخلل بسيط
بسبب اني غيرت في مسميات بعض الحقول كونها تتشابه في الجدولين
تم الضبط والاصلاح
baseM_7 .rar

مشاركة مع اخي محمد
يمكن الاستعانة بوسيط لإخراج الصور  على النحو التالي :
افتح البرنامج على عرض التصميم
في جزء التنقل :
- حدد النموذج الذي يحتوي على صورة خلفية أو تنسيق تلقائي تريده
- انقر بزر الماوس الأيمن على النموذج في جزء التنقل وحدد تصدير >> XML
في الصفحة الأولى من المعالج ، حدد مكان الحفظ
انقر التالي او موافق
سيظهر لك مربع حوار صغير به ثلاثة مربعات اختيار
قم باختيار الخيار الأول (البيانات) والخيار الثالث (العرض التقديمي) ثم اضغط موافق
انقر فوق الزر "إغلاق" في الصفحة الأخيرة من المعالج بعد اكتمال عملية التصدير
اذهب الى مكان الحفظ ستجد جميع صورك في مجلد Images

تفضل تم تغيير الحدث
Dim x As Integer x = Nz(DCount("asm", "tbl1", "asm='" & Me.asm & "'"), 0) If x > 0 Then Beep MsgBox "هذا الاسم موجود سابقا", , "" DoCmd.CancelEvent Exit Sub End If  
الاسم موجود سابقا3.rar

بعد اذن الاستاذ محمد
تفضل 
 
توزيع عشوائي على طلاب.rar

تفضل
 
3تعديل بالنشاط.rar

اهلا وسهلا بك اخي الكريم ضيفا جديدا في بيتك
تفضل
bb: DSum("a";"tbl1";"id<=" & [id])  
2الجمع ما ماقبله .rar

بما انه يظهر لديك في النتيجة اكثر من نوع
ناجح / ناجحة / له برنامج علاجي / لها برنامج علاجي / (غ)
لذا عملت لك دالة تقوم بتصفية (غ) فقط  وابقيت على الانواع الأخرى 
2تعديل بالنشاط.rar

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