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

[FoMaNsHeE]

أخواني الكرام

 

مرفق ملف

 

وهو عبارة عن سندات ايداع وقبض

 

المساعدة حتكون في اني لو كتبت في Type كلمة أيداع 

 

 

هل سيكون الكود كالاتي : 

 

if [Type] = "إيداع" Then
Me.500 = [500]*(-1)
End if

 

 

وشكرا

New.rar

تم تعديل مارس 4, 2017 بواسطه Maxwal

[FoMaNsHeE]

up

[FoMaNsHeE]

أرجو النظر في موضوعي
أخي
@Shivan Rekany

@jjafferr

[Shivan Rekany]

59 دقائق مضت, Maxwal said:

أرجو النظر في موضوعي
أخي
@Shivan Rekany

@jjafferr

اتفضل ما تريد
للعلم انا غيرت اسم الجدول واسماء الحقول واسماء المربعات النصيه‌ في نموذج
استخدمت هذا بعد تحديث كومبوبوكس

Private Sub Type1_AfterUpdate()
On Error Resume Next
If Me.Type1 = "إيداع" Then
Me.t500 = "-" & Me.t500
Me.t200 = "-" & Me.t200
Me.t100 = "-" & Me.t100
Me.t50 = "-" & Me.t50
Me.t20 = "-" & Me.t20
Me.t10 = "-" & Me.t10
Me.t5 = "-" & Me.t5
Me.t1 = "-" & Me.t1
Else
Me.t500 = Abs(Me.t500)
Me.t200 = Abs(Me.t200)
Me.t100 = Abs(Me.t100)
Me.t50 = Abs(Me.t50)
Me.t20 = Abs(Me.t20)
Me.t10 = Abs(Me.t10)
Me.t5 = Abs(Me.t5)
Me.t1 = Abs(Me.t1)
End If
End Sub

وفي حالة تحديث اي حقل استخدمت هذا

Private Sub t500_AfterUpdate()
Type1_AfterUpdate
End Sub

وهناك بعض ملاحظات :
1- المفروض ان نبتعد من استخدام الكلمات المحجوزة من قبل الاكسس مثل Type و Data
2- مستحسن ان نسمي الحقول او المربعات النصية يبدأ بحرف بعدين اذا نريد ان نضيفه ارقام
تحياتي

New.rar

تم تعديل مارس 8, 2017 بواسطه Shivan Rekany

[FoMaNsHeE]

أخي

@Shivan Rekany

جزاك الله كل خير أنت وكل الاخوة الاخرين الذين قاموا ببناء هذا الصرح الرائع لمساعدتنا