رسالة تنبيه عند عدم التطابق

[حسين العربى]

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام

عندي سؤال انشاء الله يكون بسيط 

السؤال هو : عندي ثلاث مربعات نص   غير منضمين  المربع الاول مربع (رقم المورد) الثاني (من رقم )المربع الثالث (الي رقم)  

ولنفترض  ان المربع الاول وهو رقم المورد وضعنا رقم (0292)  والمربع الثاني من رقم وضعنا رقم الصنف ( 02920501 ) والمربع الثالث مربع الي رقم وضعنا رقم الصنف ( 02920509 ) طبعا اول اربع ارقام في الصنف تبد ا برقم المرد ولاربعه الاخر هي رقم الصنف  

المطلوب :  وضع كود في في زر امر وعند الضغط علي زر الامر تنفيذ  اذا كانت الارقام الاربعة الاوالي سواء في مربع النص الثاني او الثالث غير مطابقة لرقم المورد يظهر لي رسالة تحذير ويتم ايقاف الامر 

وشكر لكم واسف علي الاطالة

 

[jjafferr]

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

 

يمكن شئ من هذا يصلح:

if left(me.From,4) <> left(me.To,4) or _
   left(me.From,4) <> me.No or _
   left(me.To,4) <> me.No then

	msgbox "Numbers Don't match"

end if

 

جعفر

[حسين العربى]

الف شكر استاذي الفاضل jjafferr  انا لم افهم الكود وحاولت اني اطبقه بمفهومي ولم يفلح الامر ممكن توضيح لو تكرمت

 

[jjafferr]

السلام عليكم

 

الوقت كان متأخر ، وحطيت لك كلمتين بدون شرح ، فأعتذر منك

 

ضع الكود على حدث النقر على الزر:

نفترض اسماء الحقول
رقم المورد: No = 0292
من رقم: From   = 02920501
الى رقم: To    = 02920509

مقارنة الاربعة ارقام الاولى من اليسار
left(me.From,4)  = 0292
left(me.To,4)    = 0292


if left(me.From,4) <> left(me.To,4) or _
   left(me.From,4) <> me.No or _
   left(me.To,4) <> me.No then

	msgbox "Numbers Don't match"

end if

 

جعفر

[حسين العربى]

الف شكر استاذي الفاضل jjafferr  انا لم افهم الكود وحاولت اني اطبقه بمفهومي ولم يفلح الامر ممكن توضيح لو تكرمت

 

الف شكر استاذي الفاضل هذا هو المطلوب بالظبط وجزاك الله الف خير