帮我把两个单击事件的代码合到一起，谢谢！

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