hi all,
Here is my current setup:
- o/s: fresh install of Win2k SP4
- Access 97 SR2
- database is an Orcale db sitting on a server
- ODBC driver(verion 2.5.3.1.0B from Orcale) is used for connection to the database
Here is the problem:
I am getting a " Compile error: Can't find project or library" for the 'str' function. I got this when I launch my .mdb from the file explorer. The code launches a "startup" form which calls the 'UserData' function for user validation
The "MyRole" is a link table(ie. a Orcale table on a server)
Below is section of code:
***** start of code ******
=================
LabModule1:Module
==================
option explicit
public intUsrIdNum as Integer
...
...
=================
function UserData
=================
dim rstUserRole as recordset
set db = CurrentDb()
set rstUserRole = db.OpenRecordset("MY_Role",dbOpenDynaset)
...
...
...
With rstUserRole
.FindFirst strCriteria
if .NoMatch then
MsgBox "No Entry found for user" & str(intUserIdNum), vbOKOly, "Error"
else
...
...
end if
end with
...
...
end UserData
****** end of code ******
Access complains about the 'str' function which I believe is a built-in function. Any pointer would be appreciated.
Please help.
Cheers
Here is my current setup:
- o/s: fresh install of Win2k SP4
- Access 97 SR2
- database is an Orcale db sitting on a server
- ODBC driver(verion 2.5.3.1.0B from Orcale) is used for connection to the database
Here is the problem:
I am getting a " Compile error: Can't find project or library" for the 'str' function. I got this when I launch my .mdb from the file explorer. The code launches a "startup" form which calls the 'UserData' function for user validation
The "MyRole" is a link table(ie. a Orcale table on a server)
Below is section of code:
***** start of code ******
=================
LabModule1:Module
==================
option explicit
public intUsrIdNum as Integer
...
...
=================
function UserData
=================
dim rstUserRole as recordset
set db = CurrentDb()
set rstUserRole = db.OpenRecordset("MY_Role",dbOpenDynaset)
...
...
...
With rstUserRole
.FindFirst strCriteria
if .NoMatch then
MsgBox "No Entry found for user" & str(intUserIdNum), vbOKOly, "Error"
else
...
...
end if
end with
...
...
end UserData
****** end of code ******
Access complains about the 'str' function which I believe is a built-in function. Any pointer would be appreciated.
Please help.
Cheers