Recordsource Recordset bookmark Option Compare Database Private Sub Form_Close() 'DoCmd.Quit acQuitSaveNone 'Application.Quit acQuitSaveNone End Sub Private Sub Form_Load() 'DoCmd.RunCommand acCmdAppMinimize Set Me.SUB.Form.Recordset = Me.Recordset End Sub Private Sub Image13_Click() Me.Recordset.MoveFirst Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image14_Click() On Error Resume Next Me.Recordset.MovePrevious Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image15_Click() 'Forms!main.Recordset.MoveNext 'Forms!main!SUB.Form!CM.SelLength = 0 ' On Error Resume Next Me.Recordset.MoveNext Me!SUB.Form!CM.SelLength = 0 ' 'Me.Recordset.MoveNext 'Me.SUB.Form.CM.SelLength = 0 End Sub Private Sub Image16_Click() Me.Recordset.MoveLast Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image19_Click() On Error Resume Next Me.SUB.SetFocus End Sub Private Sub srch_AfterUpdate() 'Me.SUB.SetFocus If Nz(Me.srch) "" Then If IsNull(DLookup("CM", "Main", "CM