Error: Subscript out of range (no. 9)

[Guest]

I have problem with this error:

9. Subscript out of range on line
Set rst = PlaningDB.OpenRecordset(SQL)

Dim rst As Recordset
SQL string is
"
SELECT * FROM
t_real, t_pracovnici, t_nakladove_strediska WHERE
t_real.n_pracovnik = t_pracovnici.n_id AND
t_real.n_ns = t_nakladove_strediska.n_id AND
(t_real.n_ns IN(1,9)) AND
((t_real.n_rok = 2004 AND t_real.n_mesiac >= 12) OR
( t_real.n_rok = 2005 AND t_real.n_mesiac <= 1))
ORDER BY t_real.n_rok, t_real.n_mesiac, t_real.n_ns
"

It works at my PC, but not works at another PC. I think that the reason is
in different Settings of MS ACCESS, because we have the same version (Access
2000).
Can you help me? How, where, or what should I to set?
(Settings,Library,ActiveX controls,...)?

 

[Ken Snell [MVP]]

Not sure, but check the references on the PC that isn't working.

Try following these steps (from a post by Douglas Steele, MVP):

This can be caused by differences in either the location or file version of
certain files between the machine where the application was developed, and
where it's being run (or the file missing completely from the target
machine). Such differences are common when new software is installed.

On the machine(s) where it's not working, open any code module (or open the
Debug Window, using Ctrl-G, provided you haven't selected the "keep debug
window on top" option). Select Tools | References from the menu bar. Examine
all of the selected references.

If any of the selected references have "MISSING:" in front of them, unselect
them, and back out of the dialog. If you really need the reference(s) you
just unselected (you can tell by doing a Compile All Modules), go back in
and reselect them.

If none have "MISSING:", select an additional reference at random, back out
of the dialog, then go back in and unselect the reference you just added. If
that doesn't solve the problem, try to unselect as many of the selected
references as you can (Access may not let you unselect them all), back out
of the dialog, then go back in and reselect the references you just
unselected. (NOTE: write down what the references are before you delete
them, because they'll be in a different order when you go back in)

For far more than you could ever want to know about this problem, check out
http://members.rogers.com/douglas.j.steele/AccessReferenceErrors.html