Access追加查询(初学者一看就会)，Access对文本型、数值型、日期型追加查询的示例

时　间:2012-06-07 09:11:36
作　者:风行   ID：16058  城市：江阴
摘　要:zhg:老师好!请教我如何把主窗体数据向子窗体填充相同数据，比如向子窗体填充相同编码，填充序号。 
正　文:

回帖问题:

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日根据学员李锋需求，需要对追加查询允许日期为空的情况也能追加保存到表中，特此更正了一下附件，欢迎大家下载学习。

图   示: