تصحيح كود if

#11 أكتوبر 2014 في 20:44 صاحب الموضوع

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

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

if Me.Text38 <=[Q3]![SumOfamount] And >0 then
docmd....
else
docmd..
end if

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

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

وشكراً

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

مواضيع مفيدة

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#21 أكتوبر 2014 في 23:43

اخى العزيز ارفق مثال للتوضيح

#32 أكتوبر 2014 في 02:23

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

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

مواضيع مفيدة

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#42 أكتوبر 2014 في 03:40

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

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

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

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

if Me.Text38 <=[Q3]![SumOfamount] And >0 then
docmd....
else
docmd..
end if

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

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

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

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

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

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

يكون الجواب:

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

يكون الجواب:

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

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

PMS_SANDANET.rar

#52 أكتوبر 2014 في 13:10

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

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

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

#62 أكتوبر 2014 في 13:15

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

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

تم تعديل هذه المشاركة بواسطة SANDANET في 2 أكتوبر 2014 في 13:23

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

مواضيع مفيدة

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#72 أكتوبر 2014 في 13:19

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

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

مواضيع مفيدة

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

#82 أكتوبر 2014 في 17:08

أخي الكريم:

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

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

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

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

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

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

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

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

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

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

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

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

#92 أكتوبر 2014 في 17:33

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

تم تعديل هذه المشاركة بواسطة SANDANET في 2 أكتوبر 2014 في 17:43

ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه

فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه

مواضيع مفيدة

منظومة حضور وغياب موظفين/index.php/topic/290636-%D8%A5%D9%87%D8%AF%D8%A7%D8%A1-%D8%A7%D9%84%D9%89-%D9%85%D9%86%D8%AA%D8%AF%D9%89-%D8%A7%D9%84%D8%A3%D9%83%D8%B3%D8%B3-%D9%85%D9%86%D8%B8%D9%88%D9%85%D8%A9-%D8%AA%D8%B3%D8%AC%D9%8A%D9%84-%D8%AD%D8%B6%D9%88%D8%B1-%D9%88%D8%BA%D9%8A%D8%A7%D8%A8-%D9%85/

تصحيح كود if

مواضيع مشابهة