[求助]一个窗体能否同时对两个表输入数据

hnyyly

具体内容是这样的，办公室电脑有一个主数据库，稽查所用的是一台笔记本，每天工作人员从主数据库将表中的数据导入到笔记本上，而表中的数据是完全的，稽查的只需要其中的一部份。

hnyyly

很实用,我就是不知道具体操作办法 ,也就是这个语句加到哪个地方,请告知,谢谢!

hnyyly

不是不学,我对语句特别没感觉,不会用,呵呵

hnyyly

怎么上传文件呀?

hnyyly

Option Compare Database

Option Explicit

Function dhAge(dtmBD As Date, Optional dtmDate As Date = 0) As Integer

If dtmDate = 0 Then dtmDate = Date

dhAge = DateDiff("yyyy", dtmBD, dtmDate) + (dtmDate < DateSerial(Year(dtmDate), Month(dtmBD), Day(dtmBD)))

End Function

上面是我原来里面的东西,需不需要删除呀,谢谢

hnyyly

CurrentDb().Execute "INSERT INTO 新表 ( a, c, d, e ) SELECT a, c,d,e FROM 原表;"提示出错呀

hnyyly

运行错误3134

hnyyly

Private Sub Form_AfterUpdate()

CurrentDb().Execute "Delete * from 稽查征费"

CurrentDb().Execute "INSERT INTO 稽查征费 ( 年度, A(运), 月份, 业户, 车, 号, 道路运输证号, 备注, 审验记录 ) SELECT 年度, A(运), 月份, 业户, 车, 号, 道路运输证号, 备注, 审验记录 FROM 征费;"

End Sub提示       CurrentDb().Execute "INSERT INTO 稽查征费 ( 年度, A(运), 月份, 业户, 车, 号, 道路运输证号, 备注, 审验记录 ) SELECT 年度, A(运), 月份, 业户, 车, 号, 道路运输证号, 备注, 审验记录 FROM 征费;"出错,可以告知我是什么原因吗,谢谢

hnyyly

这个语句可以完成一个窗体输入两个表都有数据保存,但其中有一个问题,就是稽查征费里面的数据总是长一条,也就是窗体输入的最后的数据不能保存进去,请教