ACCESS如何設定正負數

Question

在銷貨單中有設定
單號/客戶/明細/單別
單別 1 為銷貨記錄
單別 2 為銷貨退回記錄
如何在銷貨查詢表單中檢視時
可以看見銷貨退回的資料為負數
並且可以做運算(月結用)

Answer 1

1:如果要保留原有作業成序.
也就是不管單別是1或2 輸入數量的資料都是(正)的資料.

2:在銷貨查詢表單中
2.1:在登錄表單時將紀錄變成負.
on load 輸入
dim ky as dao.recordset
set ky=currentdb.openrecordset("銷貨單")
ky.movefirst
for m=1 to ky.recordcount
if ky("單別")="2" then
ky.edit
if ky("數量")>0 then ky("數量")=-(ky("數量"))
ky.update
end if
ky.movenext
next
set ky=nothing

2.2在結束表單時將紀錄變成正.
在 on close
dim ky as dao.recordset
set ky=currentdb.openrecordset("銷貨單")
ky.movefirst
for m=1 to ky.recordcount
if ky("單別")="2" then
ky.edit
if ky("數量")< 0 then ky("數量")=-(ky("數量"))
ky.update
end if
ky.movenext
next
以上作法.供作另一項參考.

Answer 2

1.單別為2時
小計欄位是否也要變為負數

2 在單別欄位AfterUpdate設[事件程序]
Private Sub 單別_AfterUpdate()
If 單別 = 2 Then
數量 = -數量
End If
Me!小計 = 數量 * 單價
End Sub
*當單別=2時,數量變負數
*單別輸入後,小計=數量 * 單價