0

連続フォームの各レコードの最後にボタンがあり、これを行う必要があります。

Private Sub Update_Click()

Dim SellP As Double
Dim BuyP As Double
Dim Profit As Double

SellP = DLookup(SellPrice, Flips, [Current])
BuyP = DLookup(BuyPrice, Flips, [Current])

Profit = SellP - BuyP

Flips.Profit = Profit

End Sub

これが正しいコードではないことはわかっていますが、本質的に何をする必要があるかについてのアイデアが得られることを願っています:

SalePrice を見つけ、BuyPrice を見つけ、SalePrice から BuyPrice を差し引いて結果を Profit にし、Profit フィールドに利益を入力します。

ありがとう！

4

1 に答える 1

2

The columns of the current record of the bound table/query are directly available in the code.
You can just write e.g. Profit = SalePrice - BuyPrice if these fields are all part of the bound data.
You might then move this code in the "AfterUpdate"-Event of both the SalePrice- and the BuyPrice-Textfields, maybe like this: 

If IsNull(salePrice) Or IsNull(buyPrice) Then
    Profit = 0
Else
    Profit = salePrice - buyPrice
End If
于 2012-10-07T14:07:54.347 に答える