Hi im not sure what it is you need.
Thanks
Mark
I think this is related to the ordersubform
Private Sub cmdAddNewRecord_Click()
On Error GoTo Err_cmdAddNewRecord_Click
DoCmd.GoToRecord , , acNewRec
Forms![Add an Order and Details]![Order Details Subform].Form.Requery
Forms![Add an Order and Details]![OrderSubTotal].Requery
Forms![Add an Order and Details]![OrderTotal].Requery
Exit_cmdAddNewRecord_Click:
Exit Sub
Err_cmdAddNewRecord_Click:
MsgBox Err.Description
Resume Exit_cmdAddNewRecord_Click
End Sub
and this is the addneorder form.
Err_cmdCloseOrderForm_Click:
MsgBox Err.Description
Resume Exit_cmdCloseOrderForm_Click
End Sub
Private Sub Delete_Current_Order_Click()
On Error GoTo Err_Delete_Current_Order_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.GoToRecord acDataForm, "Add Order and Details"
Exit_Delete_Current_Order_Click:
Exit Sub
Err_Delete_Current_Order_Click:
MsgBox Err.Description
Resume Exit_Delete_Current_Order_Click
End Sub
Private Sub Print_Click()
On Error GoTo Err_Print_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection
Exit_Print_Click:
Exit Sub
Err_Print_Click:
MsgBox Err.Description
Resume Exit_Print_Click
End Sub
Private Sub cmdInvoice_Click()
On Error GoTo Err_cmdInvoice_Click
Dim stDocName As String
Dim stlinkcriteria As String
stDocName = "Report1" '/ Replace my report name with "Invoice"..
stlinkcriteria = "[CustomerID]=" & Me.CustomerID & "And [Orderid]=" &
Me.OrderID
DoCmd.OpenReport stDocName, acPreview, , stlinkcriteria
Exit_cmdInvoice_Click:
Exit Sub
Err_cmdInvoice_Click:
MsgBox Err.Description
Resume Exit_cmdInvoice_Click
End Sub
Private Sub Command121_Click()
On Error GoTo Err_Command121_Click
Dim stDocName As String
Dim MyForm As Form
stDocName = "Add an Order and Details"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_Command121_Click:
Exit Sub
Err_Command121_Click:
MsgBox Err.Description
Resume Exit_Command121_Click
End Sub
Private Sub Command122_Click()
On Error GoTo Err_Command122_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection
Exit_Command122_Click:
Exit Sub
Err_Command122_Click:
MsgBox Err.Description
Resume Exit_Command122_Click
End Sub
Private Sub Command123_Click()
On Error GoTo Err_Command123_Click
Dim stDocName As String
stDocName = "Invoice"
DoCmd.OpenReport stDocName, acPreview
Exit_Command123_Click:
Exit Sub
Err_Command123_Click:
MsgBox Err.Description
Resume Exit_Command123_Click
End Sub
Is this what I need to edit. I havent a clue where
Regards
Mark