Error: You entered an expression that has an invalid...

[Simon Harris]

Hi All,

My code is causing an error on my clients machine, the same code works fine
for me. The error is as follows:

Run-time error '2455':
You entered an expression that has an invalid reference to the property
form/report.

This occurs on this code:

Private Sub Form_Load()
'Make sure we dont display any old readings
strSQL = "SELECT QRY_Readings.first_name, QRY_Readings.surname,
QRY_Readings.ParkName, QRY_Readings.PitchNumber, QRY_Readings.Reading_Date,
QRY_Readings.Electric_Reading, QRY_Readings.Water_Rates,
QRY_Readings.Water_Rates_Admin, QRY_Readings.Gas_Reading,
QRY_Readings.Gas_Standing_Charge, QRY_Readings.Street_Lighting FROM
QRY_Readings where reading_date = #01/01/1980#;"
SubForm_Invoices.Form.RecordSource = strSQL
SubForm_Invoices.Form.Requery
End Sub

Thanks,
Simon.

--
-
* Please reply to group for the benefit of all
* Found the answer to your own question? Post it!
* Get a useful reply to one of your posts?...post an answer to another one
* Search first, post later : http://www.google.co.uk/groups
* Want my email address? Ask me in a post...Cos2MuchSpamMakesUFat!

 

[tina]

if you've pasted the exact code from your module, i'm surprised it would run
anywhere. in VBA, a string that runs on more than one line has to be
concatenated, as

strSQL = "SELECT first_name, surname, ParkName, " _
& "PitchNumber, Reading_Date, Electric_Reading, " _
& "Water_Rates, Water_Rates_Admin, Gas_Reading, " _
& "Gas_Standing_Charge, Street_Lighting FROM " _
& "QRY_Readings WHERE reading_date = #01/01/1980#"

hth