• 0
figo82eg

ارجو المساعدة في إتمام عملية حسابية داخل حقل بنموذج

سؤال

ارجو المساعدة في إتمام عملية حسابية داخل حقل بنموذج معين ومرفق مثال

New Microsoft Office Access Application.rar

New Microsoft Office Access Application.rar

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

شارك هذا الرد


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

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

  • 0

السلام عليكم

 

 

 

مرفق الملف بعد التعديل في المرفقات وكذلك الكود وشرحه

Dim crn_Long As Integer  ' لمعرفة طول الرقم المدخل        If Not IsNull([crn]) And [crn] > 1000 Then '  نتحق اولا ان القيمة غير خالية                                        crn_Long = Len([crn]) - 1 '  نقوم باستخدام الدالة المسئول عن طول القيمة ونطرح منه رقم واحد حتي نترك اخر خانة                                                id = Left([crn], crn_Long) - 1000  ' نقوم هنا بجلب القيمة ونطرح منها 1000        Else                MsgBox "القيمة خالية أو اصغر من 1000"                End If

Edit.rar

 

 

 

 

لا تنسونا من الدعاء

 

 

 

2

شارك هذا الرد


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

بارك الله فيك هو المطلوب فعلاً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

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

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