MS-接入连接每个复选框（真/假柱）运行在形式

-1

新版一单独代码2017年6月2日MS-接入连接每个复选框（真/假柱）运行在形式

我创建一个数据库，在我的设施设备预防性维护计划。我们有大约70个具有个人预防性维护说明的不同机器，并且我已经能够通过使用将更新数据库的表单来为机器创建表格，其中附有说明。我创建了一个主窗体，根据搜索的日期筛选哪些PM需要完成，这些日期将通过数据库中的计算机进行筛选，访问做得很好。我目前遇到的问题是找到一种方法将复选框添加到此主窗体，并仅打印用按钮选择的复选框。我们的计划是让机制能够打印PM指令，并使用打印关闭来更新数据库。有没有办法可以用复选框或选项框来完成？ Here's a picture of the main form that doesn't have the checkbox field attached to it yet Here's a picture of the forms that will show the preventative maintenance instructions that we will be printed.

来源

2017-06-01 J.Mos

请阅读一些[问]（https://stackoverflow.com/help/asking）文档，以了解可以在此处询问哪些类型的问题。对于SO来说这不是一个好问题。 –

你的问题有点含糊，并没有提供任何有关你可能尝试过的东西（这实际上会帮助我们确定你想要做什么）。也就是说，基于以下内容：

如果您有一个复选框，并且希望在选中/取消选中时执行某个操作。

Private Sub CheckboxName_Click() 
    If CheckboxName.Value = -1 Then 
     'Do something 
    Else 
     'Do something else (Else is optional) 
    End If 
End Sub

如果你要确认被检查，哪些不是当一个按钮或东西推你使用控制通过所有复选框对象循环多个复选框。

Private Sub ButtonName_Click() 
    Dim ctrl as Control 
    Dim i as Integer 

    For Each ctrl In Me.Controls 
     If ctrl.ControlType = acCheckBox and ctrl.Value = -1 
      'Do something (e.g., Select Case ctrl.name) 
     End If 
End Sub

希望至少能让您朝正确的方向发展。

来源

2017-06-01 21:05:52 billyhoes

好的，你能看看我的问题的编辑版本，看看是否更清楚明白。 –

MS-接入连接每个复选框（真/假柱）运行在形式

回答

相关问题