Столкнулся еще с одной задачей и не знаю как выполнить.
Нужно программно произвести операцию с кодом в формах, по типу "Найти и заменить".
Хочу написать функцию, которая пройдет по всем формам и произведет замену SQL запросов, которые выполняются по нажатию на кнопки или по каким либо действиям форм.
Еще могут быть просто приватные функции на которые ссылаются контролы.
Надо пройтись по всем формам и произвести замены. Как произвести замены не проблема, вся сложность в том, что не могу найти методов получения кода форм.
С источниками записей форм и контролов делаю так

   Dim qd As QueryDef, rst As Recordset, like_str As String, NewSQL As String, frm As Object, ctrl As Control
  Set rst = CurrentDb.OpenRecordset("SELECT FORM_NAME, OLD_Source FROM Объект_программы WHERE left([OLD_Source], 2)= 'Т_'")
  While Not rst.EOF
    If rst![OLD_Source] <> "" Then
      like_str = "*" & rst![OLD_Source] & "*"
      For Each qd In CurrentDb.QueryDefs
        If Left(qd.Name, 1) <> "~" Then
          If qd.SQL Like like_str Then
            NewSQL = replace(qd.SQL, " " & rst![OLD_Source] & " ", " Т_" & rst![FORM_NAME] & " ")
            NewSQL = replace(NewSQL, "=" & rst![OLD_Source] & ".", "=Т_" & rst![FORM_NAME] & ".")
            NewSQL = replace(NewSQL, "(" & rst![OLD_Source] & ".", "(Т_" & rst![FORM_NAME] & ".")
            NewSQL = replace(NewSQL, "(" & rst![OLD_Source] & " ", "(Т_" & rst![FORM_NAME] & " ")
            NewSQL = replace(NewSQL, " " & rst![OLD_Source] & ".", " Т_" & rst![FORM_NAME] & ".")
            NewSQL = replace(NewSQL, "[" & rst![OLD_Source] & "]", "[Т_" & rst![FORM_NAME] & "]")
            qd.SQL = NewSQL
            Debug.Print rst![OLD_Source], qd.SQL
          End If
        End If
      Next
      End If
    rst.MoveNext
  Wend
  rst.CLOSE
  For Each frm In CurrentProject.AllForms
  DoCmd.OpenForm frm.Name, acDesign, , , , acHidden
  Set rst = CurrentDb.OpenRecordset("SELECT FORM_NAME, OLD_Source FROM Объект_программы WHERE left([OLD_Source], 2)= 'Т_'")
  While Not rst.EOF
    If rst![OLD_Source] <> "" Then
      NewSQL = replace(Forms(frm.Name).RecordSource, " " & rst![OLD_Source] & " ", " Т_" & rst![FORM_NAME] & " ")
      NewSQL = replace(NewSQL, "=" & rst![OLD_Source] & ".", "=Т_" & rst![FORM_NAME] & ".")
      NewSQL = replace(NewSQL, "(" & rst![OLD_Source] & ".", "(Т_" & rst![FORM_NAME] & ".")
      NewSQL = replace(NewSQL, "(" & rst![OLD_Source] & " ", "(Т_" & rst![FORM_NAME] & " ")
      NewSQL = replace(NewSQL, " " & rst![OLD_Source] & ".", " Т_" & rst![FORM_NAME] & ".")
      NewSQL = replace(NewSQL, "[" & rst![OLD_Source] & "]", "[Т_" & rst![FORM_NAME] & "]")
      Debug.Print Forms(frm.Name).RecordSource, NewSQL
      Forms(frm.Name).RecordSource = NewSQL
      For Each ctrl In Forms(frm.Name).Controls
        If ctrl.ControlType = acComboBox Or ctrl.ControlType = acListBox Then
          If ctrl.RowSource <> "" Then
            DoEvents
            NewSQL = replace(ctrl.RowSource, " " & rst![OLD_Source] & " ", " Т_" & rst![FORM_NAME] & " ") '.ControlSource
            NewSQL = replace(NewSQL, "=" & rst![OLD_Source] & ".", "=Т_" & rst![FORM_NAME] & ".")
            NewSQL = replace(NewSQL, "(" & rst![OLD_Source] & ".", "(Т_" & rst![FORM_NAME] & ".")
            NewSQL = replace(NewSQL, "(" & rst![OLD_Source] & " ", "(Т_" & rst![FORM_NAME] & " ")
            NewSQL = replace(NewSQL, " " & rst![OLD_Source] & ".", " Т_" & rst![FORM_NAME] & ".")
            NewSQL = replace(NewSQL, "[" & rst![OLD_Source] & "]", "[Т_" & rst![FORM_NAME] & "]")
            Debug.Print ctrl.RowSource, NewSQL
            ctrl.RowSource = NewSQL
          End If
        End If
      Next
    End If
    rst.MoveNext
  Wend
  CloseObject acForm, frm.Name, , True
  Next

Нужно тоже самое производить и программными запросами.
Для меня это видится примерно как
Forms(i).SourceCode("Кнопка_Click") = "Здесь укажем новый код VBA"
Куда посоветуете копать?

http://www.sql.ru/forum/1165903/izmenenie-sobytiy-form-v-cikle