سؤال عن كيفية ادخال عدد من الاصناف وعدم صرف اكثر من هذا العدد

[ابو جودي]

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

 

اولا بارك الله فيكم وجزاكم الله عنا كل الخير ان شاء الله لما تقدمونه واسال الله ان يبارك لكم فى علمكم ويزيدكم من فضله ان شاء الله

 

انا عندى سؤال صغير ان شاء الله اجد له اجابه عندكم فانتم اهل الخبره

 

لو فى برنامج معمول بالاكسس وبدخل فيه صنف بعدد ووصل العدد مثلا لرقم 200

لو طلبت صرف عدد اكبر من 200 مثلا طلبت صرف عدد 250 البرنامج يقبل بذلك

 

السؤال

ــــــــــ

 

هل يمكن لو طلبت صرف عدد اكبر من العدد الموجود يظهر لى رساله تفيد ان العدد الموجود هو 200 ولا يمكنك صرف اكثر من هذا العدد

 

 

 

اعتذر لعدم ارفاق مثال

[ابوخليل]

dim i as integer
i=dlookup("raseed","jadwal")
if text1>i then
msgbox"الرصيد  & i & اقل من المطلوب "
Undo
exit sub
end if

text1 هو حقل الطلب

raseed هو حقل الرصيد

jadwal هو الجدول المشتمل على حقل الرصيد

اجعل الكود اعلاه في حدث بعد التحديث لحقل الطلب

[.Azhar]

بالنسبة لطلبك الاول يمكن ذلك . 

من خلال انشاء وحدة نمطية وكما مبين لك ادناه واستدعائها من خلال النموذج الرئيسي او الفرعي لحدث (Current event) في الحالي .

Public Function LimitRecords( _
                    frm As Access.Form, _
                    Optional RecLimit As Integer = 1)

    '  وضع حد لعدد السجلات في النموذج 

    With frm.RecordsetClone
        If .RecordCount <> 0 Then .MoveLast
        frm.AllowAdditions = (.RecordCount < RecLimit)
    End With

End Function

استدعاء الدالة 

Private Sub Form_Current()

    LimitRecords Me   ' اذا تريد فقط سجل واحد
    LimitRecords Me, 5   ' اذا تريد 5 سجلات . وهكذا 

End Sub

[.Azhar]

هههههه سبقني الاستاذ ابو خليل . 

[ابو جودي]

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

جارى التجربه واوافيكم بالنتيجة ان شاء الله
 

[ابو جودي]

طبعا لم اقصد تجربة شرح اساتذتى الكرام فلهم كل التقدير والتبجيل
ولكن اقصد تجربة ادائى انا فى التطبيق  *_^