Update textbox after looping through datasheet column

[bar891]

I have a project with a task table and a task datasheet view. The task status column is a combo box with "Not Started", "In Progress", "Deferred", "Completed" in which the user changes as the tasks are completed.
I also have a Project Form that has a Status text box on it.


I need to be able to loop through the task status column and see if all the tasks are completed and then update the Project status text box with "Completed" or if all the tasks are not completed then to update the Project status with "Not Completed".
I just don't know what or where the code should be. I have tried many combinations including macro but i am not experienced enough to work it out. Can someone please help me?

[Bob Fitz]

Can you tell us what tables you have and how thet are related. What forms you have and which tables they are based on. A little of what the db is for.

[bar891]

It is a basic Project Management setup with a Project Table, Tasks Table, Employee Table. It has a Project form that has subforms of Tasks and Employees Assigned to it. You can have many tasks to a single project that have to be completed by a certain date. It has a summary page that lists all the projects that are current and the status that they are at. so i want to see on the summary page that if all the tasks are completed or not.

[John_G]

All you need is a DCount for any tasks for that project which do not have a status = "Completed". No need to loop through the recordset.

Your project summary page could have something like this as the control source for the status text box:

=iif (Dcount("*","TaskTable","Project = " & me![projectID] & " And TaskStatus <> 'Completed' ") = 0 ,"Complete", "Not Complete")

This assumes the Project ID is numeric. It marks the whole project as Not Complete if there are one or more incomplete tasks.