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.

Make Tables

I set tables and relationship in Access 2010.

And also I thought need Login ID and Password each member, so I add those in member table.

I used DLook Function

DLookup("[LastName]", "Employees", "[EmployeeID] = 1")

It can look for data. It is used to make Login Form.

Drawing Tables

My Task - Individual's page. Individual member can manage own tasks

Public Task-Every member can see the others task.

I need to make 4 tables

Task, Member, My_task, and Public_task table.

Start project

Project : Software Task management for programmer.

I decide to make task management for programmer.

I will use Database to manage tasks, and it work on web.

It can use for organization. For example, organization do manage all task collectedly.

So I focus on interface to easy to use.

And I will make divide two main forms

My task and Public task.

My task is for individual staff, and there are orders for the person.

Public task is other tasks that others work.


At the first I try to use Access 2010.