dynamically remove recordsource

[abenitez77]

How can i remove all recordsources from all forms and subforms in my app? I want to do this with vba to loop thru all forms and remove all recordsources.

thanks!

 

[pbaldy]

Loop the forms collection:

https://docs.microsoft.com/en-us/office/vba/api/access.allforms

within the loop, open the form in design view, set the record source to "", close and save the form.

 

[MajP]

Although he stated Forms collection, he meant the AllForms collection as per the link. The Forms collection only holds open forms.

Public Sub ModForms()
  Dim frm As Access.Form
  Dim frmObj As AccessObject
  For Each frmObj In CurrentProject.AllForms
    DoCmd.OpenForm frmObj.Name, acDesign
    Set frm = Forms(frmObj.Name)
    'do code here
    'frm.Caption = "Changed"
    DoCmd.Close acForm, frm.Name, acSavePrompt
  Next frmObj
End Sub

 

[abenitez77]

Excellent! just what i needed. thanks!