| |
▼クロ さん：
>商品テーブルに単価フィールドを追加して、フォームAの単価テキストボックスを
>連結(コントロールソースに「単価」)にしてください。
>
>その1
>商品名(テキストボックス)の更新後処理のイベントで
>DLookupで単価を引いてくる方法
>If Me.入荷チェック = 1 Then
> Me.単価 = Dlookup("[単価1]","単価テーブル","[商品名] ='" & Me.商品名 & "'"
>Else
> Me.単価 = Dlookup("[単価2]","単価テーブル","[商品名] ='" & Me.商品名 & "'"
>End If
>
>その2
>商品名をコンボボックスに変更して
>集合値タイプ:テーブル/クエリ
>値集合ソース:
>SELECT [単価テーブル].[商品名], [単価テーブル].[単価1], [単価テーブル].[単価2] FROM [単価テーブル]
>列数:3
>列幅:2.54cm;0cm;0cm
>連結列:1
>リスト行数:8 ※あるいは適宜に
>リスト幅:2.54cm ※あるいは適宜に
>
>商品名コンボの更新後処理のイベントに
>If Me.入荷チェック = 1 Then
> Me.単価 = Me.商品名..Column(1)
>Else
> Me.単価 = Me.商品名..Column(2)
>End If
>
>ではどうですか？
クロさんへ
ご回答ありがとうございます。
その１のイベントで
閉じカッコ)が必要だと思いますが、おっしゃるとおり入力したのですが、
なにも表示されませんでした。
その２で試した所、こちらもイベントで
角かっこが必要ですとエラーが表示されます。
私としてはできれば、その１タイプで行いたいと思っております。
よろしくお願い致します。
|
|
お初
- 04/8/27(金) 14:09 -
