Hi all, I have a problem when running this vba code: SetRS1 "Select * From Q_SdbK Where Sh_No Between '" & (ship1.Value) & "' AND '" & (ship2.Value) & "'" 'Rs1.MoveNext While Not Rs1.EOF a = Rs1(0) SetRS2 "Select * From Q_PrintKA Where Shp_No ='" & (a) & "'" end = DCount("*", "Q_PrintKA", "Shp_No ='" & (a) & "'") when it reached the bold part, the running will stop and show this error "Run-time error '2950': Reserved Error" But the error won't come if open the Access file while running the code. Anyone could help me with this problem? Thank you

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

VBA to count records on Access

Thread starter yncip
Start date Sep 15, 2014

yncip

New Member

Sep 15, 2014

Hi all, I have a problem when running this vba code:

Code:

SetRS1 "Select * From Q_SdbK Where Sh_No Between '" & (ship1.Value) & "' AND '" & (ship2.Value) & "'"
'Rs1.MoveNext
While Not Rs1.EOF
a = Rs1(0)
    SetRS2 "Select * From Q_PrintKA Where Shp_No ='" & (a) & "'"
[B]    end = DCount("*", "Q_PrintKA", "Shp_No ='" & (a) & "'")
[/B]

when it reached the bold part, the running will stop and show this error
"Run-time error '2950':
Reserved Error"

But the error won't come if open the Access file while running the code.

Anyone could help me with this problem?

Thank you