I am looking at an old Access App and am way in over my head
I am getting the error
The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data.
When I look at the module I see there is a report trying to open which calls a query. When I try to open the report, nothing happens. When I try to open the query, it opens but there is no data.
I am really lost here. Any suggestions?
Here is the code for the module....
Private Sub CmdPrintInterim_Click()
On Error GoTo Err_CmdPrintInterim_Click
Dim x As Integer
Dim objcls As clsRecordedPayments
Set objcls = New clsRecordedPayments
objcls.ReprintUrgencies x, True
ReportType = 1
If x > 0 Then
DoCmd.OpenReport "rptUrgency", acViewNormal, , "Processed = False"
Else
MsgBox "There are no Payments to Process."
End If
Me!SumOfAmount = DSum("Amount", "tblUrgencyProcessing")
Me!CountOfPayments = DCount("AuthNumber", "tblUrgencyProcessing")
Exit_CmdPrintInterim_Click:
Exit Sub
Err_CmdPrintInterim_Click:
MsgBox Err.Description
Resume Exit_CmdPrintInterim_Click
End Sub
I am getting the error
The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data.
When I look at the module I see there is a report trying to open which calls a query. When I try to open the report, nothing happens. When I try to open the query, it opens but there is no data.
I am really lost here. Any suggestions?
Here is the code for the module....
Private Sub CmdPrintInterim_Click()
On Error GoTo Err_CmdPrintInterim_Click
Dim x As Integer
Dim objcls As clsRecordedPayments
Set objcls = New clsRecordedPayments
objcls.ReprintUrgencies x, True
ReportType = 1
If x > 0 Then
DoCmd.OpenReport "rptUrgency", acViewNormal, , "Processed = False"
Else
MsgBox "There are no Payments to Process."
End If
Me!SumOfAmount = DSum("Amount", "tblUrgencyProcessing")
Me!CountOfPayments = DCount("AuthNumber", "tblUrgencyProcessing")
Exit_CmdPrintInterim_Click:
Exit Sub
Err_CmdPrintInterim_Click:
MsgBox Err.Description
Resume Exit_CmdPrintInterim_Click
End Sub