i got error 3001 when try to open switchboard

[F Andrew]

every time i try to open switchboard i got messege error 3001 and can not use
any wizard, is it any way to fixing it?
thank you in advance

 

[Geof Wyght]

Could you please tell us what the error message is for
error 3001 and at what line in what procedure it occurs?
Geof Wyght

 

[F Andrew]

Run-time error 3001
Invalid Argument

and after debug, this is the result

' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" &
Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset


the yellow mark is in the last comad..
thnak you

 

[Geof Wyght]

Sorry for the delay. I believe that if you Dim your
recordset as a DAO.Recordset your problem will go away.
You may have ADO and DAO objects in your database. If you
do, be explicit about what type they are: ADODB.Recordset
etc...
Good luck.
Geof Wyght

-----Original Message-----
Run-time error 3001
Invalid Argument

and after debug, this is the result

' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" &
Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset


the yellow mark is in the last comad..
thnak you

Could you please tell us what the error message is for
error 3001 and at what line in what procedure it occurs?
Geof Wyght error
3001 and can not use

.

 

[F Andrew]

thank you for helping me,
I chose to uninstall my windows XP sp2 to solve the problem, because before
i install it i can use my access properly,
when i use windows SP 2 i miss MSADO10.dll fromm my acces, because it change
with MSADO18.dll and other MSADO...dll, but i can not find msado10.dll

thank you

Sorry for the delay. I believe that if you Dim your
recordset as a DAO.Recordset your problem will go away.
You may have ADO and DAO objects in your database. If you
do, be explicit about what type they are: ADODB.Recordset
etc...
Good luck.
Geof Wyght

-----Original Message-----
Run-time error 3001
Invalid Argument

and after debug, this is the result

' Open the table of Switchboard Items, and find
' the first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" &
Me![SwitchboardID]
stSql = stSql & " ORDER BY [ItemNumber];"
Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset


the yellow mark is in the last comad..
thnak you

Could you please tell us what the error message is for
error 3001 and at what line in what procedure it occurs?
Geof Wyght
-----Original Message-----
every time i try to open switchboard i got messege error
3001 and can not use
any wizard, is it any way to fixing it?
thank you in advance
.

.