Save New Record - Tried all from prior posts

[sara]

I have a simple app, and I'm trying to add Orders.

I have tblOrders and tblOrderDetails .

First, the user selects the customer, then "orders", "new Order"

The frmNewOrder simply assures the user she is on the right customer
and sets up an orderKey and orderNumber.

The user enters "Drop Off date", to make the form dirty, and to have
Access assign an OrderID.

Then the user presses "Add Services to Order".

The problem is that the Order record isn't saved. I've looked at prior
posts from as far back as 2001 and have tried all suggestions:
me.dirty = true
doCmd.RunComman d acCmdSaveRecord
Me.refresh
If me.dirty then
me.dirty=false
I have set the focus to the other control (misc notes) where the user
could enter date.

Nothing works. Some of these attempts have yielded the "can't add -
need a related record in tblCustomer" type message, and others have
taken me to the frmSelectServic e, but have not saved the record.

I am having the same problem on frmSelectServic e. It's bee 2.5 hours
now - maybe someone can help??

Code below:

Private Sub cmdAddService_C lick()
On Error GoTo Err_cmdAddServi ce_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim lngOrderID As Long
Dim dtmDropOffDate As Date

dtmDropOffDate = Me.txtDropOff
'
' ???*** Prefer to check here, but how???
' This code is not executed it drop off date is empty - only when it's
been filled in
' the error code executes when drop off date is empty
' If drop off date is empty, tell the user to put in the date
' Date is required to get the system to assign an Order ID and save
the record
If IsNull(Me.txtDr opOff) Then
MsgBox "Please enter the drop off date for the items on this
order"
DoCmd.GoToContr ol (txtDropOff)
GoTo Exit_cmdAddServ ice_Click
End If

' Save the order before opening the "add services" form
' Need to force the save - not happening automatically
' This code saves the new record before going to select services form
' If Me.Dirty Then
' Me.Dirty = False
' End If

Me.txtMiscNotes .SetFocus
Me.Dirty = True

DoCmd.RunComman d (acCmdSaveRecor d)

' Me.Refresh

lngOrderID = Me.txtOrderID
stDocName = "frmSelectServi ce"

stLinkCriteria = "[OrderID]= " & lngOrderID

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdAddServ ice_Click:
Exit Sub

Err_cmdAddServi ce_Click:

' If drop off date is empty, tell the user to put in the date
' Date is required to get the system to assign an Order ID and save
the record
If Err.Number = 94 Then
MsgBox "Please enter the drop off date for the items on this
order"
Me.txtDropOff.S etFocus
GoTo Exit_cmdAddServ ice_Click
End If

MsgBox Err.Number & " " & Err.Description
Resume Exit_cmdAddServ ice_Click

End Sub

MANY thanks.
sara