无非是追加一条新纪录嘛，在按钮的单击事件中写：
Dim ssql As String
Dim rs As New ADODB.Recordset
Dim i As Long
ssql = "select * from 挂靠信息表"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
For i = 1 To rs.Fields.Count - 1
rs.Fields(i).Value = Me.Controls(rs.Fields(i).Name).Value
if rs.Fields(i).Name="合同开始时间" then rs.Fields(i).Value = DateAdd("d",1,Me.Controls("合同结束日期").Value)
if rs.Fields(i).Name="合同结束时间" then
rs.Fields(i).Value = DateAdd("d",1,Me.Controls("合同结束日期").Value)
rs.Fields(i).Value = DateAdd("y",1,rs.Fields(i).Value)
end if
Next
rs.Update
rs.Close
Set rs = Nothing
DoCmd.GoToRecord , , acLast
MsgBox "默认续约1年！"
