G
Guest
Question
I'm running NT but will be converting to XP shortly. I have an Access 97 DB that, when I ask someone who's running XP (and Access 97) to open it, they receive a Compile Error "Can't find project or library"
Here's the code from the class module - it stops at "Format" after "TodayDate"
Private Sub CheckDate(
Dim LastUpdate As Dat
Dim TodayDate As Dat
Dim TodayTime As Dat
'Check for Last Update. Allow only one update every 24 hours and only after 6:00AM
TodayDate = Format(Now(), "ddddd"
TodayTime = Format(Now(), "ttttt"
LastUpdate = Format(DMax("[UpdateDate]", "DailyUpdateLog"), "ddddd"
If TodayDate <= LastUpdate Or TodayTime <= "06:00:00 AM" The
txtDateDisplay = DMax("[UpdateDate]", "DailyUpdateLog"
Exit Su
End I
'Call Subprocedure to re-populate Daily Dat
Call UpdateDat
End Su
Does anyone have any idea on what I can try to sovle the compile errors
Thanks
Tim
I'm running NT but will be converting to XP shortly. I have an Access 97 DB that, when I ask someone who's running XP (and Access 97) to open it, they receive a Compile Error "Can't find project or library"
Here's the code from the class module - it stops at "Format" after "TodayDate"
Private Sub CheckDate(
Dim LastUpdate As Dat
Dim TodayDate As Dat
Dim TodayTime As Dat
'Check for Last Update. Allow only one update every 24 hours and only after 6:00AM
TodayDate = Format(Now(), "ddddd"
TodayTime = Format(Now(), "ttttt"
LastUpdate = Format(DMax("[UpdateDate]", "DailyUpdateLog"), "ddddd"
If TodayDate <= LastUpdate Or TodayTime <= "06:00:00 AM" The
txtDateDisplay = DMax("[UpdateDate]", "DailyUpdateLog"
Exit Su
End I
'Call Subprocedure to re-populate Daily Dat
Call UpdateDat
End Su
Does anyone have any idea on what I can try to sovle the compile errors
Thanks
Tim