This is an Intermittent error that is occuring with one of my databases. It appears to be caused by some type of corruption in some records of the task table which is a validation table for the time table task field. When this occurs, I have to identify the time records which contains the bad task value, create a new task record for the same value, switch all existing time entries with this task value over to the new task record and then delete the old task record.
Compress and Repair do not fix this problem, exporting the entire task table to a text file and re-importing it back in does not seem to help either.
The problem has re-occurred on several records and reciently begin occuring on new records added to the task table.COMPLETE ERROR MESSAGE
———————-
Run-time error ‘7799’
This form or report is based on a query that exceed the limit for data in a single record.
Exclude any unnecessary fields from the query or change some of the field types to memo in the original tables.
CODE THAT IS EXECUTING
———————–
Private Sub cmdViewEditYourTimeLog_Click()
If IsNull(Forms![frmMain]![cbxDateToSelect]) Then
‘DoCmd.OpenQuery “qryYourTimeLogAllDates”,
acViewNormal, acEdit
DoCmd.OpenForm “frmEntry”,
acNormal, “qryYourTimeLogAllDates”
Else
‘DoCmd.OpenQuery “qryYourTimeLogForDate”,
acViewNormal, acEdit
>>> DoCmd.OpenForm “frmEntry”,
acNormal, “qryYourTimeLogForDate”
End If
End Sub
SQL FROM QUERY
—————
SELECT tblTime.dFridayDate, tblTime.cTask, tblTime.nHours, tblTime.cName, tblTime.cComments
FROM tblTime
WHERE (((tblTime.dFridayDate)=[Forms]![frmMain]![cbxDateToSelect]) AND ((tblTime.cName)=[Forms]![frmMain]![cCurrentUser]))
ORDER BY tblTime.cTask;
