如何使用2或3个用户名和密码以用户形式创建登录名？

Question

我想问一下如何用2或3个用户名和密码在userform中创建登录详细信息？

请参阅附件图片在此处 输入图像描述在 此处 输入图像描述 。

这是我正在尝试的代码：

  Private Sub CommandButton1_Click()
  If Me.tb1.Value = "Admin2019" Then
     If Me.tb2.Value = "askyourmanager" Then
        LoginFlag = True
        MsgBox "Mr. Jim would like to welcome you"
        ElseIf Me.tb1.Value = "admin" Then
           If Me.tb2.Value = "pw" Then
           LoginFlag = True
           MsgBox "Welcome Mr. Jim"
           Unload Me
           Exit Sub
           End If
         End If
        End If
      End If
    End If
  MsgBox "Sorry, Incorrect Login Details"
  End Sub

我收到此错误：

结束如果无障碍如果

Answer 1

您的代码没有正确缩进...您首先需要正确缩进每个if语句。

您还有一个额外的“如果结束”，因此请尝试删除底部的其中一个，看看是否可以快速解决。 如果不是，那么您需要遍历每个“ if”，并确保有一个对应的“ End if”。

基本上，错误是说还有一个额外的“ End If”没有开始的“ If”。

谢谢

Answer 2

我认为“精选案例”将更容易阅读。 这是一个例子。

Private Sub CommandButton1_Click()
      Dim strUser As String
      Dim strPW As String
      Dim strWelcome As String

      strUser = Me.tb1.Value
      strPW = Me.tb2.Value

      Select Case True
         Case strUser = "Admin2019" And strPW = "askyourmanager"
            LoginFlag = True
            strWelcome = "Mr. Jim would like to welcome you"

         Case strUser = "admin" And strPW = "pw"
            LoginFlag = True
            strWelcome "Welcome Mr. Jim"

         Case Else
            LoginFlag = False
            strWelcome = "Sorry, Incorrect Login Details"

        End Select

        MsgBox strWelcome

        Unload Me

End Sub