Report

Recently, I could not write any report, so today I will report what I done.

made....
Admin form
Management Tasks form (Admin)
Register Member form
Edit Member information (Admin)
MyTask . Public Tab(User)

Management Task
In Edit Member information form, I used sub form that lists member name.
And if Admin user click it, the member's information is come up from table.

VBA

I made Admin form, and it can connect to other forms.
Members who have account of admin level can management schedule, member, and tasks.

When click the save bottom, check the input and then update Member table.
    Dim oRS As DAO.Recordset

    If InputCheck() = False Then
       Exit Sub
    End If

    Set oRS = CurrentDb.OpenRecordset("Member", dbOpenDynaset)

    With oRS

        .AddNew

        .Fields("First_Name").Value = Me.txtFirstName.Value
        .Fields("Last_Name").Value = Me.txtLastName.Value
        .Fields("DOB").Value = Me.txtBirth.Value
        .Fields("Phone_num").Value = Me.txtPhone.Value
        .Fields("Team_ID").Value = Me.cbTeam.Value
        .Fields("Login_ID").Value = Me.txtLoginID.Value
        .Fields("Email").Value = Me.TxtPassword.Value
        .Fields("Password").Value = Me.TxtPassword.Value
        .Fields("User_Status").Value = Me.cbStatus.Value
     
        .Update

    End With

    oRS.Close
    Set oRS = Nothing

    MsgBox Me.txtFirstName & " Compleated Register", vbOKOnly + vbInformation, "Register"

    DoCmd.Close acForm, "Member"

End Sub

I done register function, and next is task management function..

Improve tables

I deleted Public table and My Task table. I noticed those tables are not needed to management task.
And I improved form which is My Task

Improve Mytask

1. Improve Form
I improved Form named Mytask. I make function that is Finding "Task Name" and "Company Name". 
2. Problem
I created a Querie to list task whose member login Mytask, but it not work without refresh.
3. TextBox
When member login, the login ID, Team name, and Name are showed in Mytask.

Makin User Level

I declare User Level as Integer in Code.
Then control jump to admin form by if statement.

        If UserLevel = 1 Then
        'MsgBox " Login as Member"
                DoCmd.OpenForm "MyTask"
       
            Else
                'MsgBox " Login as Admin"
                DoCmd.OpenForm "Admin"
            End If

Login

I made basically function of Login system.
If user success to login, the user jump to my Task form.

And I add Status( user or admin) on the Member table.

It can jump User or Administrator.

Making Form

Next I made Login forms, and Mytask form Like this.