Dim strSQL As String
strSQL = "insert into 表1(超期,详细档号,借阅人,所属部门,报告名称," _
& "勘号,档案号," _
& "备注信息,归还经手人," _
& "新图幅编号,旧图幅编号,图幅号类型," _
& "图件类别,图件完好程度,批准人," _
& "借阅数量,联系电话,预计借阅天数," _
& "借阅日期,应还日期) values('" & Me.超期 & "'," & Me.详细档号 & "'," & Me.借阅人 & "'," _
& "" & Me.所属部门 & "'," & Me.报告名称 & "'," & Me.勘号 & "'," & Me.档案号 & "'," _
& "" &
Me.备注信息 & "'," _
& "" &
Me.归还经手人 & "'," & Me.新图幅编号 & "'," _
& "" & Me.旧图幅编号 & "'," & Me.图幅号类型 & "'," _
& "" & Me.图件类别 & "'," & Me.图件完好程度 & "'," _
& "" & Me.批准人 & "'," & Me.借阅数量 & "," & Me.联系电话 & "," _
& "" & Me.预计借阅天数 & ",#"
& Me.借阅日期 & "#,#" & Me.应还日期 & "#)"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL '执行追加查询
DoCmd.SetWarnings True
Me.表1子窗体.Requery
MsgBox "追加成功!"
标红的都没有啊！当然出问题
