2

カーペット会社のデータベースがあります。顧客の選択などを含め、ユーザーが見積もりを作成できるようにするフォームがあります。また、数量と単価を含む、製品と付属品を扱うサブフォームもあります。ユーザーがフィッティングを必要とするかどうかを示すために、チェックボックスがあります。チェックを入れると、製品の 1 つとしてサブフォームにフィッティングを追加したいと思います。製品は通常、ドロップダウンを使用して手動で選択されます。

重要なプロパティは次のとおりです。
フォーム名: Orders
サブフォーム名: Order Details サブフォーム
チェックボックス名: Fitting
商品のフィールド名: Product ID
テーブルにリンクされたサブフォーム: Order Details
テーブル にリンクされたフォーム: Orders

VBA、またはマクロビルダーが必要だと思います。

とにかくよろしくお願いします！！

4

3 に答える 3

2

最も簡単な方法は、追加クエリを使用することだと思います。

If Me.Fitting Then
   strSQL="INSERT INTO [Order Details] (ProductID,OtherTextField) Values ("
         & Me.ProductID & ",'" & Me.OtherTextField & "')"
   CurrentDB.Execute strSQL, dbFailOnError

   Me.[Subform control name here].Form.Requery
End If
于 2009-02-03T14:44:59.123 に答える
0

これはノーコードソリューションです:

[フィッティング] チェック ボックスを削除します。フィッティングを製品にして、残りのすべてのように追加します。注文にフィッティングが必要かどうかを知りたい場合 (チェックボックスがあるのはそのためだと思います)、クエリを作成して、フィッティングがレポート/請求書の製品の 1 つであるかどうかを確認できます。

于 2009-02-04T14:08:03.457 に答える