Question

我正在使用Access 2010，我想为餐馆检查制作一个表格，如果你在文本字段中写入名称：Mayer，那么你必须在标签上收到一条消息，如果你写了施密特，它应该返回另一条消息等等。我必须使用Select case（对于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函数。

访问表单不起作用

1 个答案: