Ms access 显示的是用户ID而不是用户名的登录表单

这是我的代码，请帮忙

（{如何显示用户名！！}）

始终显示用户ID而不是用户名 我想a有一个丢失的代码，请帮忙 这是我的期末考试 我所有的表单都已完成，但我仍停留在登录表单中

Option Compare Database

Private Sub BTNCancel_Click()
Dim Ans As String

Ans = MsgBox("Do you want to cancel log-in?", vbYesNo, "Shutdown the system")

If Ans = vbYes Then
DoCmd.Quit

Else
    Exit Sub
End If




End Sub
Private Sub CBOEmployee_AfterUpdate()
'After selecting user name set focus to password field
    Me.TXTPassword.SetFocus
End Sub

Private Sub BTNLogin_Click()

If IsNull(Me.CBOEmployee) Or Me.CBOEmployee = "" Then
    MsgBox "You must Enter a User Name.", vbOKOnly, "Required Data"
    Me.CBOEmployee.SetFocus
    Exit Sub
    End If

   If IsNull(Me.TXTPassword) Or Me.TXTPassword = "" Then
    MsgBox "You must Enter a Password.", vbOKOnly, "Required Data"
    Me.TXTPassword.SetFocus
    Exit Sub
    End If
If Me.TXTPassword.Value = DLookup("UserPassword", "tblUsers", "[UserID] =" & Me.CBOEmployee.Value) Then

UserID = Me.CBOEmployee.Value


DoCmd.Close acForm, "frmLogon"
DoCmd.OpenForm "frmStudSubject"
Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.TXTPassword.SetFocus
End If

intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
    MsgBox "You are unauthorized to access this system...Please Contact Your  System Administrator.", vbCritical, "Restricted access!"
    Application.Quit
    End If




End Sub

---

我假设用户名应该显示在CBOEmployee中。如果它显示UserId，则该控件的ColumnWidth属性有问题

如果折叠，组合框将显示ColumnWidth列表中宽度非零的第一列的文本

---

通常，RowSource返回一个记录集，第一列中有一些id，第二列中显示的文本。然后，ColumnWidth属性看起来类似于“0,1.23”。

请不要对我们大喊大叫！！不要使用所有的大写字母-这被认为是大声喊叫，而且是粗鲁的。另外：你应该问一个问题，而不是把一堆代码扔给我们。。。。代码的作用是什么？它做错了什么？让我们看看你想做什么，你被困在哪里！要学会如何问一个好问题就这样吧！欢迎使用StackOverflow：如果您发布代码、XML或数据示例，请在文本编辑器中突出显示这些行，并单击编辑器工具栏上的“代码示例”按钮（

{}

），以精确地格式化和语法突出显示它！抱歉问错了，但我真的有一个帮助，所以如果你知道我对代码的错误，请回答：）正如我所说：你需要问一个问题——而不仅仅是向我们扔代码！代码有什么问题？你哪里有问题，那是什么问题？我的问题是如何显示用户名而不是userid谢谢我会尝试：）