Ms access 访问表单没有'；行不通

我使用的是Access 2010，我想为餐馆检查制作一个表格，如果你在文本字段中写上姓名：Mayer，那么你必须在标签中得到一条信息，如果你写下Schmidt，它应该会返回另一条信息，依此类推。。我必须使用Select case（用于课堂作业）来做这件事。这是我的代码，因为它不起作用，我点击了check按钮，什么也没发生

Option Compare Database
Option Explicit
Private Sub btnCheck_Click()
Dim txtEingabe As String
Dim Mayer As String
Dim Schmidt As String

Select Case txtEingabe
    Case Mayer
    lblAusgabe = "Reserviert"
Case Schmidt
    lblAusgabe = "Nicht Reserviert"
Case Else
    lblAusgabe = "Falsche Name"
End Select

End Sub

---

试试这样吧。你不需要变量来完成你要做的事情

选项比较数据库
选项显式
专用子btnCheck_Click（）
选择Case Nz（Me.txtengabe.Value，“”）作为文本框的名称
“迈耶”案
lblAusgabe.Caption=“Reserviert”
案例“施密特”
lblAusgabe.Caption=“Nicht Reserviert”
其他情况
lblAusgabe.Caption=“Falsche名称”
结束选择
端接头

---

如果您想使用弹出的输入框并请求输入，则需要使用变量和InputBox函数。

您的解决方案非常有效，谢谢！我发现了为什么它不能用这个。我没有点击顶部的激活按钮来激活额外的功能。