اعمال چهارگانه داخل یک رکرد

[saman101]

سلام و باتشکر از فروم خوبتان

من یک فرم دارم که چند سری عدد را از کاربر میگیره بعد من میخوام این اعداد را که میگیره طی چند عمل ضرب و جمع که انجام میده نتیجه را داخل یه فیلد دیگه نشون بده و در دیتا بیس هم ذخیرش کنه . یه فرمول براش نوشتم اما مشکلش اینه که اگه داخل یکی از فیلدای اولیه عدد را اشتباه بزنی و بعد تغییرش بدی داده داخل پایگاه داده و فیلد نتیجه آپ دیت نمیشه کدم در زیر آوردم:گریه::گریه:
Private Sub Text90_AfterUpdate()
If Len(Me.Hourly_Working_cost_car & vbNull) = 0 Or Len(Me.Total_Times_Working & vbNull) = 0 Or Len(Me.Freight_per_unit_weight & vbNull) = 0 Or Len(Me.amount_material_transported & vbNull) = 0 Or Len(Me.Number_services_delivered & vbNull) = 0 Or Len(Me.The_freight_service & vbNull) = 0 Then

Me.Hourly_Working_cost_car = 0
Me.Total_Times_Working = 0
Me.Freight_per_unit_weight = 0
Me.amount_material_transported = 0
Me.Number_services_delivered = 0
Me.The_freight_service = 0
End If

Me.Text90 = Me.Hourly_Working_cost_car * Me.Total_Times_Working + Me.Freight_per_unit_weight * Me.amount_material_transported
End Sub

[Abbas Amiri]

برای بقیه کنترلهای فوق تایپ کنید :Text90_AfterUpdate
اگر عبارت محاسباتی را بصورت زیر بنویسید احتیاجی به صفر کردن ندارید


Me.Text90 = Nz(Me.Hourly_Working_cost_car,0) * (Me.Total_Times_Working,0) + Nz(Me.Freight_per_unit_weight,0) * Nz(Me.amount_material_transported,0)