把B数据库的REPORT表链接到A数据库中来.然后写命令按钮的代码:
用A数据库的data表更新B数据库的Report表,
更新字段为dDate nSID sPID sBedno sPName
sSex nSAge nDID nSDID,条件是两个表的
dDate和nSID字段值相同
docmd.runsql "update b,a set b.spid=a.spid,b.sbedno=a.sbedno,b.spname=a.spname,b.ssex=a.ssex,b.nsage=a.nsage,
b.ndid=a.ndid,b.nsdid=a.nsdid where b.nsid=a.nsid and b.ddate=a.ddate"
DoCmd.RunSQL "UPDATE sysdata INNER JOIN Report ON (sysdata.dDate=Report.dDate) AND " & _
"(sysdata.nSID=Report.nSID) SET Report.sPID = sysdata.sPID, Report.sBedno = sysdata.sBedno," & _
"Report.sPName = sysdata.sPName, Report.sSex = sysdata.sSex, Report.nSAge = sysdata.nSAge," & _
"Report.nDID = sysdata.nDID, Report.nSDID = sysdata.nSDID"
说明:表名data改成了sysdata
点击下载此附件
参考http://www.accessoft.com/bbs/showtopic.asp?ID=2982&BoardID=17 感谢两位原创
文件大的话,你只需按你的诉求做个简单的数据库模型上传,保留几条有代表性的记录和与之相关的基础表、查询或窗体,这样便于上传、直观且便于答问者测试;