ms-access - 访问表单不起作用

Question

我正在使用 Access 2010，我想为餐厅检查制作一个表格，如果您在文本字段中输入名称：Mayer，那么您必须在标签中收到一条消息，如果您写 Schmidt，它应该返回另一条消息，依此类推.. 我必须使用 Select case （对于课堂作业）来做这是我的代码，因为它不起作用，我单击检查按钮，没有任何反应。

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

Answer 1

试试这样的东西。你不需要变量来做你想做的事情。

Option Compare Database
Option Explicit

Private Sub btnCheck_Click()

    Select Case Nz(Me.txtEingabe.Value, "") 'Should be the name of your textbox
        Case "Mayer"
            lblAusgabe.Caption = "Reserviert"
        Case "Schmidt"
            lblAusgabe.Caption = "Nicht Reserviert"
        Case Else
            lblAusgabe.Caption = "Falsche Name"
    End Select

End Sub

如果你想使用一个弹出并要求输入的输入框，那么你需要使用一个变量和 InputBox 函数。