Another way to refresh all forms in Access database

Refresh issues in Microsoft Access are always a pain, especially in Access forms with various subforms. Trying using this code to refresh all open forms.

PASTE THIS VBA CODE into your database:

Public Sub RefreshAllForms()

Dim objFrm As Object

Dim strFrm As String

Dim ctl As Control

For Each objFrm In CurrentProject.AllForms

If objFrm.IsLoaded Then

strFrm = objFrm.Name

For Each ctl In Forms(strFrm).Controls

If (ctl.ControlType = acComboBox) Or (ctl.ControlType = acListBox) Then

ctl.Requery

End If

Next ctl

Forms(strFrm).Refresh

End If

Next objFrm

End Sub