این عکس فرم منه
من توی این فرم با انتخاب بستانکار و وارد کردن مبلغ و زدن روی کلید ذخیره عدد وارد شده مثبت ثبت شده و به مانده حساب اضافه می شود و با انتخاب پرداخت شده به همین ترتیب و زدن رو دکمه پرداخت عدد منفی ثبت می شود.
حالا من می خوام با انتخاب بدهکار و زدن روی کلید ذخیره اون عدد منفی ثبت شود.
اینم کدیه که برای کلید ذخیره نوشتم
Dim m As String
DataEnvironment1.rsCommand5.AddNew
DataEnvironment1.rsCommand5!code = Text5.Text
DataEnvironment1.rsCommand5!sharhkharid = Text8.Text
DataEnvironment1.rsCommand5!tarikhkharid = MaskEdBox1.Text
If Text9.Text = "" Then
DataEnvironment1.rsCommand5!mablagh = "0"
Else
DataEnvironment1.rsCommand5!mablagh = Text9.Text
End If
If Combo1.Text = "بدهکار" Then m = "بدهکار"
If Combo1.Text = "بدهکار" Then m = "بدهکار"
If Combo1.Text = "بستانکار" Then m = "بستانکار"
If Combo1.Text = "پرداخت شده" Then m = "پرداخت شده"
DataEnvironment1.rsCommand5!noo = m
DataEnvironment1.rsCommand5.Update
Text8.Text = ""
Text9.Text = ""
Call jamk
If Combo1.Text = "بدهکار" Then DataEnvironment1.rsCommand5!mablagh = -(Text9.Text)