访问表单不起作用

Posted 2023-05-06

【中文标题】访问表单不起作用

【英文标题】：Access form doesn't work

【发布时间】：2013-09-22 17:18:35

【问题描述】：

我正在使用 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

【参考方案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 函数。

【讨论】：

您的解决方案效果很好，谢谢！我发现了为什么它不起作用。我还没有点击顶部的激活按钮来激活额外的功能。