M
MFulton via AccessMonster.com
Greetings, I am still trying to learn access, I did not write this database,
however I am in charge of it. This database is in access97. Every time I
try to open this report I recieve the error listed above. I did do some
research from other's same problem, but have been unable to resolve it.
Below is the code for the report I am trying to run. Anyone's help is
greatly appreciated, and thanks in advance for you responses.
Private Sub Command4_Click()
On Error GoTo Cmd04_err
DoCmd.OpenReport rt_report, acPreview
Start_Date.BackColor = 16777215
End_Date.BackColor = 16777215
Cmd04_end:
Single_Date = False
Exit Sub
Cmd04_err:
MsgBox Err.Description
End Sub
Private Sub End_Date_GotFocus()
field = 1
End_Date.BackColor = 16627125
Start_Date.BackColor = 16777215
End Sub
Private Sub Form_Unload(Cancel As Integer)
Single_Date = False
End Sub
Private Sub Start_Date_GotFocus()
field = 0
Start_Date.BackColor = 16627125
End_Date.BackColor = 16777215
End Sub
Private Sub Form_Load()
Calendar.Day = Day(Date)
Calendar.Month = Month(Date)
Calendar.Year = Year(Date)
field = 0
If Single_Date = True Then
End_Date.Enabled = False
End If
End Sub
however I am in charge of it. This database is in access97. Every time I
try to open this report I recieve the error listed above. I did do some
research from other's same problem, but have been unable to resolve it.
Below is the code for the report I am trying to run. Anyone's help is
greatly appreciated, and thanks in advance for you responses.
Private Sub Command4_Click()
On Error GoTo Cmd04_err
DoCmd.OpenReport rt_report, acPreview
Start_Date.BackColor = 16777215
End_Date.BackColor = 16777215
Cmd04_end:
Single_Date = False
Exit Sub
Cmd04_err:
MsgBox Err.Description
End Sub
Private Sub End_Date_GotFocus()
field = 1
End_Date.BackColor = 16627125
Start_Date.BackColor = 16777215
End Sub
Private Sub Form_Unload(Cancel As Integer)
Single_Date = False
End Sub
Private Sub Start_Date_GotFocus()
field = 0
Start_Date.BackColor = 16627125
End_Date.BackColor = 16777215
End Sub
Private Sub Form_Load()
Calendar.Day = Day(Date)
Calendar.Month = Month(Date)
Calendar.Year = Year(Date)
field = 0
If Single_Date = True Then
End_Date.Enabled = False
End If
End Sub