Form open options

[Guest]

Hi all,
I have a form that is serving as an employee task list, it is bound by the
table empl_TaskList - when the form is opened it will filter records based on
the currentUser and whether the task has been marked as "complete" - my
question is, if an employee attempts to open the form and there are no
current tasks for this specific user, is there a way to notify the user that
there are no current tasks, and then give them the option to enter a new one
or close the form? Would this need to be done in the OnLoad event, and if
so, how? Help is always appreciated, thanks!
-gary

 

[OldPro]

Hi all,
I have a form that is serving as an employee task list, it is bound by the
table empl_TaskList - when the form is opened it will filter records based on
the currentUser and whether the task has been marked as "complete" - my
question is, if an employee attempts to open the form and there are no
current tasks for this specific user, is there a way to notify the user that
there are no current tasks, and then give them the option to enter a new one
or close the form? Would this need to be done in the OnLoad event, and if
so, how? Help is always appreciated, thanks!
-gary

Check for .eof in the OnLoad event. Try something like this... I
haven't tested it...

if me.recordsetclone.eof then
iResponse = msgbox("No tasks were found! Would you like to a add a
task?",vbYesNo)
if iResponse = vbYes then
me.recordsetclone.addnew
me.recordsetclone!employee = ' " & employee & " ' "
me.recordsetclone.update
me.recordsetclone.findfirst "[employee] = ' " & employee & " ' "
endif
endif

 

[Guest]

Thank you so much! With a couple tweaks, it works perfectly! However, I
have a follow up question:
I would like this form to open upon the intial load of the system, but have
it be triggered by the primary form that loads. Is it possible to use the
same logic, but instead of having the message box come up with a yes or no
option - have it open if there are matching records, but have nothing happen
if there are not?
Thanks again!
-gary

Hi all,
I have a form that is serving as an employee task list, it is bound by the
table empl_TaskList - when the form is opened it will filter records based on
the currentUser and whether the task has been marked as "complete" - my
question is, if an employee attempts to open the form and there are no
current tasks for this specific user, is there a way to notify the user that
there are no current tasks, and then give them the option to enter a new one
or close the form? Would this need to be done in the OnLoad event, and if
so, how? Help is always appreciated, thanks!
-gary

Check for .eof in the OnLoad event. Try something like this... I
haven't tested it...

if me.recordsetclone.eof then
iResponse = msgbox("No tasks were found! Would you like to a add a
task?",vbYesNo)
if iResponse = vbYes then
me.recordsetclone.addnew
me.recordsetclone!employee = ' " & employee & " ' "
me.recordsetclone.update
me.recordsetclone.findfirst "[employee] = ' " & employee & " ' "
endif
endif