Hi, MajP. Sorry for the delay; I was called away for another project.
Your assessment of my database is accurate. I had set up the relationship pretty much the way you suggest and I can add new records. However, I cannot associate more than one Requisition with a given TicketNumber.
When I requery the ReqnWatch table, I get:
Run-time error 2115:
The macro or function set to the BeforeUpdate or ValidationRule property for this field is preventing RPP Tracking System from Saving the data in the field.
The DLATicketNum in the ReqnWatch table is not indexed or required. None of the fields on my form or subform have a validation rule. I tried the following code in the BeforeUpdate, AfterUpdate, and then with no code behind either event but still can't figure out how to fix this.
Private Sub TicketNum_AfterUpdate()
On Error GoTo Err_TicketNum_AfterUpdate
Dim Julian As String, Ser As String
If Trim(Forms![frmReqnWatch]![frmDLATicket].Form![TicketNum] & "") <> "" Then
Forms!frmReqnWatch!DLATicketNum = Forms![frmReqnWatch]![frmDLATicket].Form![TicketNum]
Julian = Forms!frmReqnWatch!JD
Ser = Forms!frmReqnWatch!Serial
Forms![frmReqnWatch]![frmDLATicket].Form![TicketNum].Undo
Forms!frmReqnWatch.Requery
Forms!frmReqnWatch.Filter = "[JD]='" & Julian & "' AND [Serial] = '" & Ser & "'"
Forms!frmReqnWatch.FilterOn = True
Forms!frmReqnWatch!cmdAllReqns.Visible = True
End If
Exit_TicketNum_AfterUpdate:
Exit Sub
Err_TicketNum_AfterUpdate:
MsgBox "Error #" & Err.Number & Chr(10) & Chr(13) & _
Err.Description, vbOKOnly, "RPP Tracking System"
End Sub