MOHAMMAD IBRAHIM

Dim db As DAO.Database Dim td As DAO.TableDefs Dim sql As String Dim t As DAO.TableDef Set db = CurrentDb() Set td = db.TableDefs For Each t In td ' تخطي الجداول النظامية والجداول المؤقتة If Left(t.Name, 4) = "MSys" Or Left(t.Name, 1) = "~" Then GoTo Continue ' بناء جملة SQL الديناميكية sql = "DELETE * FROM [" & t.Name & "]" ' تنفيذ الجملة SQL DoCmd.RunSQL sql Continue: Next t MsgBox "All records in all tables are deleted" Me.Requery

DoCmd.RunCommand acCmdSaveRecord Dim db As DAO.Database Dim rst As DAO.Recordset Dim nameExists As Boolean Set db = CurrentDb nameExists = False ' التحقق مما إذا كان الاسم موجودًا بالفعل في الجدول Set rst = db.OpenRecordset("SELECT [NAME ARABIC] FROM TABELSIMCARD WHERE [NAME ARABIC] = '" & Me.D2 & "'", dbOpenSnapshot) If Not rst.EOF Then ' إذا تم العثور على السجل، فذلك يعني أن الاسم موجود nameExists = True End If rst.Close Set rst = Nothing Set db = Nothing ' إذا كان الاسم موجودًا بالفعل، عرض رسالة تحذيرية وعدم الحفظ If nameExists Then MsgBox "الاسم '" & Me.D2 & "' الموظف موجود مسبقاً في نظام الكشوفات الخاصة ببطاقات الهاتف.", vbExclamation ' إذا كان الاسم مكرر، عدم حفظ السجل Me.Undo ' لإلغاء إضافة السجل الحالي Else ' إذا لم يكن الاسم مكرر، سيتم حفظ السجل بدون عرض أي رسالة ' الكود لحفظ السجل يمكن أن يقوم به الأمر DoCmd.RunCommand acCmdSaveRecord End If

Private Sub Form_BeforeUpdate(Cancel As Integer) Dim t54Value As Integer Dim devValue As String Dim response As Integer t54Value = Me.t54 devValue = Me.dev ' تحقق إذا كانت قيمة t54 تساوي 6 وأيضاً إذا dev لا يحتوي على الرقم 5 If t54Value = 6 And Not devValue Like "*5" Then ' إظهار رسالة تأكيد response = MsgBox("الحقل dev يجب أن يحتوي على الرقم 5. هل ترغب في الاستمرار؟", vbYesNo + vbExclamation, "تأكيد") If response = vbNo Then ' إذا اختار المستخدم "لا"، أعد الحقل t54 إلى Null أو القيمة الافتراضية Me.t54 = Null ' أو يمكنك تعيين قيمة معينة بدلًا من Null Cancel = True ' يمنع إغلاق النموذج End If End If ' تحقق إذا كان المستخدم يحاول الخروج بدون كتابة رقم الطلب الذي يبدأ برقم 5 If devValue = "" Or Left(devValue, 1) <> "5" Then ' تعيين القيم المطلوبة Me.t54 = 1 Me.dev = "لم يتم كتابة رقم الطلب أثناء التنفيذ" ' إظهار رسالة تنبيه MsgBox "تم الغاء التحديث لم يتم كتابة رقم الطلب", vbInformation, "تنبيه" Cancel = True ' يمنع إغلاق النموذج End If End Sub شرح للمتغير عن الكود السابق. تم إنشاء شرط إضافي للتحقق إذا كان الحقل dev فارغًا أو لا يبدأ برقم 5. إذا تحقق الشرط، نقوم بتعيين t54 إلى 1 و dev إلى "لم يتم كتابة رقم الطلب أثناء التنفيذ". تظهر رسالة تنبيه تخبر المستخدم بأنه تم إلغاء التحديث. يتم تعيين Cancel إلى True لمنع إغلاق النموذج إذا كانت الشروط مستوفاة. بهذا الشكل، ستحقق ما تريده. اتمني التجربة و الرد صديقي

اي كود تم تنفيذة ؟ لكي اقوم بتعديل عليه

جرب Private Sub Form_BeforeClose(Cancel As Integer) Dim userResponse As Integer ' تحقق من الشرط If Me.t54 = 6 Then If Not (Me.dev Like "5000000000") Then ' عرض رسالة تأكيد userResponse = MsgBox("هل تريد إعادة الحقل dev إلى القيمة السابقة؟", vbYesNo + vbQuestion, "تأكيد") If userResponse = vbYes Then ' قم بإعادة الحقل إلى القيمة السابقة Me.dev = "" ' أو قم بتغيير هذا إلى القيمة التي تريد إعادة تعيينها ' يمكنك أيضاً إضافة كود هنا لتخزين القيمة السابقة قبل تغييرها End If End If End If End Sub او Private Sub Form_BeforeUpdate(Cancel As Integer) Dim t54Value As Integer Dim devValue As String Dim response As Integer t54Value = Me.t54 devValue = Me.dev ' تحقق إذا كانت قيمة t54 تساوي 6 وأيضاً إذا dev لا يحتوي على الرقم 5 If t54Value = 6 And Not devValue Like "*5" Then ' إظهار رسالة تأكيد response = MsgBox("الحقل dev يجب أن يحتوي على الرقم 5. هل ترغب في الاستمرار؟", vbYesNo + vbExclamation, "تأكيد") If response = vbNo Then ' إذا اختار المستخدم "لا"، أعد الحقل t54 إلى Null أو القيمة الافتراضية Me.t54 = Null ' أو يمكنك تعيين قيمة معينة بدلًا من Null Cancel = True ' يمنع إغلاق النموذج End If End If End Sub

وعليكم السلام اقتباس و توضيح فقط لا اكثر 1. افتح نموذجك في وضع التصميم. 2. انقر بزر الماوس الأيمن على الحقل "dev" واختر "خصائص". 3. اذهب إلى علامة التبويب "الحدث" وابحث عن "After Update". 4. انقر على زر "..." الموجود بجوار "After Update" لفتح محرر VBA. 5. أدخل الكود التالي: ```vba Private Sub dev_AfterUpdate() If Me.dev < 5000000000 Then MsgBox "القيمة المدخلة يجب أن تكون 5000000000 أو أكبر. سيتم التراجع عن التحديث." ' قم بإعادة الحقل إلى حالته السابقة Me.Undo End If End Sub ### شرح الكود: - `Private Sub dev_AfterUpdate()`: هذا هو حدث "After Update" الخاص بحقل "dev". - `If Me.dev < 5000000000 Then`: يتحقق مما إذا كانت القيمة المدخلة أقل من 5000000000. - `MsgBox`: يعرض رسالة تنبه المستخدم بأن القيمة المدخلة غير صحيحة. - `Me.Undo`: يقوم بالتراجع عن التحديث وإعادة القيمة السابقة للحقل. بهذا الشكل، إذا أدخل المستخدم قيمة أقل من 5000000000، سيظهر تحذير وسيتراجع عن التحديث.

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

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

ارغب في تعديل الواجهات كيف افعل ذلك ؟ لان في حالة التعديل تضهر لي واجهه واحد

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

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

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

السلام عليكم محتاج فورم ادخل بيانات يتكون من اسم المعداة كود المعداة ومكان تواجد المعداة ( اي مخزن ) 4 مخازن كومبو بوكس وتاريخ الصيانة وامكانية اضافة صورتين للمعداه تظهر في الفورم والخيارات - اضافه حذف بحث بالكود او اسم المعداه بمعني لو في تشابه بالاسم تظهر لي وانا اخار منها و طباعة تقرير فيه نفس البيانات مع الصور Q8iDev@gmail.com وشكرا لكم مقدما

محتاج فورم ادخل بيانات يتكون من اسم المعداة كود المعداة ومكان تواجد المعداة ( اي مخزن ) 4 مخازن كومبو بوكس وتاريخ الصيانة وامكانية اضافة صورتين للمعداه تظهر في الفورم والخيارات - اضافه حذف بحث بالكود او اسم المعداه بمعني لو في تشابه بالاسم تظهر لي وانا اخار منها و طباعة تقرير فيه نفس البيانات مع الصور وشكرا لكم مقدما

شكرا مقدما لكن البرنامج لا يعمل واقف على هالصفحه