Private Sub cmdAdd_Click()
On Error GoTo Err_cmdAdd_Click

    DoCmd.GoToRecord , , acNewRec
    Me.Text0 = DateID("明细表", "编号", Me.txtDate, 5, "X")
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"
'    setFormCtlDefValue Me, "fd", "saleDate,company,weight", "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

End Sub