Here is the sfrmSOHeader On Current Code;
Expand|Select|Wrap|Line Numbers
- Dim ParentDocName As String
- On Error Resume Next
- ParentDocName = Me.Parent.Name
- If err <> 0 Then
- GoTo Form_Current_Exit
- Else
- On Error GoTo Form_Current_Err
- Me.Parent![sfrmSOLine].Requery
- End If
- DoCmd.SetWarnings False
- If Me.OrderStatus.Value = -1 Then
- Me.Form.AllowAdditions = False
- Me.Form.AllowDeletions = False
- Me.Form.AllowEdits = False
- Me.cmdDeleteHeader.Enabled = False
- Me.cmdProcessHeader.Enabled = False
- Me.cmdSave.Enabled = False
- [Forms]![frmCustomerOrderForm]![cmdImportCSVFile].Enabled = False
- [Forms]![frmCustomerOrderForm]![cmdAddNewItem].Enabled = False
- [Forms]![frmCustomerOrderForm]![sfrmSOLine].Form.AllowAdditions = False
- [Forms]![frmCustomerOrderForm]![sfrmSOLine].Form.AllowDeletions = False
- [Forms]![frmCustomerOrderForm]![sfrmSOLine].Form.AllowEdits = False
- [Forms]![frmCustomerOrderForm]![sfrmSOLine]![cmdDeleteRec].Enabled = False
- Else
- Me.Form.AllowAdditions = True
- Me.Form.AllowDeletions = True
- Me.Form.AllowEdits = True
- Me.cmdDeleteHeader.Enabled = True
- Me.cmdProcessHeader.Enabled = True
- Me.cmdSave.Enabled = True
- [Forms]![frmCustomerOrderForm]![cmdImportCSVFile].Enabled = True
- [Forms]![frmCustomerOrderForm]![cmdAddNewItem].Enabled = True
- [Forms]![frmCustomerOrderForm]![sfrmSOLine].Form.AllowAdditions = True
- [Forms]![frmCustomerOrderForm]![sfrmSOLine].Form.AllowDeletions = True
- [Forms]![frmCustomerOrderForm]![sfrmSOLine].Form.AllowEdits = True
- [Forms]![frmCustomerOrderForm]![sfrmSOLine]![cmdDeleteRec].Enabled = True
- End If
Expand|Select|Wrap|Line Numbers
- 'Sets the sfrmSOHeader.AllowDetails to True and the Visibility of Fields to True / False
- 'Sets sfrmSOHeader to move to NewRecord
- Me.sfrmSOHeader.Form.AllowAdditions = True
- Me.sfrmSOHeader.Form.AllowDeletions = True
- Me.sfrmSOHeader.Form.AllowEdits = True
- [Forms]![frmCustomerOrderForm]![sfrmSOHeader].Visible = True
- [Forms]![frmCustomerOrderForm]![sfrmSOLine].Visible = False
- keybox.Visible = False
- lblOrderLine.Visible = False
- cmdImportCSVFile.Visible = False
- cmdAddNewItem.Visible = False
- cmdGeneratePOrders.Visible = False
- cmdOrderMaintenance.Visible = False
- DoCmd.GoToControl "sfrmSOHeader"
- DoCmd.GoToRecord , , acNewRec
- [Forms]![frmCustomerOrderForm]![sfrmSOHeader]![OrderDate].SetFocus
- 'Reset the List lstCustOrderNo Field
- Me.lstCustOrderNo.Value = ""
p.s. The is more like a nuisance than an actual error but have trie many times to get rid but feel the problem maybe due to the allowadditions, deletions and edits code.