Run-time error..

[Smriti Dev]

Hi There,
I am getting a run-time error 3800
'username' is not an index in this table. I'm not sure why I am getting
this.
Would really appreciate some help with it.. the code follows below..

Private Sub cmdOK_Click()
Dim strMsg As String
Dim varTNum As String, varPW As String
Dim varSec As Byte
Dim db As Database
Dim rec As Recordset

Set db = CurrentDb()
Set rec = db.OpenRecordset("AdmUser")

strMsg = "User ID is incorrect or could not be found. Try again"
strMsg = strMsg & Chr(13) & "If this persists, contact the
Administrator."

If IsNull(Me!txtTNum.Value) Then
MsgBox "The T Number field cannot be blank", vbExclamation, "T
Number required"
Me!txtTNum.SetFocus
Exit Sub
Else
varTNum = Me!txtTNum.Value
End If
If IsNull(Me!txtPassword.Value) Then
MsgBox "The Password field cannot be blank", vbExclamation,
"Password required"
Me!txtTNum.SetFocus
Exit Sub
Else
varPW = Me!txtPassword.Value
End If
rec.Index = "TNum"
rec.Seek "=", varTNum

If rec.NoMatch Then
MsgBox strMsg, vbInformation, "Incorrect User ID"
txtTNum.SetFocus
Exit Sub
End If

If varPW <> rec(1) Then
MsgBox "Please retype your password. If this problem persists,
contact the Administrator.", vbExclamation, "Incorrect Password"
txtPassword.SetFocus
Exit Sub
Else
varSec = rec(2)
Select Case varSec
Case 1
DoCmd.OpenForm "frmPTForm"
Case 2
DoCmd.OpenForm "frmActivePTList"
Case 3
DoCmd.OpenForm "frmActivePTListPallCare"
Case 4
DoCmd.OpenForm "frmAdm"
Case Else
MsgBox "You do not have security to access these files. Please
contact the Administrator.", vbExclamation, "Access Denied"
End Select
End If

rec.Close
Set db = Nothing

Me.Visible = False
'DoCmd.Close acForm, "frmSignOn"

End Sub

--
thanks!!
smriti

[Trevor Best]

Smriti Dev wrote:

Hi There,
I am getting a run-time error 3800
'username' is not an index in this table. I'm not sure why I am getting
this.
Would really appreciate some help with it.. the code follows below..

Private Sub cmdOK_Click()
Dim strMsg As String
Dim varTNum As String, varPW As String
Dim varSec As Byte
Dim db As Database
Dim rec As Recordset

Set db = CurrentDb()
Set rec = db.OpenRecordset("AdmUser")

strMsg = "User ID is incorrect or could not be found. Try again"
strMsg = strMsg & Chr(13) & "If this persists, contact the
Administrator."

If IsNull(Me!txtTNum.Value) Then
MsgBox "The T Number field cannot be blank", vbExclamation, "T
Number required"
Me!txtTNum.SetFocus
Exit Sub
Else
varTNum = Me!txtTNum.Value
End If
If IsNull(Me!txtPassword.Value) Then
MsgBox "The Password field cannot be blank", vbExclamation,
"Password required"
Me!txtTNum.SetFocus
Exit Sub
Else
varPW = Me!txtPassword.Value
End If
rec.Index = "TNum"
rec.Seek "=", varTNum

If rec.NoMatch Then
MsgBox strMsg, vbInformation, "Incorrect User ID"
txtTNum.SetFocus
Exit Sub
End If

If varPW <> rec(1) Then
MsgBox "Please retype your password. If this problem persists,
contact the Administrator.", vbExclamation, "Incorrect Password"
txtPassword.SetFocus
Exit Sub
Else
varSec = rec(2)
Select Case varSec
Case 1
DoCmd.OpenForm "frmPTForm"
Case 2
DoCmd.OpenForm "frmActivePTList"
Case 3
DoCmd.OpenForm "frmActivePTListPallCare"
Case 4
DoCmd.OpenForm "frmAdm"
Case Else
MsgBox "You do not have security to access these files. Please
contact the Administrator.", vbExclamation, "Access Denied"
End Select
End If

rec.Close
Set db = Nothing

Me.Visible = False
'DoCmd.Close acForm, "frmSignOn"

End Sub

--
thanks!!
smriti

Are you certain that "TNum" is the name of the index? If you simply set
the TNum field to be the primary key then the Index name would be
"PrimaryKey", this is a common gotcha.