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

hnyyly

我建立了一个窗体,本来这个窗体是对应一个数据表的,但我想一个窗体对应两个数据表,也就是说,对一个窗体输入数据,那两个数据表内都有数据保存进去,请大家帮帮忙,谢谢!

fjwen

学习了.

hnyyly

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

Trynew

A(运)：字段名最好不要用空格、括号等特殊符号，可以用下画连线符、中文全角括号代替，否则容易出错。如仍有错，上传文件看看。

海狸先生

上传文件，不要用快速回复，点上面的回复贴子

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

运行错误3134

hnyyly

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

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

怎么上传文件呀?