This article was previously published under Q319320
Moderate: Requires basic macro, coding, and interoperability skills.
Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
View products that this article applies to.
Private Sub Order_Details_Subform_Enter()
On Error GoTo Err_Order_Details_Subform_Enter
If IsNull(Me![OrderID]) Then
Me![OrderDate] = Date
Forms!Orders!OrderID.SetFocus
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Forms!Orders![Order Details Subform].SetFocus
End If
Exit_Order_Details_Subform_Enter:
Exit Sub
Err_Order_Details_Subform_Enter:
MsgBox Err.Description
Resume Exit_Order_Details_Subform_Enter
End Sub
Keywords: KB319320, kbprb, kberrmsg