Now that I am running my access on 2002 instead of 2000 I am having a problem
getting some VB script to run. My programmer is out of the country for two
months so it's up to me. Here is the script that isn't running properly
below...
Sub CreateUserStatsRecords()
' assumes date is in fparam(4)
On Error Resume Next
Dim db As Database
Set db = DBEngine.Workspaces(0)(0)
Dim cs As Recordset
Dim sql As String
Dim TheDate As String
Dim date1 As String
date1 = Format$(fparam(4), "short date")
'thedate = "#" & date1 & "#"
TheDate = "#" & Left$(date1, Len(date1) - 2) & "20" & Right$(date1, 2) &
"#"
Dim crit As String
Dim us As Recordset
sql = "select * from [User Stats] where [Day] = " & TheDate
Set us = db.OpenRecordset(sql, DB_OPEN_DYNASET)
Set cs = db.OpenRecordset("Call Summary query 3", DB_OPEN_SNAPSHOT)
Do Until cs.EOF
DoEvents
crit = "[User Ptr] = " & Str$(cs![User Ptr])
us.FindFirst crit
If us.NoMatch Then
us.AddNew
us![User Ptr] = cs![User Ptr]
us![Day] = fparam(4)
us![Paid Hours] = cs![Default Hours]
us.Update
End If
cs.MoveNext
If Err Then Exit Do
Loop
cs.Close
us.Close
End Sub
If I run it on a Access 2000 machine, it runs properly. But if I run it on
Access 2002, I don't get anything.
I don't know much about this, so any help I can get would be greatly
appreciated. Thanks.
|
Similar Threads
