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

[أبو يحيى الجبلاوي]

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

الملف بالمرفقات بملف zip

 

 

 

1.zip

تم تعديل أكتوبر 24, 2020 بواسطه أبو يحيى الجبلاوي
تم رفع ملف المثال

[husamwahab]

عليكم السلام استاذ أبو يحيى الجبلاوي

تفضل هذا المثال ارجو ان ينفعك

الفكرة عند اختيار عملة من المربع الاول تختفي من المربع الثاني وبذلك نضمن عدم التكرار 

Root1122.rar

[أبو يحيى الجبلاوي]

اخي ممكن تطبقلي هاد الأمر على نفس الملف الي ارفقته انا

[husamwahab]

بالخدمة استاذ أبو يحيى الجبلاوي

تصميم صندوق-2.rar

[Shivan Rekany]

مشاركة مع استاذ @husamwahab

اتفضل اليك كلتا الطريقين

تقدر تستخدم طريقة ان لا يظهر نوع العملة اللي تدخل في حقل تحويل من في مصدر تحويل الى

او تقدر تستخدم هذا الكود قبل تحديث للحقل تحويل من و تحويل الى

Private Sub تحويل_الى_BeforeUpdate(Cancel As Integer)
    If Len(Me.تحويل_من & "") <> 0 And Me.تحويل_من = Me.تحويل_الى Then
        MsgBox "لا يجوز ادخال نفس نوع العملة في الحقل تحويل من و تحويل الى "
        Cancel = True
    End If
End Sub

Private Sub تحويل_من_BeforeUpdate(Cancel As Integer)
    If Len(Me.تحويل_من & "") <> 0 And Me.تحويل_من = Me.تحويل_الى Then
        MsgBox "لا يجوز ادخال نفس نوع العملة في الحقل تحويل من و تحويل الى "
        Cancel = True
    End If
End Sub

استخدمت كلتا طريقين في مرفقك

 

1.zip

[أبو يحيى الجبلاوي]

شكرا لكم جميعا

[أبو يحيى الجبلاوي]

اخي الكريم ممكن تشرحلي هاد السطر 

<>Nz([Forms]![تحويل العملات]![تحويل من];0)

 

[Shivan Rekany]

هذه العلامه <> يعني غير متساوي مع

NZ هذه الدالة بيعمل لك تغير قيمة اذا كان لا شيء الی القيمة اللي تكتب في اخره

اي معنی جملة كاملة هو

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

تحياتي