|
3#
楼主 |
发表于 2013-4-2 17:14:10
|
只看该作者
不好意思,例子比较大不好放,我把语句放上来。
DoCmd.RunSQL "INSERT INTO 船舶审核计划临时表 ( 船舶名称, 管理公司, DOC证书号, SMC证书号, 船舶种类, 船籍港, 有效期, 发证日期 ) SELECT 体系船舶一览表.船舶名称, 体系公司一览表.公司名称, 体系船" & _
"舶一览表.DOC编号, 体系船舶一览表.SMC编号, 体系船舶一览表.船舶种类, 体系船舶一览表.船籍港, 体系证书一览表.有效期, 体系证书一览表.发证日期 FROM ((体系船舶一览表 INNER JOIN 体系" & _
"公司一览表 ON 体系船舶一览表.DOC编号 = 体系公司一览表.DOC编号) INNER JOIN 体系证书一览表 ON 体系船舶一览表.SMC编号 = 体系证书一览表.编号) INNER JOIN 船舶SMS审核计划表 ON 体系" & _
"船舶一览表.船舶名称 = 船舶SMS审核计划表.船舶名称 WHERE (((Date()-Max([计划年月]))>90) AND ((体系船舶一览表.有效)=True) AND (((DateDiff('d',[发证日期],Now()))<1098 And (DateDiff('d',[发证日期],Now()))>732) OR " & _
"((DateDiff('d',Now(),[有效期]))<90 And (DateDiff('d',Now(),[有效期]))>0)));"
|
|