Private Sub cmdAdd_Click()
On Error GoTo Err_cmdAdd_Click
DoCmd.GoToRecord , , acNewRec
Me.Text0 = DateID("明细表", "编号", Me.txtDate, 5, "X")
setFormCtlDefValue Me, "明细", "基数", "ID"
If Day(Date) > 20 Then
Me.保险起始月 = Month(DateAdd("m", 1, Date))
Me.保险年度 = Year(DateAdd("m", 1, Date)) & ""
Else
Me.保险起始月 = Month(Date) & ""
Me.保险年度 = Year(Date)
End If
Exit_cmdAdd_Click:
Exit Sub
Err_cmdAdd_Click:
MsgBox Err.Description
Resume Exit_cmdAdd_Click
End Sub
Private Sub cmdAdd_Click()
DoCmd.GoToRecord , , acNewRec
setFormCtlDefValue Me, "明细", "基数", "ID"
Me.Text0 = DateID("明细表", "编号", Me.txtDate, 5, "X")
If Day(Date) > 20 Then
Me.保险起始月 = Month(DateAdd("m", 1, Date))
Me.保险年度 = Year(DateAdd("m", 1, Date)) & ""
Else
Me.保险起始月 = Month(Date) & ""
Me.保险年度 = Year(Date)
End If
End Sub
这样?
总记录:2篇 页次:1/1 9 1 :