saman101
جمعه 10 شهریور 1391, 20:55 عصر
سلام و باتشکر از فروم خوبتان
من یک فرم دارم که چند سری عدد را از کاربر میگیره بعد من میخوام این اعداد را که میگیره طی چند عمل ضرب و جمع که انجام میده نتیجه را داخل یه فیلد دیگه نشون بده و در دیتا بیس هم ذخیرش کنه . یه فرمول براش نوشتم اما مشکلش اینه که اگه داخل یکی از فیلدای اولیه عدد را اشتباه بزنی و بعد تغییرش بدی داده داخل پایگاه داده و فیلد نتیجه آپ دیت نمیشه کدم در زیر آوردم:گریه::گریه:
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
من یک فرم دارم که چند سری عدد را از کاربر میگیره بعد من میخوام این اعداد را که میگیره طی چند عمل ضرب و جمع که انجام میده نتیجه را داخل یه فیلد دیگه نشون بده و در دیتا بیس هم ذخیرش کنه . یه فرمول براش نوشتم اما مشکلش اینه که اگه داخل یکی از فیلدای اولیه عدد را اشتباه بزنی و بعد تغییرش بدی داده داخل پایگاه داده و فیلد نتیجه آپ دیت نمیشه کدم در زیر آوردم:گریه::گریه:
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