AW: [AccessD] Invalid reference to the property Form/Report

A while ago I had a strange problem like this too. There seems to be a
problem
if you have a couple of subforms on tab-controls. If I remember this
correctly,
the solution was to bring the subform to the foreground in design view (no
joke!).

If that might be the case with your app I can dig out the details.

Michael

-----Ursprungliche Nachricht-----
Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von
connie.kamrowski at agric.nsw.gov.au
Gesendet: Mittwoch, 14. Juli 2004 03:57
An: accessd at databaseadvisors.com
Betreff: [AccessD] Invalid reference to the property Form/Report



Hi All

I notice Susan had this problem in the Archives with no solve but was
hoping someone had further ideas.

I have completed my database and testing the new release and suddenly
getting an error in a place where I did not get one in an older version.
I'm not getting it on the development machine, only on test machines, and
them only on some of the test machines.



The code is called when my form opens and is as follows:



Private Sub Species_RowSource()

'Species are required on Approval (non Schedule 2 Species only) and Permit
(Schedule 2 Species only) type Authorities only
On Error GoTo Failure

    If gfSpeciesRequired = True Then 'Species is required
        Me.sfrDAuthoritySpecies.Visible = True

            If gfSchedule2Only = True Then 'Only Schedule 2 Required
                'Limit the RowSource of the Species combobox in
sfrDAuthoritySpecies to schedule 2 only
                Me![sfrDAuthoritySpecies].Form![Species].RowSource
= "qryDAuthoritySpecies2Only"
                Me![sfrDAuthoritySpecies].Form![Species].Requery
            Else 'gfSchedule2Only = False 'Species other than 2 required
                'Limit the RowSource of the Species combobox in
sfrDAuthoritySpecies to nonSchedule 2
                Me![sfrDAuthoritySpecies].Form![Species].RowSource
= "qryDAuthoritySpeciesNon2Only"
                Me![sfrDAuthoritySpecies].Form![Species].Requery
            End If

    Else
        'Species is not required at all - Licence type Authority
        Me.sfrDAuthoritySpecies.Visible = False
    End If

ExitRoutine:
    Exit Sub

Failure:
        Call ErrorHandler(lngErrorNumber:=Err.Number,
strErrorDescription:=Err.Description, strErrorSource:=Err.Source)
        Resume ExitRoutine

End Sub

The code runs through and throws to the error handler - crashes with error
2455 you have entered an expression with an invalid reference to the
property Form/Report




Connie Kamrowski

Analyst/Programmer
Information Technology
NSW Department of Primary Industries
Orange

Ph: 02 6391 3250
Fax:02 6391 3290


This message is intended for the addressee named and may contain
confidential information. If you are not the intended recipient or received
it in error, please delete the message and notify sender. Views expressed
are those of the individual sender and are not necessarily the views of
their organisation.


--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com