Form Reference in VBA

[Hayton]

Hi Guys,
I have a form fsubFitments which is a subform for frmFleet.

When I run this code I get a message "MS Access can't find the form "fsubfitments". I guess I am not referencing the the form somehow, ie "frmFleet!fsubFitments"

Any suggestions would be appreciated.

'Check if the original data entry form with the list is open (This form might have been opened manually.)
If SysCmd(acSysCmdGetObjectState, acForm, "fsubFitments") <> conObjStateClosed Then
If Forms("fsubFitments").CurrentView <> conDesignView Then
IsFormLoaded = True
End If
End If

Hayton McGregor

 

[dhookom]

Why are you checking for fsubfitments? Why not check to see if frmFleet is open which should tell you if the subform is open?

Duane
Hook'D on Access
MS Access MVP

 

[MajP]

The forms collection only contains open forms and does not include forms open as subforms. I doubt your code works. I would think what Duane is asking makes sense. However, to check if a form is loaded as a subform.

Public Function isSubFormLoaded(subFrmName As String) As Boolean
  Dim frm As AccessObject
  Dim ctrl As Access.Control
  For Each frm In CurrentProject.AllForms
    If frm.IsLoaded Then
      For Each ctrl In Forms(frm.name).Controls
        If ctrl.ControlType = acSubform Then
          If ctrl.Form.name = subFrmName Then
            isSubFormLoaded = True
            Exit Function
           End If
        End If
      Next ctrl
    End If
  Next frm
End Function

 

[Hayton]

Hi Guys, thanks for your advice. I redisgned the app got the code to check if frmFleet is open and all worked well.

Hayton McGregor