• 0
SANDANET

تصحيح كود if

سؤال

السلام عليكم ورحمة الله

 

اخواني الكرام سؤالي هو كيف يكتب كود if التالي بشكل صحيح 

if Me.Text38 <=[Q3]![SumOfamount] And >0 thendocmd....elsedocmd..end if

حيث ان Q3 هو استعلام ..والحقل SumOfamont يحتوي على اعداد موجبة

 

اريد ان تكون القيمة المدخلة في Text38 تكون اصغر من او تساوي قيمة  SumOfamount وان تكون اكبر من الصفر 

 

وشكراً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

شكراً جزيلاً أخي الكريم ابوجمانة على اطلاعك على مشكلتي .. بفضل الله تعالى تمت معالجتها باستخدام خاصية validation rule لمربع النص وهنا اسألك عن كيفية استبدال عنوان الرسالة التي توضع في ال validation text كما في الصورة المرفقة

post-284250-0-60123100-1412205784.jpg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وعليكم السلام ورحمة الله وبركاته

الأخ/ المهندس أوس علي

قرأت سؤالك وفهمت أنك تسأل عن المعيار بين قيمتين (Between)

كما في مثالك (أصغر أو يساوي مجموع المبالغ SumOfamount) في أستعلام Q3    وَ    أكبر من (صفر)

if Me.Text38 <=[Q3]![SumOfamount] And >0 thendocmd....elsedocmd..end if

وتم التصحيح كالتالي

Private Sub Text38_AfterUpdate()Dim A As IntegerA = DLookup("[SumOfamount]", "Q3")If [Text38] <= A And [Text38] > 0 Then    DoCmd.OpenForm "Frm2", acNormal, "", "", , acNormal    DoCmd.Restore    Me.Visible = FalseElse    DoCmd.OpenForm "Frm3", acNormal, "", "", , acNormal    DoCmd.Restore    Me.Visible = FalseEnd IfEnd Sub

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

فضلا استخدم مفتاح Tab للتنقل والتحديث

علماً بأن مجموع القيم في الإستعلام هي (1860)

 

 

post-129354-0-70437900-1412209323_thumb.

 

عندما تكون القيمة صحيحة (بمعنى بين الصفر ومجموع المبالغ في الإستعلام)

يكون الجواب:

 

post-129354-0-84917600-1412209334_thumb.

 

 

وعندما تكون القيمة خاطئة (بمعنى أصغر من أو تساوي الصفر أو أكبر من مجموع المبالغ في الإستعلام)

يكون الجواب:

 

post-129354-0-44086800-1412209345_thumb.

 

آمل أن تقبلها هدية

 

تحياتي/ أبومحمد

 

 

PMS_SANDANET.rar

 

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

وايضا اخي واستاذي الفاضل SANDANET كل عام وانت وعائلتك الكريمة بالصحة والعافية وتحقيق الاماني يارب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكراً لك أخي أبومحمد على هذا الابداع الذي أبهرني فعلاً والذي يدل على احترافيتك وخبرتك العميقة في الأكسس وإن شاء الله سوف احاول تطبيقه ..ودمت سالماً بإذن الله وكل عام وانت بألف خير   :lol: 

 

أخي أبومحمد اود ان اسألك عن الأمر DoCmd.Restore ماهي فائدته او لماذا تم استخدامه؟

تم تعديل بواسطه SANDANET
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

استاذي الكريم ابوحاتم اشكرك جزيل الشكر على هذه المداخلة الجميلة وكل عام وانت بخير وصحة وسلامة وإن شاء الله عيدكم مبارك وحفظك الله وذويك من كل سوء 

 
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الكريم:

 

post-129354-0-65149800-1412257411_thumb.

 

وعليكم السلام ورحمة الله وبركاته

 

أغبطك على رفيع ذوقك وحسن أختيارك

 

عيد سعيد لك ولأسرتك الفاضلة، أمدكم الباري بعمر مديد وبارك لكم في أعماركم

ورزقكم صالح العمل يدخلكم في قبول الرحمن لأعلى الجنان في الفردوس الأعلى

ولكل من قرأ هذه الكلمات وأمّن عليها

 

الفاضل الوجيه: SANDANET

سلمك الله من كل شر ،، وأعاد عليك العيد وأسرتكم الكريمة، ترفلون في ثوب الصحة والعافية

أخي الفاضل (أخوك) مبتدأ في سلوك طريق التعلم في أكسس (لست محترف ولبس لي خبرة)

فقط أنزلني منزلتي الصحيحة بارك الله فيك

 

أما الأمر (DoCmd.Restore) في حدث عند الفتح فهو أيعاز لتحجيم الصفحة

ليس تكبير وليس تصغير

 

تقبلا تحياتي/ أبومحمد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الكريم أبومحمد كلمة "عضو فعال" لاتأتي من الفراغ ان دلت على شيء فإنما تدل على مساهماتك الفعالة وبالتأكيد على خبرة لايستهان بها فلا تحاول التهرب من الواقع  :P ..كما اشكرك جزيل الشكر على توضيح الامر البرمجي لكن عند إزالته من المثال السابق فلا يتغير شيء فهل لك ان تضع لنا مثال يبين وظيفة الكود عند استعماله من عدمه؟ .. دمت سالماً ان شاء الله

تم تعديل بواسطه SANDANET
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .