Good afternoon all,
I have a subreport (sbrptToDoList) on frmDashboard which has a field called TaskDesc. I have written some VBA code to open to a specific record from tblTasks on frmTaskInfo (linked by TaskID) on Double Click of field TaskDesc. This was working fine until recently when I added a new field (TaskPriorityID) to tblTasks - now frmTaskInfo opens up to a blank record when TaskDesc is double-clicked.
The Record Source of sbrptToDoList is as follows:
Code:
SELECT tblStatusTypes.StatusType, tblTaskTypes.TaskType, qryAddEllipsis.TaskDescEllipsis, qryAddEllipsis.TaskNotesEllipsis, tblTasks.TaskID, tblTasks.TaskDesc, tblUserTasks.UserID, tblUserTasks.OwnerStatus, tblTasks.TaskPriorityIDFROM tblTaskTypes INNER JOIN ((tblStatusTypes INNER JOIN (tblTasks INNER JOIN qryAddEllipsis ON tblTasks.TaskID = qryAddEllipsis.TaskID) ON tblStatusTypes.StatusTypeID = tblTasks.StatusTypeID) INNER JOIN tblUserTasks ON tblTasks.TaskID = tblUserTasks.TaskID) ON tblTaskTypes.TaskTypeID = tblTasks.TaskTypeID;
The Record Source of frmTaskInfo is as follows:
Code:
SELECT tblTasks.TaskID, tblTasks.TaskTypeID, tblTasks.StatusTypeID, tblTasks.TaskDesc, tblTasks.DateCompleted, tblTasks.OtherStatusType, tblTasks.TaskNotes, tblTasks.TaskTime, tblTasks.TaskPriorityID, tblUserTasks.UserTaskID, tblUserTasks.OwnerStatus, tblUsers.UserID, tblUsers.UserName, tblUsers.UserInitials, tblUsers.CalStartTime, tblUsers.CalName
FROM tblUsers INNER JOIN (tblTasks INNER JOIN tblUserTasks ON tblTasks.TaskID = tblUserTasks.TaskID) ON tblUsers.UserID = tblUserTasks.UserID;
The VBA code that I have to open frmTaskInfo to the specific record in sbrptToDoList (identified by TaskID) is as follows:
Code:
Private Sub TaskDesc_DblClick(Cancel As Integer)
DoCmd.OpenForm "frmTaskInfo", , , "TaskID=" & Me.txtTaskID.Value
End Sub
I'm not sure exactly what is going wrong now that I added the new field to tblTasks. I should also note that I have the Record Source of sbrptToDoList dynamically set via VBA to include a WHERE clause to filter based on OwnerStatus and StatusType, and that is working properly. When I include the code Debug.Print Me.txtTaskID.Value just before the DoCmd function in VBA it returns the correct TaskID.
Any help with this will be greatly appreciated!
EDIT: I added a copy of the database in case this is helpful.