使用表单时在两个access表之间交叉检查帐号

Question

我正在使用一个表单将新数据输入到表中：tblMonthlySummary。我正在输入帐号、币种和期末本地余额。

当我在表tblMonthlySummary中输入帐号时，我希望Access通过宏或VBA来交叉检查表tblStaticBankDetails中将添加到tblMonthlySummary中的帐号。

如果帐号在tblStaticBankDetails中不存在，我希望VBA或宏返回一个显示"Invalid account number“的对话框。

这是我在VBA中为我的Add Entry to Table按钮、Clear Fields和Close Form编写的当前代码。这些按钮位于标签为：frmMonthlyManualUpdate的窗体上。

添加数据代码

Private Sub cmdAdd_Click()
    'add data to table
    CurrentDb.Execute "INSERT INTO tblMonthlySummary([Account Number], [Currency], [Closing Balance]) " & _
        " VALUES('" & Me.txtAccountNumber & "','" & Me.cboGender2 & "', '" & Me.txtClosingBalance & "')"

    'clear form
    cmdClear_Click
    'refresh data in list on form
    frmMonthlySummarySub.Form.Requery

    'confirmation of end
    MsgBox "Account number and balance successfully recorded."
End Sub

Me.cbogender2是我的货币空白。

清除字段代码

Private Sub cmdClear_Click()
    Me.txtAccountNumber = ""
    Me.cboGender2 = ""
    Me.txtClosingBalance = ""

    'focus on TxtAccountNumber
    Me.txtAccountNumber.SetFocus
End Sub

关闭窗体代码

Private Sub cmdClose_Click()
    DoCmd.Close
End Sub

Answer 1

使用组合框是可行的。

您可以将其属性设置为仅允许将其列表中的值输入到字段中。用户可以从列表中选择一个值，也可以手动键入帐户。它不允许输入不在列表中的值。

有多少帐户的摘要行可能丢失？

如果这只是一个很小的数字，你可能会考虑：

1. 使用SQL插入不在tblStaticBankDetails.
2. Then中的tblMonthlySummary中的帐号，用户可以查看缺少的帐号，并找出应该是什么值。(ie过滤器到表单查看帐户与缺少的详细信息)
3. 这是奇怪的是，您正在使用一个按钮来执行和插入语句。更常见的情况是，Access窗体基于可更新的记录源(如您的列表)，用户只需单击“新建记录”按钮即可插入行。

PS。我希望在这两个表之间建立引用完整性，以防止为帐号输入任何不正确的值。

哈维