خانة خيار في الشاشة الرئيسية محدد الحفظ للبيانات

[sm44ms]

صباح الخيرات والمسرات عليكم جميعا:

عندي خانة خيار في الشاشة الرئسية لتجديد البطاقات

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

[kkhalifa1960]

اين المرفق للعمل عليه وموضح به طلبك .

[Eng.Qassim]

شيء من هذا القبيل

If Me.chk1.Value = True Then
        DoCmd.CancelEvent
        MsgBox "مستقيل"
Else
        DoCmd.Save
End If
    

 

تم تعديل فبراير 21, 2023 بواسطه Eng.Qassim

[sm44ms]

كيف اضع هذا الكود لو سمحت

[sm44ms]

[sm44ms]

في الانتظار

[ابوخليل]

اكسس يحفظ اي بيانات يتم ادخالها

ولكن يوجد اكثر من طريقة لتحيق الفكرة

انا افضل عدم ظهور بيانات الشخص من الاساس اذا يوجد عليه ملاحظات ، ويتم تفعيل حضوره من فورم آخر خاص

وطريقة اخرى وهي ان تظهر الحقول باهتة ورسالة تشرح سبب ذلك

اذا لم تتمكن من تطبيق ذلك يمكنك ارفاق جزء بسيط من برنامجك عبارة عن الواجهة هذه والجدول الخاص بها مع بعض البيانات الوهمية

كتى تمكن اخوتك هنا من مساعدتك

[sm44ms]

اخوي ابو خليل 

البيانات تدخل في فروم اخر والتعديلات

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

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

تم تعديل فبراير 28, 2023 بواسطه sm44ms

[Eng.Qassim]

5 ساعات مضت, sm44ms said:

ولكن في شاشة التجديد عند البحث برقمة الوظيفي

في مربع البحث ضع هذا الكود ..اعتما على علامة الصح والرقم الوظيفي ستظهر رسالة تنبيه

ويمكن استخدام دالة dlookup ايضا

Dim cardN As Long
    cardN = Val(Me.txtSearch.Value)
    If cardN > 0 Then
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("SELECT * FROM Customers WHERE cardN=" & cardN & " AND ISaCTIVE=True;")
        If Not rs.EOF Then
            MsgBox "الموظف مستقيل"
        End If
        rs.Close
    End If

 

[ابوخليل]

او من خلال النموذج جعل خانة الخيار ( نعم/ لا ) شرط في اظهار او اخفاء زر الطباعة ، او اظهار مربع نص بلون احمر يفيد بوضعه

[sm44ms]

اخي Eng.Qassim

اين اضع الكود في الحدث مع تحديد اسم الحقل

[Eng.Qassim]

3 ساعات مضت, sm44ms said:

اين اضع الكود في الحدث مع تحديد اسم الحقل

نعم اخي بعد التحديث ..ولاتنسى تغيير اسم الجدول لديك واسماء الحقول الاخرى الموجودة عندك

[sm44ms]

اشكرك سوف اجرب وارد لك

بس ما  عليك امر

اسم الجدول

وحقل الرقم 

وخانة الخيار 

شو اسماءها في الكود  

مشكووووووووووووووووووووووووووووووور

 

[sm44ms]

اشكرك سوف اجرب وارد لك

بس ما  عليك امر

اسم الجدول

وحقل الرقم 

وخانة الخيار 

شو اسماءها في الكود  

مشكووووووووووووووووووووووووووووووور

Dim cardN As Long
    cardN = Val(Me.txtSearch.Value)
    If cardN > 0 Then
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("SELECT * FROM Customers WHERE cardN=" & cardN & " AND ISaCTIVE=True;")
        If Not rs.EOF Then
            MsgBox "الموظف مستقيل"
        End If
        rs.Close
    End If

[Eng.Qassim]

اسم حقل البحث عندك في النموذج ..واسم الجدول .. واسم حقل البطاقة في الجدول

على التوالي

txtSearch
Customers 
cardN

[sm44ms]

اخي العزيز Eng.Qassim

شوف الرسالة في الخطا

 

[Eng.Qassim]

تأكد من اسم الحقل في الجدول واسم الحقل في النموذج..وتأكد من نوع البيانات لهذا الحقل في الجدول ...هل هو رقم ام نص؟

[sm44ms]

الحقل اسمه صح 

ولكنه من نوع نص في الجدول

[sm44ms]

حولت الحقل الى رقم في البيانات في الجدول نفس الشي

بس بخبرك شي اخر الفورم  مصدره استعلام للتاكيد اذا السبب فيه

لكن كل الفورمات عندي مصدرها استعلامات

[Eng.Qassim]

اخي العزيز..ارفق جزء من القاعدة التي فيها المشكلة..حتى يسهل الحل

[sm44ms]

حاولت ارفق المكشله من عندكم

المهم ابي اخبرك ان عندي اوفيس 2007 بالعربي اذا تقدير تساعدني جزاك الله خيرا