MS Access - 按下按钮时的Ticking记录复选框

时间:2013-05-02 17:39:17

标签: ms-access checkbox access-vba

我正在使用Access 2003

我有一个表格,其中列出了几个付款记录,主要字段是已付款的内容以及银行所说的付款内容,文本框显示差异,以及一个复选框,以查看是否会处理该付款。

通常,用户必须手动查看差异字段,然后标记每个记录以进行处理,然后按“提交”。

我想自动化这个过程,所以按下一个按钮会自动选择差值= 0的所有记录,所以用户只需要按“提交”。

1 个答案:

答案 0 :(得分:1)

听起来我需要更新复选框后面的字段而不是复选框本身。这是一个想法:
如果您正在寻找一个简单的解决方案,例如在表单上放置一个命令按钮并运行一个更新所有复选框的过程,您可以执行以下操作:

  • 创建命令按钮
  • 将其放置在表单上(可能是页眉或页脚)
  • 给它一个逻辑名称
  • 选择按钮属性>>事件>>点击>>事件程序
    ......你可以做一些简单的事情,如下面的

'Option Compare Database
'Option Explicit

'***Update a checkbox (yes\no field) depending on the value of a field***
'Table name:tblPayments
'Field name:difference
'Checkbox field name: toBeProcessed

Private Sub cmdUpdateRecords_Click()

Dim rstMyTable As DAO.Recordset 'Your table
Dim strSQL As String    'Your sql

'An SQL string based on the checkbox you want to update and the field you are assessing
strSQL = "UPDATE tblPayments SET tblPayments.toBeProcessed = IIf([difference]=0,True);"

'Execute the sql
CurrentDb.Execute strSQL

'Kill the object
If IsObject(rstMyTable) Then Set rstMyTable = Nothing
Me.Requery

End Sub