MOHAMMAD IBRAHIM
عضو جديد 01-
Posts
23 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
5 Neutralعن العضو MOHAMMAD IBRAHIM
- تاريخ الميلاد 26 أكت, 1983
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
مبرمج مبتدئ
-
البلد
الكويت
-
الإهتمامات
البرمجة و الالعاب
اخر الزوار
870 زياره للملف الشخصي
-
يرجى الانتباه إلى أن مناقشة أو تقديم طرق لفك حماية قواعد البيانات يعتبر أمرًا حساسًا، حيث إن ذلك قد يؤثر سلبًا على حقوق المبرمجين والمطورين. نظرة عامة: قواعد البيانات بصيغة Accde أو Mde: هذه الصيغ محمية بشكل قوي، وبالتالي لا يُنصح بالبحث عن طرق لفك الحماية. قواعد البيانات بصيغة Accdb أو Mdb: في حالة العمل مع هذه الصيغ، هناك خيارات شرعية، مثل: إنشاء قاعدة بيانات جديدة: يمكنك استيراد المكونات مع مراعاة وجود كلمة المرور. ضرورة احترام حقوق المبرمجين: من المهم دائمًا احترم عمل الآخرين وعدم انتهاك حقوق الملكية الفكرية. نحن هنا لتقديم المساعدة والإرشادات، لكن من المهم أن نكون واعين للأثر الذي قد تحدثه أفعالنا على الآخرين في هذا المجال. ختامًا: إذا كانت لديك استفسارات أو تحتاج إلى مساعدة في جوانب أخرى ضمن البرمجة أو قواعد البيانات دون انتهاك الحقوق، فلا تتردد في طرحها!
-
MOHAMMAD IBRAHIM started following تعديل في شيت الحضور و الانصراف الشهري , ما الخطأ في الكود , اريد تعديل على الكود التالي و 1 اخر
-
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
-
كود vba لشرط الرجوع عن التحديث
MOHAMMAD IBRAHIM replied to Abdelaziz Osman's topic in قسم الأكسيس Access
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 لمنع إغلاق النموذج إذا كانت الشروط مستوفاة. بهذا الشكل، ستحقق ما تريده. اتمني التجربة و الرد صديقي -
كود vba لشرط الرجوع عن التحديث
MOHAMMAD IBRAHIM replied to Abdelaziz Osman's topic in قسم الأكسيس Access
اي كود تم تنفيذة ؟ لكي اقوم بتعديل عليه -
كود vba لشرط الرجوع عن التحديث
MOHAMMAD IBRAHIM replied to Abdelaziz Osman's topic in قسم الأكسيس Access
جرب 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 -
كود vba لشرط الرجوع عن التحديث
MOHAMMAD IBRAHIM replied to Abdelaziz Osman's topic in قسم الأكسيس Access
وعليكم السلام اقتباس و توضيح فقط لا اكثر 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، سيظهر تحذير وسيتراجع عن التحديث. -
تعديل في شيت الحضور و الانصراف الشهري
MOHAMMAD IBRAHIM replied to MOHAMMAD IBRAHIM's topic in منتدى الاكسيل Excel
طلبي شرح او تعديل حفظ الشهر المدخل و مسح الشيت ليتم ادخال بيانات الشهر الجديد و في حالة الرجوع للشهر يتم استدعاء البيانات وشكرا -
السلام عليكم محتاج مساعدة في ترحيل بيانات الشهر بالكامل الي ورقه جديدة واختيار شهر جديد لتسجيل البيانات وفي حالة اختيار الشهر القديم يتم جلب البيانات للتعديل عليها وشكرا لكم تحضير يومي.xlsx
-
مساعدة في برنامج حضور و انصراف
MOHAMMAD IBRAHIM replied to MOHAMMAD IBRAHIM's topic in منتدى الاكسيل Excel
ارغب في تعديل الواجهات كيف افعل ذلك ؟ لان في حالة التعديل تضهر لي واجهه واحد -
MOHAMMAD IBRAHIM started following طلب بسيط لو امكن , مساعدة في برنامج حضور و انصراف , برنامج الحضور والغياب عبر الفورم (فريد من نوعه، لا مثيل له) و 1 اخر
-
مساعدة في برنامج حضور و انصراف
MOHAMMAD IBRAHIM replied to MOHAMMAD IBRAHIM's topic in منتدى الاكسيل Excel
حاليا عند فتح الملف ارغب في تعديل بعض الخانات في الفورم فتضهر عندي فروم واحد ولا استطيع التنقفل بين الفريمات بمعني ارغب بتعديل على الواجهه مثل التقرير الشهري وارقام الصفوف و التقرير اليومي وسجل الحضور لكن يضهر معي فقط عرض البيانات كما هو موجود في صورة شاشة vb وشكرا لك مقدما -
صباح الخير هل .. ارجو فقط تعليمي كيف الدخول الي باقي الواجهات في البرنامج المرفق وشكرا مقدما حضور وغياب - يوزر فورم--.xlsm
-
السلام عليكم محتاج فورم ادخل بيانات يتكون من اسم المعداة كود المعداة ومكان تواجد المعداة ( اي مخزن ) 4 مخازن كومبو بوكس وتاريخ الصيانة وامكانية اضافة صورتين للمعداه تظهر في الفورم والخيارات - اضافه حذف بحث بالكود او اسم المعداه بمعني لو في تشابه بالاسم تظهر لي وانا اخار منها و طباعة تقرير فيه نفس البيانات مع الصور Q8iDev@gmail.com وشكرا لكم مقدما
-
محتاج فورم ادخل بيانات يتكون من اسم المعداة كود المعداة ومكان تواجد المعداة ( اي مخزن ) 4 مخازن كومبو بوكس وتاريخ الصيانة وامكانية اضافة صورتين للمعداه تظهر في الفورم والخيارات - اضافه حذف بحث بالكود او اسم المعداه بمعني لو في تشابه بالاسم تظهر لي وانا اخار منها و طباعة تقرير فيه نفس البيانات مع الصور وشكرا لكم مقدما