Search record with the specific Critirea Using Stored Procedure With SQLServer...
Search record with the specific Critirea Using Stored Procedure With SQLServer...
Rate Search record with the specific Critirea Using Stored Procedure With SQLServer...
(1(1 Vote))
Sub FindPassWord()
On Error GoTo akomess
PassFound = False
' Open recordset with data from Employee table.
DE.StrdProcSearchPassword Me.TxtLoginName, Me.TxtPassword
With DE.rsStrdProcSearchPassword
If .RecordCount Then
If Not .EOF Then
.MoveFirst
Do While Not .EOF
PassFound = True
UserCode = !UserCode
UserName = !UserName
UserPassword = !userpass
UserDept = !department
Exit Do
Loop
End If
End If
End With
DE.rsStrdProcSearchPassword.Close
Exit Sub
akomess:
If Err.Number = 3021 Then
DE.rsStrdProcSearchPassword.Close
Else
Resume Next
End If
End Sub
'Command Button
Private Sub CmdGo_Click()
Me.MousePointer = 11
'Finding Password
FindPassWord
Me.MousePointer = 0
Me.Refresh
If PassFound = True Then
Unload Me
FrmMain.SetFocus
Else
MsgBox "Access Denied...", vbCritical, "Message : Error Access"
Me.TxtLoginName.SetFocus
End If
End Sub
Search record with the specific Critirea Using Stored Procedure With SQLServer... Comments
No comments yet — be the first to post one!
Post a Comment