Access中VBA代码如何实现以下问题。请看详情。跪求！！

Question

已建好的表A，有两个字段B 与C

新增窗口有一个文本框（已命名为BID）和一个确定按钮。

问：当在窗口的这个文本框中输入一个XXX值与A表中B数据有一致时，点击确认按钮，提示框“XXX已被QQQ借走”
（XXX为文本框输入的这个值，QQQ为对应数据库中表A中的C数据）

Answer 1

使用 DLookup 函数可以方便实现此功能，参考代码如下：

Option Compare Database

Public Function SafeDLookup(ByVal Expr As String, _
                            ByVal Domain As String, _
                            Optional Criteria As Variant) As Variant
    SafeDLookup = Null
    
    On Error Resume Next
    
    If IsMissing(Criteria) Then
        SafeDLookup = DLookup(Expr, Domain)
    Else
        SafeDLookup = DLookup(Expr, Domain, Criteria)
    End If
End Function

Private Sub Command2_Click()
    Dim varC As Variant
    Dim varBID As Variant
    
    varBID = BID.Value
    varC = SafeDLookup("C", "A", "B='" & Replace(varBID, "'", "''") & "'")
    
    If Not IsNull(varC) Then
        MsgBox varBID & "已被" & varC & "借走"
    End If
End Sub

假设 A 表中有如下测试数据：

当在 BID 文本框中输入 k137 时的运行效果：

追问

谢谢你的回答，请问有ACCESS中vba代码吗？不是与excel连接，表也是Access中的表。

追答

上面贴出的就是 Access VBA 代码（与 Excel 无关！）：