Прописать события для формы программно

For each frm in currentdb.allforms
     DoCmd.OpenForm frm.name, acDesign, , , , acHidden
     forms(frm.name).OnOpen = "=ИмяПроцедуры()"
     DoCmd.Close acForm, frm.name, acSaveYes
next frm

Sub addStringToModuleForm(frmName)
    Dim mdl As Module, frm As Form
    Dim strFind, strAdd
    Dim lngSLine As Long, lngSCol As Long
    Dim lngELine As Long, lngECol As Long
    
    'Поисковая строка
    strFind = "Private Sub Form_Load()" 
    'Строка вставки
    strAdd = "Dim n" & vbCrLf & "n=MuFunc()" & vbCrLf
    
    DoCmd.OpenForm frmName, acDesign
    Set frm = Forms(frmName)
    Set mdl = frm.Module
    'Поиск строки и замена 
    If mdl.Find(strFind, lngSLine, lngSCol, lngELine, lngECol) Then
        mdl.ReplaceLine lngSLine, strFind & vbCrLf & strAdd 
    Else
        'Если нет процедуры Load, то создать и вставить в нее текст
        nn = mdl.CreateEventProc("Load", "Form") 'frm.Name)
        mdl.InsertLines nn + 1, strAdd
    End If
    DoCmd.Close acForm, frmName, acSaveYes 'Сохраняем форму
End Sub
 
'Процедура цикла по всем формам
Sub CicleFrm
    Dim frm As AccessObject
    For Each frm In CurrentProject.AllForms
        addStringToModuleForm frm.Name
    Next
    MsgBox "Вставка завершена"
End Sub

For each frm in currentproject.allforms
     DoCmd.OpenForm frm.name, acDesign, , , , acHidden
     forms(frm.name).OnOpen = "=ИмяПроцедуры()"
     DoCmd.Close acForm, frm.name, acSaveYes
next frm