如何使用表单上的复选框将记录添加到 Microsoft Office Access 的子表单中？
我有一个地毯公司的数据库。 我有一个表单，使用户能够进行报价，包括选择客户等。还有一个处理产品和附加产品、数量和单价的子表单。 为了表明用户是否需要安装，有一个复选框。 勾选后，我希望将配件作为产品之一添加到子表单中。 通常使用下拉菜单手动选择产品。
重要属性有：
表单名称：订单
子表单名称：订单详细信息子表单
复选框名称：拟合
产品字段名称：产品 ID
链接到表的子表单：订单详细信息
链接到表的表单：订单
我假设需要 VBA 或宏生成器。
不管怎样，先谢谢了！！
I have a database for a carpet company. I have a form which enables the user to make a quote, including choosing the customer, etc. There is a also subform dealing with the products and extras, with quantities and unit prices. To state whether the user requires fitting there is a checkbox. When ticked I would like fitting to be added in the subform as one of the products. Products are normally manually chosen using a dropdown.
Important properties are:
Form name: Orders
Subform name: Order Details Subform
Checkbox name: Fitting
Field name for products: Product ID
Subform linked to table: Order Details
Form linked to table: Orders
I'm assuming VBA is needed, or the macro builder.
Anyway thanks in advance!!
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（3）
我认为最简单的方法是使用附加查询。
I think the easiest way is to use an append query.
在复选框控件上，您将在复选框的更新后事件上添加 [事件过程]（请参阅属性窗口）。 这将删除 VBA 代码，单击省略号（“...”）以获取 VBA 代码。
您可以使用 Remou 的代码（以某种方式）插入新产品：
但是，您可能还想检查订单中是否尚不存在该产品（您的业务规则是否允许安排多个配件），并且您可能还希望允许在未选中时删除 Fitting 产品 - 您可以在“end if”之前在 if 上使用 else 条件来做到这一点：
您还必须破解您的 Products 子表单，以便如果您要从中删除配件产品，请更新复选框（或者这样您就无法以这种方式删除配件）。
再说一次，也许您不想使用复选框，而只是将配件作为另一个下拉选项，就像其他产品一样。 您始终可以确保每当创建新订单时它都会自动填充到[订单详细信息]中，这样就不会被忘记。 这将与产品选择用户界面的其余部分更加一致。
On the check box control, you are going to add an [Event Procedure] on the After Update event for the checkbox (see the properties window). This will stub out the VBA code, click on the ellipsis ("...") to get to the VBA code.
You can use Remou's code (after a fashion) to insert the new Product:
However, you probably also want to check that the Product doesn't already exist in for the Order (does your business rules allow for multiple fittings to be scheduled), and you might also want to allow the Fitting product to be removed when it is unchecked - you could do that with an else condition on the if before the "end if":
You will also have to hack your Products sub form so that if you delete the Fitting product from it, you update the check box (or so that you can't delete Fittings that way).
Then again maybe you don't want to use a check box, and just have the fitting as being another drop down option, as the other products are. You could always make sure it's auto-populated into [Order Details] whenever a new Order is created so it can't be forgotten. This would be more consistent with the rest of the product selection user interface.
这是无代码解决方案：
去掉“拟合”复选框。 将配件作为产品并像其他产品一样添加它。 如果您想知道订单是否需要配件（我猜这就是您有该复选框的原因。），您可以创建一个查询来查看配件是否是报告/发票上的产品之一。
This is the no code solution:
Get rid of the Fitting check box. Make fitting a product and add it like all the rest. If you want to know if an order requires a fitting (I'm guessing that's why you have the checkbox.), you can create a query to see if fitting is one of the products on your reports/invoices.