التحقق من نتيجة بين نموذجين بدالة IF

[Khalid Jnb]

السلام عليكم

لدي نموذجين  اريد التحقق من النتيجة  (متشابهه ام لا) برسالة تظهر عند فتح النموذج  بدالة IF 

وتظهر لي رسالة خطا  كما في الصورة المرفقة

وشكرا

Database1.rar

تم تعديل أكتوبر 17, 2019 بواسطه خالد سيسكو

[essam rabea]

أ.خالد سيسكو

تقريبا انت بتفتح form2 قبل ما تفتح form1

أو زود على الكود ما يلى

DoCmd.OpenForm "form1"

 

[Khalid Jnb]

شكرا لك استاذي العزيز

انا اريد النتيجة في FORM2

لكن بعد جعل النموذج منبثق تبقى نفس المشكلة

Database1.rar

[ابو ياسين المشولي]

اتفضل

DoCmd.OpenForm "form1", , , , , acHidden
If Me.name2 = [Forms]![form1]![name1] Then
Me.name2.BackColor = 5570153
Me.name2.ForeColor = 0
Beep
MsgBox "الناتج صحيح"
Else
Me.name2.BackColor = 255
Me.name2.ForeColor = 16777215
Beep
MsgBox "الناتج خطا"
End If

 

[Khalid Jnb]

شكرا لك استاذي العزيز ابو ياسين المشولي

انا عملت الطريقة على  النموذجين  وهي ناجحة تقريبا (لاني اعمل رسائل تدقيق لرواتب الموظفين في حالة اختلاق المجموع بين نموذجين)

لكن Msgbox  احيانا تظهر مرتين واحيانا لاتظهر

ممكن حل هذه المشكلة لو سمحت على النموذج المرفق 

مع كل التقدير 

Database1.rar

تم تعديل أكتوبر 17, 2019 بواسطه خالد سيسكو

[anayem]

احذف الكود الموجود في الفورم الاول