Refreshing a form

[philbullock1223]

When I close a form I would like to refresh all open forms. I am using the code below, however I am getting the error message "Object Doesn't support this property or method" Error: 438 on the line dbs.AllForms(i).Refresh. The isloaded and count work fine.

Public Function FormRefresh() As Boolean
 
Dim obj As AccessObject
Dim dbs As Object
Dim i As Integer
Dim intFormCount As Integer
 
Set dbs = Application.CurrentProject
 
intFormCount = dbs.AllForms.Count - 1
 
For i = 0 To intFormCount
    If dbs.AllForms(i).IsLoaded = True Then
        [COLOR=red]dbs.AllForms(i).Refresh[/COLOR]
    End If
Next
 
End Function

 

[mdlueck]

Try inspecting...

  For i = 0 To intFormCount
    If dbs.AllForms(i).IsLoaded = True Then
        [COLOR=red]Debug.Print dbs.AllForms(i).Name[/COLOR]
        [COLOR=Black]dbs.AllForms(i).Refresh[/COLOR]
    End If
Next

And narrow down which form it is tripping on.

 

[philbullock1223]

I had previousely done this. It always stops on the first form that isloaded (i.e. the first time it comes accross the problem code).

Thanks for the suggestion.

 

[mdlueck]

I would do it via a different design:

Dim frm As Access.Form

For Each frm In Forms
  Debug.Print frm.Name
  frm.Refresh
Next frm

This code at least does not blow up.

 

[philbullock1223]

Thanks again for the help. I did this but had to add an if statement so that it can check if the form IsLoaded.

Now I am getting the error 2465: Application-defined or object-defined error

I am greatful for any help.

Public Function FormRefresh() As Boolean

For Each frm In Forms
    [COLOR=red]If frm.IsLoaded = True Then
[/COLOR]        frm.Refresh
    End If
Next frm
 
End Function

 

[philbullock1223]

Nevermind.

I guess the "For Each frm in forms" only refreshes the open forms.

This code is working for me:

Public Function FormRefresh() As Boolean

 
For Each frm In Forms
    frm.Refresh
Next frm
 
End Funcion

THANKS AGAIN FOR THE HELP!

 

[mdlueck]

I guess the "For Each frm in forms" only refreshes the open forms.

That is correct. The Forms collection dynamically represents the application forms currently open, as opposed to querying all of the forms available in the database.

THANKS AGAIN FOR THE HELP!

You are most welcome.