Question

Lab Assignment – Database Implementation and Security In this lab you will create a Microsoft Access database of employee information and secure the table username and password security. Steps Enter data for five employee records. Each record should have fields: Employee ID (5 digits), First Name, Last Name, Home Address, Hire Date Create a query that displays Employee ID, First Name and Last Name. Create a form that requires entering username and password to access employee table. Error message should be displayed if incorrect username or password is entered. Use admin for the username and 1105 for the password.

Answer 1

Employee Table

SELECT Employee.Id, Employee.FirstName, Employee.Lastname
FROM Employee;

printing message when wrong password is entered

Option Compare Database

Private Sub Command1_Click()

Dim db As DAO.Database
Dim sqlstring As String
Dim rs As DAO.Recordset
Set db = DBEngine(0).Databases(0)

If IsNull(Me.txtLogin) Then
MsgBox "Please enter Login ID", vbInformation, "LoginID required"
Me.txtLogin.SetFocus

ElseIf IsNull(Me.txtPassword) Then
MsgBox "Please enter Password", vbInformation, "Password required"
Me.txtPassword.SetFocus
Else
If (IsNull(DLookup("userName", "user", "userName = '" & Me.txtLogin.Value & "' And password='" & Me.txtPassword.Value & "'"))) Then
MsgBox "Invalid UserName or Password!"
Else

lngCount = 0
Set db = CurrentDb()
sqlstring = "select * from Employee"
Set rs = db.OpenRecordset(sqlstring, dbOpenSnapshot)
db.Execute (sqlstring)

End If

End If

End Sub