Access Form Load-Active-Current Code Execution Issue

[DenverBigDad]

I have an access database that I am developing for use each day. I am a relatively inexperienced vba user, so I am using/reusing a lot of code that I have developed for specific tasks, learning new material, and integrating code I am finding that fits specific needs from the internet from various sights (yes I understand the risks associated with this)

The issue I am having is related to code executing when my main form is being loaded. I have a large number of things that happen: text box back colors standardize to grey, command button captions change, network drives are mapped, file objects are checked for last modified date and written into a table....

When I put the code on a command button, it all works perfectly. When I put it in the form Load or form Current, it throws runtime 2475 indicating that the form has to be active for the "strFormName = Screen.ActiveForm.Name" to be used. While it seems obvious, I can't seem to figure out which event that I can put this in that will still work...otherwise I need to change the code so that it will somehow work.

code snippet ---

Georeport = Array("BRAZIL", "CANADA", "MEXICO", "SSA", "UNITED_STATES")
intcounter = 0
While intcounter < 5
    reportname = Georeport(intcounter)
    rst.FindFirst ("[Support File Name] LIKE 'Identity_Management_Comp_imt_overview_" & reportname & ".csv'")
    LastMod = rst![Support File Modified Date]
    MonName = rst![MonitorName]
    ButName = rst![CommandButtonName]
    If LastMod < Date Then
        strFormName = Screen.ActiveForm.Name
        Forms!frm_Main.Controls(MonName).BackColor = 4678655
        Forms!frm_Main.Controls(ButName).Caption = "Recheck"
 
    Else
        strFormName = Screen.ActiveForm.Name
        Forms!frm_Main.Controls(MonName).BackColor = 65280
        Forms!frm_Main.Controls(ButName).Caption = "Replace"
 
    End If
    intcounter = intcounter + 1
Wend

[dsatino]

Well, I think the most obvious thing to do if the form name isn't dynamic is to simply write in the form name instead of using the active form reference.