أخواني هذا هو الكود الصحيح ..قد زوردني به أحد الأخوة الأفاضل بارك الله فيه
If Val(Me.Text38) <= Val(Me.amount) Then
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
أخواني هذا هو الكود الصحيح ..قد زوردني به أحد الأخوة الأفاضل بارك الله فيه
If Val(Me.Text38) <= Val(Me.amount) Then
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
عزيزي وقبل ان تذهب
جرب ان تضيف صفرا في الكمية المستلمة !
جرب ان تضيف عدد بالسالب !
تحياتي
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
عزيزي وقبل ان تذهب
جرب ان تضيف صفرا في الكمية المستلمة !
جرب ان تضيف عدد بالسالب !
تحياتي
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
نعم أخي ramhan عند اضافة صفر او اي قيمة بالسالب فإن الكود لايرفضها وذلك لأن كود مبرمج على ان تكون القيمة المستلمة أقل من أو تساوي الكمية المطلوبة فقط .. أما لمنع القيم السالبة والصفر فيجب استعمال الكود التالي
If Val(Me.Text38) <= Val(Me.amount) And Val(Me.Text38) > 0 Then
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
عزيزي
عملت تعديل بسيط على البرنامج .
طريقة لفتح نموذج جديد كتفاصيل لسجل نموذج اخر مستند على استعلام حيث كان هذا طلبك في اول المشاركة.
بالتوفيق
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
أخي ramhan اشكرك جزيل الشكر على هذا التعديل الجميل والذي يختصر مجموعة كبيرة من الأكواد التي يمكن الاستغناء عنها باجراءات بسيطة كالتي تفضلت بها .. وأنا بدوري سأعتمدها لأنها أعجبتني كثيراً خصوصاً هذا الكود
DoCmd.GoToRecord , , acGoTo, Forms!frm_main!form1.Form.CurrentRecord
أخي الكريم هنالك مشكلة صغيرة وهي في خانة ادخال قيمة الكمية المستلمة .. فعندما تكون القيمة لا تطابق الشرط فإن البيانات المعروضة تتغير الى بيانات الصف الذي يليه ..المفروض ان البيانات لاتتغير .. ارجو منك التأكد من ذلك
تحياتي لك
تم تعديل هذه المشاركة بواسطة SANDANET في 21 أكتوبر 2014 في 02:24
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
up
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
وعليكم السلام :)
اعتذر عن التأخير في الرد ، فانا كثير السفر :)
رجاء تخبرني ماهي المشكلة بالارقام ، وماذا يجب ان يحدث :)
جعفر
اهلا وسهلا من جديد أخي جعفر والحمد لله على سلامتك :) المنتدى اصبح مهجورا بدونك ههه.. بالنسبة لموضوعنا هذا فقد زودني الأخ ramhan بطريقة مختصرة لعمل تصفية للبيانات يتم فرزها في نموذج منفصل ..إليك المرفق التالي يوضح الطريقة ..لكن هنالك مشكلة وهي في خانة ادخال قيمة الكمية المستلمة .. فعندما تكون القيمة لا تطابق الشرط فإن البيانات المعروضة تتغير الى بيانات الصف الذي يليه ..المفروض ان البيانات لاتتغير .. ارجو منك الاطلاع على المثال وتجربة ادخال قيمة في غير مطابقة للشرط في خانة الكمية المستلمة ..سوف تظهر لك رسالة msgbox ومن ثم تتغير البيانات الحالية الى بيانات الصف الذي يليه
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
تفضل اطال الله في عمرك :)
كودك لفتح النموذج الآخر هو:
DoCmd.OpenForm "frm_View_ONLY", , , , , acDialog
اي بمعنى: افتح النموذج بكافة سجلات الاستعلام Q1 (طبعا انت لاحقا تذهب الى السجل المطلوب) ، وهذا يعمل لك المشكلة ، فانت تريد السجل الذي انت عليه فقط.
لحل هذه المشكلة ، غير تخصيصات النموذج ، من كافة السجلات:
الى السجل الحالي فقط:
:)
جعفر
تم تعديل هذه المشاركة بواسطة jjafferr في 23 أكتوبر 2014 في 16:31
يا أخي جعفر والله انك عبقري ,, ماشاء الله تبارك الله عليك ..جبتها من الآخر :) حقيقة لم اتوقع ان يكون حلها بهذه السهولة .. ربي يحفظك لنا ويبارك فيك . :lol:
أستاذي هنالك أمر أخير وهو لماذا لايستجيب الكود التالي عند عدم تطابق الشرط؟
DoCmd.GoToControl "Text38"
تم تعديل هذه المشاركة بواسطة SANDANET في 23 أكتوبر 2014 في 17:11
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
حياك الله :)
الطريقة الصحيحة للذهاب الى الحقل هو:
me.text38.setfocus
جعفر
تم تعديل هذه المشاركة بواسطة jjafferr في 23 أكتوبر 2014 في 17:50
آه عذرا ، ولكن ذلك لن ينطبق عليك ، لأن الكود الذي عندك على الحدث "بعد التحديث" اي انه يكون قد ترك الحقل :(
لذا عليك:
إما ان تضع الكود (كل الكود) على الحدث "قبل التحديث" ،
او انك تضع سطر قبل السطر اعلاه ، للذهاب الى حقل آخر ، ثم العودة الى هذا الحقل :)
هكذا:
Me.area.SetFocus Me.Text38.SetFocus
جعفر
تم تعديل هذه المشاركة بواسطة jjafferr في 23 أكتوبر 2014 في 17:58
تسلم ايدك أخي الكريم جعفر على ماتفضلت به ..بالفعل انحلت هذه المشكلة عن طريق الكود الاخير :D
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
:)
عزيزي SANDANET
معذرة على التاخر أولا
ثانيا : لم تكن المشكلة موجودة في المثال الذي ارفقته لك وفي الرد 30 بالتحديد حيث تم تلاشيها واسف انني لم انبهك عليها !
بالتوفيق
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
لامشكلة أخي ramhan فقد تم حلها من قبل استاذنا القدير جعفر ..فبارك الله فيكم أجمعين فانتم افدتوننا بطرق واكواد جميلة لم تكن معرفة لدينا من قبل لذلك نحن هنا لايسعنا الا ان نشكركم وان ندعوا الله ان يوفقكم وان يزيدكم علماً وان يديمكم لنا دائماً .. تحياتي :lol:
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
السلام عليكم أخي رمهان :)
ramhan كتب:عزيزي
عملت تعديل بسيط على البرنامج .
طريقة لفتح نموذج جديد كتفاصيل لسجل نموذج اخر مستند على استعلام حيث كان هذا طلبك في اول المشاركة.
بالتوفيق
فكرة ممتازة :) ، تسلم ايدك :)
ramhan كتب:عزيزي SANDANET
معذرة على التاخر أولا
ثانيا : لم تكن المشكلة موجودة في المثال الذي ارفقته لك وفي الرد 30 بالتحديد حيث تم تلاشيها واسف انني لم انبهك عليها !
بالتوفيق
نعم هذا صحيح ، وقد قمت بإنزال البرنامج وتجربته :) ، ولكن الظاهر ان اخينا أوس من شدة حبه للكود ، اخذ الكود ولم يلاحظ الباقي :P
جعفر
:P نعم صحيح أستاذي جعفر فعندما تكون جائع لايهمك ماتحتوي عليه طاولة الطعام من مقبلات وتفاصيل الآكلات بل سوف تلتهم الأخضر واليابس معاً ههه وهذا ماحصل معي بالضبط :D
تم تعديل هذه المشاركة بواسطة SANDANET في 24 أكتوبر 2014 في 18:27
ما من كاتبٍ إلا سيفنى ... ويبقي الدهر ما كتبت يداه
فلا تكتب بخطك غير شيءٍ ... يسرك في القيامة أن تراه
مواضيع مفيدة
وعليكم السلام اخي جعفر ! منور المنتدى وحامل لوائه ورايته!
تحياتي
خبير تحليل النظم
خبير Business Process ونظم ERPs
خبير قواعد بيانات وبرمجة اكسس
abc_2_me@hotmail.com
:)
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…