Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
'年度、月度、提交审核、关闭单据四个控件的事件已通过SetForm加载
Call SetForm(Me.Form, Me.frm_销售订单子窗体.Form)
End Sub
Private Sub 新增_Click()
Dim num As String
Me.年度.SetFocus
'保存控件值
num = BeforeInsertTB(Me.Form, "销售订单")
'追加tbl单据表
Call InsertTB("tbltbl单据表", "单据ID", Me.Form, Me.frm_销售订单子窗体.Form)
DoEvents
'还原控件值
Call AfterInsertTB(Me.Form, num)
'追加采购计划表
Call InsertTB("tbl销售订单", "销售订单ID", Me.Form, Me.frm_销售订单子窗体.Form)
End Sub
Private Sub 修改_Click()
Dim str As String
Me.年度.SetFocus
'保存控件值
' str = Me.调整事由.Value
'更新tbl单据表
Call UpdateTB("tbltbl单据表", "单据ID", Me.Form, Me.frm_销售订单子窗体.Form)
DoEvents
'还原控件值
' Me.调整事由.Value = str
'更新采购计划表
Call UpdateTB("tbl销售订单", "销售订单ID", Me.Form, Me.frm_销售订单子窗体.Form)
End Sub
Private Sub 删除_Click()
Dim id As Long
Me.年度.SetFocus
'保存控件值
id = Me.单据ID.Value
'删除采购计划表
Call DeleteTB("tbl销售订单", "销售订单ID", Me.Form, Me.frm_销售订单子窗体.Form)
DoEvents
'还原控件值
Me.单据ID.Value = id
'删除tbl单据表
Call DeleteTB("tbltbl单据表", "单据ID", Me.Form, Me.frm_销售订单子窗体.Form)
End Sub
Private Sub 编辑明细_Click()
DoCmd.OpenForm "frm_销售订单明细主窗体", , , , , , Me.单据ID.Value
End Sub
Private Sub 单位ID_AfterUpdate()
Me.联系人.Value = Me.单位ID.Column(3)
End Sub