回帖问题:

http://www.accessoft.com/bbs/showtopic.asp?id=15551

代   码:

Private Sub 追加_Click()
    Dim strSQL As String
    'E是文本型,F是数值型,G是日期型
    strSQL = "insert into 表1(E,F,G) values('" & Me.E & "'," & Me.F & ",#" & Me.G & "#)"
    DoCmd.SetWarnings False        '关闭系统提示语
    DoCmd.RunSQL strSQL            '执行追加查询
    DoCmd.SetWarnings True
    Me.sfrChild.Requery           '子窗体刷新
    MsgBox "追加成功!"
End Sub

附   件:

点击下载此附件

点击下载此附件（允许日期为空追加成功）

说   明:

第二个附件为2022年7月8日根据学员李锋需求，需要对追加查询允许日期为空的情况也能追加保存到表中，特此更正了一下附件，欢迎大家下载学习。

图   示: