The code compiles just fine on Windows95 and 98 machines, but Windows 2000 gives me this message. This is where it happens:
Set BudgetDset = gAssetdb.OpenRecordset(sqlstmt, dbOpenDynaset)
...
frmMonthly!grid3.Refresh
BudgetDset.MoveLast
ReDim Stmtlinexref(BudgetDset.RecordCount * 2)
BudgetDset.MoveFirst
Do While Not BudgetDset.EOF
If IsNull(BudgetDset("Stmtlineno"
) Then
lnenbr = 0
Else
lnenbr = Val(BudgetDset("Stmtlineno"
)
End If
If lnenbr > 0 Then
Stmtlinexref(lnenbr) = BudgetDset("Seqno"
End If
BudgetDset.MoveNext
Loop
I debuged it. It happens on "BudgetDset.MoveNext" . Why?! Any ideas? PLEASE!!!
Set BudgetDset = gAssetdb.OpenRecordset(sqlstmt, dbOpenDynaset)
...
frmMonthly!grid3.Refresh
BudgetDset.MoveLast
ReDim Stmtlinexref(BudgetDset.RecordCount * 2)
BudgetDset.MoveFirst
Do While Not BudgetDset.EOF
If IsNull(BudgetDset("Stmtlineno"
lnenbr = 0
Else
lnenbr = Val(BudgetDset("Stmtlineno"
End If
If lnenbr > 0 Then
Stmtlinexref(lnenbr) = BudgetDset("Seqno"
End If
BudgetDset.MoveNext
Loop
I debuged it. It happens on "BudgetDset.MoveNext" . Why?! Any ideas? PLEASE!!!