connie.kamrowski at agric.nsw.gov.au
connie.kamrowski at agric.nsw.gov.au
Tue Jul 13 20:56:34 CDT 2004
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.