hello guys!
anybody can help me this type of error in Login form. Im using combo box for multiple users
thank you very much.

Run-time error'-2147217865(80040e37)':

The Microsoft Jet database engine cannot fined the input table or query
'login'. Make sure it exists and that its name is spelled correctly.

(error in line 4)

Private Sub Form_Activate()
            Set rs = New Recordset
                SQL = "SELECT * FROM login "
                rs.Open SQL, con, adOpenStatic, adLockOptimistic, adCmdUnknown
                If rs.RecordCount <> 0 Then
               While Not rs.EOF
                    cmbUN.AddItem rs.Fields("UserName")
               End If
End Sub

Recommended Answers

All 3 Replies

Make sure that your table (login) is exists in your database and table name spell correctly.

Try to do what JX said.

Maybe your table login doesn't exist or misspelled.

Or try this:

SQL = "SELECT * FROM [login]"

Oh one more thing, do you have this statement?

Dim SQL as String


Thank you all guys

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, learning, and sharing knowledge.