Private Sub TCRID_DblClick(Cancel As Integer)
Dim rs As RecordSet
Set rs = CurrentDb.OpenRecordSet("tblTelephoneCallReport", dbOpenDynaset)
rs.FindFirst "[TCRID] =" & Me.TCRID
Forms.frmTelephoneCallReport.Form.Recordset.Bookmark = rs.Bookmark
End Sub
|