' Add/Update Detail Record.
If Me.wOdID > 0 Then
UpdateDtlRcd
Else
WriteDtlRcd
End If
' Set form for new item entry.
ClearEntryFields
<---- The 'ClearEntryFields' subroutine is the step that appears to be bypassed when debug is off.
DoCmd.Requery qryOrdersDtl
End Sub
------------------------------------------------------
Sub ClearEntryFields()
Me.wOdID = 0
Me.wItemDesc.Enabled = True
Me.wItemDesc.Locked = False
Me.wItemDesc = ""
Me.wItemDesc.SetFocus
Me.CmdRequery.Enabled = True
Me.wItemCde.Visible = False
Me.wItemType.Visible = False
Me.wInStock.Visible = False
Me.wInStock.Value = 0
Me.wCName.Enabled = True
Me.wCName.Locked = False
Me.wCName.Visible = False
Me.wCNamePhoto.Picture = ""
Me.wQty.Visible = False
Me.wQty.Value = Null
Me.wPkgType.Visible = False
Me.wPkgType.Value = Null
Me.wRxPhone.Visible = False
Me.wRxPhone.Value = Null
Me.wRxName.Visible = False
Me.wRxName.Value = Null
Me.CmdRequeryRx.Enabled = False
Me.CmdRequeryRx.Visible = False
Me.wRxNotes.Visible = False
Me.wRxNotes.Value = Null
Me.CmdAdd.Enabled = False
Me.CmdAdd.Caption = "Add/Update"
Me.CmdCancel.Enabled = False
Me.CmdDelete.Enabled = False
Me.CmdExit.Enabled = True
Me.TxtLastTime.Visible = False
End Sub