Forms 访问表单文本字段更新

用户根据下面代码中提到的登录凭据访问了不同的表单。与此相反，我希望所有用户打开相同的表单，即

frm\u search

，其中未绑定的文本框，即

ZAO\u code

，应显示当前表单的

“用户名”

字段中键入的文本。此外，用户不能更改在

ZAO\u code

中更新的文本

Private Sub Command8_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim USER_NAME As String

    LoginID.SetFocus
    USER_NAME = LoginID.Text
    Password.SetFocus
    If USER_NAME = "8902" Then
        If Password.Value = "T12!853G" Then
            stDocName = "Frm_8902"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8903" Then
        If Password.Value = "M14!8H3" Then
            stDocName = "Frm_8903"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8904" Then
        If Password.Value = "A12#853L" Then
            stDocName = "Frm_8904"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8906" Then
        If Password.Value = "J12!8M3" Then
            stDocName = "Frm_8906"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8907" Then
        If Password.Value = "K12!93L" Then
            stDocName = "Frm_8907"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8908" Then
        If Password.Value = "T99!853G" Then
            stDocName = "Frm_8908"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8909" Then
        If Password.Value = "F42!753L" Then
            stDocName = "Frm_8909"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8911" Then
        If Password.Value = "N12!#53B" Then
            stDocName = "Frm_8911"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If


    ElseIf USER_NAME = "8914" Then
        If Password.Value = "TG12!953T" Then
            stDocName = "Frm_8914"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8915" Then
        If Password.Value = "T12!M53Q" Then
            stDocName = "Frm_8915"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8917" Then
        If Password.Value = "T22!873E" Then
            stDocName = "Frm_8917"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If

    ElseIf USER_NAME = "8918" Then
        If Password.Value = "TG12!953T" Then
            stDocName = "Frm_8918"
        Else: MsgBox "Please Enter Correct Login Credentials"
        End If
    End If

---

您能添加一个标记来指示您使用的语言吗？@Shakti我假设stDocName是将要打开的表单的名称。好的，你能不能删除所有设置的行，并将stDocName设置为“frm_search”一次？@Shakti作为ZAO_代码-你能设置锁定属性吗？@Mark将stDocName设置为“frm_search”将在点击命令按钮8时打开表单。我的要求是在用户使用代码中提到的凭据登录后，在“frm_搜索”的文本框中自动更新8902或8903等中的“用户名”。@Shakti根目录下，您的问题是由糟糕的设计造成的。这就是为什么除了用户名和密码之外，还有那么多看起来相同的代码。至少，您应该在数据库中存储用户名和密码，这意味着您可以编写一个简单的SQL语句来匹配用户名和密码。