| |
>今までのは商品名を入力・変更しない限りは単価も変更にならない状態ですが、
>商品名はそのまま（一切手をつけず）で入荷済みチェック(1,2)のみを変更すると単価が変わるとしたいのですが、可能でしょうか？
入力済みチェックの更新後処理イベントに同様のIf文の処理を書かれればいいのでは？
このときタブコントロール(入力順)が「商品名」→「入荷チェック」でなければなりません。
「商品名」の空欄チェック/レコードの有無チェックが必要なら...
If Len(Nz(Me.商品名,"")) = 0 Then
MsgBox "商品名が入力されていません"
Me.商品名.SetFocus
ElseIf DCount("*","単価テーブル","[商品名]='" & Me.商品名 &"'") = 0 Then
MsgBox "入力された商品名はありません"
Me.商品名.SetFocus
Else
If Me.入荷チェック = 1 Then
Me.単価 = Dlookup("[単価1]","単価テーブル","[商品名] ='" & Me.商品名 & "'")
Else
Me.単価 = Dlookup("[単価2]","単価テーブル","[商品名] ='" & Me.商品名 & "'")
End If
End If
|
|
クロ
- 04/8/29(日) 5:09 -
