منع الكتابة في حقل داخل نموذج

[أبو أحمد]

الاخوه الافاضل أعضاء المنتدى /  السلام عليكم ورحمة الله 

لدي حقل خانة اختيار نعم ولا 

هل ممكن إذا تم اختيار نعم (True) 

 لا يسمح بكتابة بيانات في حقل العنوان1 ويعطي رسالة بأن العنوان 2 مشار إليه بنعم  (True) 

مرفق لكم نموذج 

وجزاكم الله خيرا  

 

db1.rar

[ابوخليل]

وعليكم السلام

تفضل  كما فهمتك من طلبك

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

 

db11.rar

[أبو أحمد]

استاذي الكريم / جزاكم الله خيرا 

ولكن أريد أن لا يسمح بالكتابة في خانة العنوان 

إلا بعد  حذف علامة نعم من العنوان الثاني 

بمعنى على المستخدم إن يحذف نعم من العنوان الثاني ليتمكن المستخدم من الكتابة 

طلب أخير وهو أريد ما معنى  كلا من 

Undo
DoCmd.CancelEvent

وأيضا إذا وضعت كلمة cancel

أمام الرسالة فماذا تعني في هذا الوقت 

وجزاكم الله خيرا على سعة صدركم وزادكم علما وبارك فيكم

 

تم تعديل مايو 10, 2017 بواسطه أبو أحمد

[Shivan Rekany]

Undo = تراجع

DoCmd.CancelEven = الغاء الحدث

cancel = الغاء

غالبا يستخدم كانسل يساوي ترو اي سالب 1 قبل التحديث لكي لا يخرج مؤشر الماوس اي التركيز  على تلك المربع النص

هذا والله يعلم

تم تعديل مايو 10, 2017 بواسطه Shivan Rekany

[أبو أحمد]

جزاكم الله خيرا وزادكم علما 

ولكن لي طلب هل ممكن التعديل في المرفق بحيث لا يسمح وضع علامة صح أمام العنوان 2 إلا بعد حذف البيانات في العنوان 1 والعكس صحيح 

 بمعنى لا يجوز وضع بيانات في العنوان 1 واضافة العلامة صح في العنوان2 معا لابد من واحد منهما فقط أو تعديله
 

وجزاكم الله خيرا 

db11.rar

جزاكم الله جميعا خيرا ... لقد توصلت الى الحل 

[عبد الفتاح كيرة]

جرب هذا فى حدث beforeupdate ل titel2

Private Sub Title2_BeforeUpdate(Cancel As Integer)
    If Me.Title2 = True Then
        If Me.title <> "" And Not IsEmpty(Me.title) Then
            MsgBox "احذف العنوان أولا"
            Cancel = True
            DoCmd.CancelEvent
        End If
    End If
End Sub

 

[أبو أحمد]

أستاذي الكريم / جزاكم الله خيرا 

بالفعل تمام ولكن هذا لا يمنع من الكتابة في العنوان الاول بارك الله فيكم وفي علمكم 

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

ولكن أتمنى شرح لما  ارسلته لي لاني لم أفهمه كله 

أما ما قمت بعمله فهو على النحو التالي : 

تم وضع في العنوان 2 بعد التحديث

If Not IsNull(Me.title2) Then
 MsgBox "لا يجوز جعل العنوان2 إلا بعد حذف البيانات من العنوان الآخر"
Me.[حقل آخر].SetFocus
Me.title2.Value = False
Exit Sub
End If

وفي العنوان1 تم وضع عند الادخال 

If title2 = True Then
 MsgBox "2غير مسموح بأي بيانات إلا بعد حذف العلامة من المدخل بالعنوان"
Me.title2.SetFocus

Exit Sub
End If
 

في انتظار شرح ما أرسلته وجزاكم الله خيرا

[عبد الفتاح كيرة]

الشرح

يعمل هذا الكود فى حال كان العنوان ليس به علامة صح

ثم نحاول وضع علامة صح فيه

فى هذه الحالة

افحص العنوان الأول

إذا لم يكن فارغا

أظهر رسالة

أعد حالة العنوان إلى الحالة السابقة يعنى بدون صح

 

 

[أبو أحمد]

جزاكم الله خيرا أستاذي الكريم