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.