<<help>> Code worked before and now it doesn't!

[WØCBF]

I know this code has worked before but now appears to get a compile
error. The code it seems to choke on line 12.
I receive the following message and it highlights the "rst!" statement.

Error received: Microsoft Visual Basic Compile error: Type declaration
character does not match declared data type [(OK) (HELP)]

Private Sub Form_Load()

1 Dim db As Database
2 Dim rst As Recordset
3 Dim strsql As String
4 Dim idnumber As long
5 Dim firstname As String
6 Dim Lastmane As String

7 Set db = CurrentDb
8 strsql = "select [idnumber] from [workers]"
9 Set rst = db.OpenRecordse t(strsql)
10 rst.MoveLast
11 rst.MoveFirst
12 idnumber = rst!("idnumber" )
13 me.switchboardf orm = idnumber
14 rst.Close
15 Set rst = Nothing
16 Set db = Nothing

End Sub

Any ideas would be appreciated.
Thanks
Chuck

[Bob Alston]

WØCBF wrote:

I know this code has worked before but now appears to get a compile
error. The code it seems to choke on line 12.
I receive the following message and it highlights the "rst!" statement.

Error received: Microsoft Visual Basic Compile error: Type declaration
character does not match declared data type [(OK) (HELP)]

Private Sub Form_Load()

1 Dim db As Database
2 Dim rst As Recordset
3 Dim strsql As String
4 Dim idnumber As long
5 Dim firstname As String
6 Dim Lastmane As String

7 Set db = CurrentDb
8 strsql = "select [idnumber] from [workers]"
9 Set rst = db.OpenRecordse t(strsql)
10 rst.MoveLast
11 rst.MoveFirst
12 idnumber = rst!("idnumber" )
13 me.switchboardf orm = idnumber
14 rst.Close
15 Set rst = Nothing
16 Set db = Nothing

End Sub

Any ideas would be appreciated.
Thanks
Chuck

Go look at the type definition for idnumber in table workers. I will
bet it is not the same as idnumber, the variable, defined as long.

Bob

[Douglas J. Steele]

Try

idnumber = rst!idnumber

or

idnumber = rst.Fields("idn umber")


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"WØCBF" <w0***@yahoo.co m> wrote in message
news:11******** **************@ g44g2000cwa.goo glegroups.com.. .

I know this code has worked before but now appears to get a compile
error. The code it seems to choke on line 12.
I receive the following message and it highlights the "rst!" statement.

Error received: Microsoft Visual Basic Compile error: Type declaration
character does not match declared data type [(OK) (HELP)]

Private Sub Form_Load()

1 Dim db As Database
2 Dim rst As Recordset
3 Dim strsql As String
4 Dim idnumber As long
5 Dim firstname As String
6 Dim Lastmane As String

7 Set db = CurrentDb
8 strsql = "select [idnumber] from [workers]"
9 Set rst = db.OpenRecordse t(strsql)
10 rst.MoveLast
11 rst.MoveFirst
12 idnumber = rst!("idnumber" )
13 me.switchboardf orm = idnumber
14 rst.Close
15 Set rst = Nothing
16 Set db = Nothing

End Sub

Any ideas would be appreciated.
Thanks
Chuck

[Bob Alston]

WØCBF wrote:

I know this code has worked before but now appears to get a compile
error. The code it seems to choke on line 12.
I receive the following message and it highlights the "rst!" statement.

Error received: Microsoft Visual Basic Compile error: Type declaration
character does not match declared data type [(OK) (HELP)]

Private Sub Form_Load()

1 Dim db As Database
2 Dim rst As Recordset
3 Dim strsql As String
4 Dim idnumber As long
5 Dim firstname As String
6 Dim Lastmane As String

7 Set db = CurrentDb
8 strsql = "select [idnumber] from [workers]"
9 Set rst = db.OpenRecordse t(strsql)
10 rst.MoveLast
11 rst.MoveFirst
12 idnumber = rst!("idnumber" )
13 me.switchboardf orm = idnumber
14 rst.Close
15 Set rst = Nothing
16 Set db = Nothing

End Sub

Any ideas would be appreciated.
Thanks
Chuck

See the comment from RDWaibel

http://www.experts-exchange.com/Data..._21207636.html

" the problem, as I see it, is the ! that you have after the Rst. To
use the name of the field as teh identifier, you don't need the !. Like
so....

rst(fldName$)"
In my code I personally use the following syntax:

INrec.Fields(fl dName$)