figo82eg قام بنشر منذ 12 ساعات مشاركة قام بنشر منذ 12 ساعات ارجو المساعده فى كود vba استخدمه عند تسجيل قراءة عداد حيث اريد عند تسجيل القراءة فى نموذج وتكون القراءة اقل من الشهر السابق تظهر رسالة خطأ الكود يعمل لدى بشكل جيد جداً حتى 4 ارقام ولكن المشكلة عند كتابة رقم مكون من 5 ارقام او اكثر تظهر هذه الرسالة ولا يعمل الكود Private Sub Text376_BeforeUpdate(Cancel As Integer) WriteAuditUpdate txtTableName, Me.crn, "Text376", Me.Text376.OldValue, Me.Text376.Value Dim i, ii As Integer i = Nz(DLookup("[HALYA]", "[إصدار بتروتريد]", "[crn] ='" & [Forms]![البيانات الرئيسيه]![crn] & "'"), 0) ii = Me.Text376 If ii < i Then Beep If MsgBox("إنــتــبــه ...... الإستــهلاك أقــل مـن المسـجل بالشهر السابق برجـاء التأكد قبل تسجيل الإستهلاك ....... هل تريد إضافة القيمة؟", _ vbCritical + vbYesNo, _ "تننبيه") = vbYes Then Exit Sub Else Exit Sub End If End If End Sub وهذه الرساله تظهر 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد احمد لطفى قام بنشر منذ 11 ساعات أفضل إجابة مشاركة قام بنشر منذ 11 ساعات (معدل) غير Dim i, ii As Integer الى Dim i As Long, ii As Long استبدلت المتغيرين i و ii بنوع Long للتعامل مع أرقام أكبر من 4 خانات. الخطأ "Run-time error 6" يتعلق بتجاوز الحد الأقصى لنوع البيانات Integer. أن شاء الله هو الحل بالتوفيق تم تعديل منذ 11 ساعات بواسطه محمد احمد لطفى 1 رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر منذ 2 ساعات الكاتب مشاركة قام بنشر منذ 2 ساعات اشكرك استاذى الكريم على اهتمامك هو المطلوب فعلا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان