IsLoaded compile error

[imrosie]

Hello,

Is there anyone who can help me figure out how to resolve this conflict when I try to re-compile?
It keeps telling the sub or routine is not defined...but it is!?! I think (I'm a newbie)
Here's the procedure:

Private Sub Report_Open(Cancel As Integer)
Dim strRecordSource As String
 
    If IsLoaded("PrintInvoiceDialog") Then
        strRecordSource = "SELECT * FROM Invoices WHERE OrderID = " & Forms!PrintInvoiceDialog.OrderID
        Me.RecordSource = strRecordSource
    End If
 

thanks in advance
Rosie

[MitchR]

IsLoaded is used to determine if an AccessObject is currently loaded. Typically IsLoaded is Preceeded by an expression.

 
Private Sub Report_Open(Cancel As Integer)
Dim strRecordSource As String
 
If <expression>.IsLoaded("PrintInvoiceDialog") Then
        strRecordSource = "SELECT * FROM Invoices WHERE OrderID = " & Forms!PrintInvoiceDialog.OrderID
        Me.RecordSource = strRecordSource
        Else
    End If
End Sub
 

Here is a link to give some additional details:
http://msdn2.microsoft.com/en-us/library/bb213660.aspx

[imrosie]

IsLoaded is used to determine if an AccessObject is currently loaded. Typically IsLoaded is Preceeded by an expression.

 
Private Sub Report_Open(Cancel As Integer)
Dim strRecordSource As String
 
If <expression>.IsLoaded("PrintInvoiceDialog") Then
        strRecordSource = "SELECT * FROM Invoices WHERE OrderID = " & Forms!PrintInvoiceDialog.OrderID
        Me.RecordSource = strRecordSource
        Else
    End If
End Sub
 

Here is a link to give some additional details:
http://msdn2.microsoft.com/en-us/library/bb213660.aspx

Thanks MitchR for your feedback. I thought that '("PrintInvoiceDialog")', the form was being passed to the IsLoad, to complete the expression. It works like this on another form (of my colleges). I just imported the forms required to make it work.

PrintInvoiceDialog is required to be open for this to work.....the error message says the 'sub or function is not defined'. I went to that weblink, it was somewhat confusing as I'm still a newbie. thanks anyway.

Rosie
Rosie

[missinglinq]

I don't know where you got the code from, Rosie, but I doubt that it has ever run in Access VBA! As the error message indicated, IsLoaded is not a sub or function, which is how you've attempted to use it

IsLoaded("PrintInvoiceDialog")

but rather is a Property of an object, like .Enabled or .SetFocus and thus

the "sub or function is not defined" error message. The <expression> has to be an expression representing an object. I think you need to replace

If <expression>.IsLoaded("PrintInvoiceDialog") Then

with

If CurrentProject.AllForms("PrintInvoiceDialog").IsLo aded = True Then

Good Luck!

Linq ;0)>

[imrosie]

I don't know where you got the code from, Rosie, but I doubt that it has ever run in Access VBA! As the error message indicated, IsLoaded is not a sub or function, which is how you've attempted to use it

IsLoaded("PrintInvoiceDialog")

but rather is a Property of an object, like .Enabled or .SetFocus and thus

the "sub or function is not defined" error message. The <expression> has to be an expression representing an object. I think you need to replace

If <expression>.IsLoaded("PrintInvoiceDialog") Then

with

If CurrentProject.AllForms("PrintInvoiceDialog").IsLo aded = True Then

Good Luck!

Linq ;0)>

Thanks Missinglinq,,,I'm going off to try this out...will report back for the benefit of others.
Rosie

[ADezii]

Hello,

Is there anyone who can help me figure out how to resolve this conflict when I try to re-compile?
It keeps telling the sub or routine is not defined...but it is!?! I think (I'm a newbie)
Here's the procedure:

Private Sub Report_Open(Cancel As Integer)
Dim strRecordSource As String
 
    If IsLoaded("PrintInvoiceDialog") Then
        strRecordSource = "SELECT * FROM Invoices WHERE OrderID = " & Forms!PrintInvoiceDialog.OrderID
        Me.RecordSource = strRecordSource
    End If
 

thanks in advance
Rosie

Hello Rosie, long time no see. If you wish to maintain your current syntax:

1. Copy and Paste this Function to a Standard Code Module.
   

   Public Function IsLoaded(ByVal strFormName As String) As Boolean
   'Returns True if the specified form is open in Form view or Datasheet view.
    
    Const conObjStateClosed = 0
    Const conDesignView = 0
    
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
      If Forms(strFormName).CurrentView <> conDesignView Then
        IsLoaded = True
      End If
    End If
   End Function

2. You would then use it in this manner.
   

   Private Sub Report_Open(Cancel As Integer)
   Dim strRecordSource As String
    
   If IsLoaded("PrintInvoiceDialog") Then
     strRecordSource = "SELECT * FROM Invoices WHERE OrderID = " & Forms!PrintInvoiceDialog.OrderID
     Me.RecordSource = strRecordSource
   End If
   End Sub

[imrosie]

Hello Rosie, long time no see. If you wish to maintain your current syntax:

1. Copy and Paste this Function to a Standard Code Module.
   

   Public Function IsLoaded(ByVal strFormName As String) As Boolean
   'Returns True if the specified form is open in Form view or Datasheet view.
    
    Const conObjStateClosed = 0
    Const conDesignView = 0
    
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
      If Forms(strFormName).CurrentView <> conDesignView Then
        IsLoaded = True
      End If
    End If
   End Function

2. You would then use it in this manner.
   

   Private Sub Report_Open(Cancel As Integer)
   Dim strRecordSource As String
    
   If IsLoaded("PrintInvoiceDialog") Then
     strRecordSource = "SELECT * FROM Invoices WHERE OrderID = " & Forms!PrintInvoiceDialog.OrderID
     Me.RecordSource = strRecordSource
   End If
   End Sub

Hi ADezii,

It's been a while since I've 'read' from you...but I post at least
2 or 3 times/week...

Thanks for this...I'm going to put that in now. I'll report back, but have no doubt that if it's from you, it will work. take care

Rosie

forgot to mention that I did try missinglinq's code,,,it worked too. I like the idea though of a 'Public' function though. take care.

[ADezii]

Hi ADezii,

It's been a while since I've 'read' from you...but I post at least
2 or 3 times/week...

Thanks for this...I'm going to put that in now. I'll report back, but have no doubt that if it's from you, it will work. take care

Rosie

forgot to mention that I did try missinglinq's code,,,it worked too. I like the idea though of a 'Public' function though. take care.

You too, Rosie - good to hear from you again!