访问表单不起作用

Question

我正在使用 Access 2010，我想为餐厅检查制作一个表格，如果您在文本字段中输入名称：Mayer，那么您必须在标签中收到一条消息，如果您写 Schmidt，它应该返回另一条消息等等..我必须使用 Select case (for Class homework) 来做，这是我的代码，因为它不起作用，我点击了检查按钮，没有任何反应。

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 函数。