Compile Error on rst.Fields("Account")

[Guus2005]

Can you tell me why i get an error message on

dim rst         as recordset
dim strResult as string

[lot of stuff here]

strResult = rst.Fields("Account") '<Error: sub or Function Not defined

declaration and error jpgs are attached.

Thanks!

 

[Rabbie]

I couldn't get this to work using fieldnames. However if I used the field number starting from 0 for the leftmost it returned the correct content for that field in the current record.

ie strResult = rst.Fields(0) returned the key of the first record from my table

 

[Guus2005]

Well i don't get the error message all the time and as you can see from the attached pictures this property was already used a few lines earlier.

I tried compacting and repairing but that didn't work.
I am going to boot now!

 

[Guus2005]

Boot didn't work.
Still get the error message which is b.t.w Error 35

 

[RoyVidar]

What is your function expecting? By how you pass this, it could be either a field object or the value property, but it'd probably be more interesting seeing the actual code.

What happens if you try to be more explicit TheFunction(rst.Fields("MyField").Value / 1000) ?

Try /Decompile too, for detailed instruction, see http://www.granite.ab.ca/access/decompile.htm (note, before step 3, close all instances of Access, reopen without running any code (shift) before doing the compact)

 

[Guus2005]

When you copy code, copy everything!

What happens if you try to be more explicit TheFunction(rst.Fields("MyField").Value / 1000) ?

Being more explicit did the trick.

The error started here:

lngSecActual = RoundLng(rstSecActual.[COLOR="Red"]Fields[/COLOR]("Actual") / 1000)

Being more explicit shifts the error message to here:

lngSecActual = [COLOR="red"]RoundLng[/COLOR](rstSecActual.Fields("Actual").Value / 1000)

I missed this function...

Thanks for the input, RoyVidar.