VBA Help - to run one function based on another

[Ste4en]

I want to combine the two functions below into one. I want to press one button on the switchboard and If macMissing returns more than zero rows, I want to run macMissing and show the query result. If it has zero rows I want it to run macCombine.

How do I modify these converted macros to do that.

thanks

Function macCombine()
On Error GoTo macCombine_Err

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "ZqryCombinedToOverwriteWeeklyActuals", acViewNormal, acReadOnly
    DoCmd.OpenQuery "qryDeleteWeeklyActuals", acViewNormal, acEdit
    DoCmd.OpenQuery "ZqryAppendNewWeeklyActuals", acViewNormal, acEdit
    DoCmd.SetWarnings True

End Function

Function macMissing()
On Error GoTo macMissing_Err

    DoCmd.OpenQuery "qryMissing in188", acViewNormal, acReadOnly

End Function

 

[gemma-the-husky]

in macmissing, test the count first

if dcount("*",qrymissingin188")>0 then
DoCmd.OpenQuery "qryMissing in188", acViewNormal, acReadOnly
else
call maccombine
end if


as your functions don't return values its more normal to declare them as subs, but this won't stop the code running

 

[Ste4en]

Thank You that did it.