我有4张桌子:
- 表OrderA链接文本文件中的外部数据
- 表OrderB链接文本文件中的外部数据
- 表OrderDetail是合并表2的OrderA和OrderB(OrderA和追加OrderB)
- 表RecTable
表1和表2中的数据发生变化。如果将数据添加到表1和2:同样将其添加到表3。
如果表1和表2中的数据被更新,表3也将被更新。
如果从表1和表2中删除数据,则将其从表3中删除并添加到表4。
ِ Dlookup对于这项工作而言很低。我该如何使用记录集?
编辑: 我写这段代码,但不能在删除中工作。
运行时错误3135 JOIN操作中的语法错误。
Dim strSqlAddtoHazf As String
Dim strFindDelete As String
Dim rsOrderHazf As DAO.Recordset
strFindDelete = "SELECT IDPhotoO,jensO,vazeiatO,dateaddO,customeridO,orderidO,usernameO,tedadO,FileNameO FROM
OrderDetail LEFT JOIN RataPhotoOrderDetail ON (OrderDetail.IDPhotoO =
RataPhotoOrderDetail.id) WHERE (RataPhotoOrderDetail.id Is Null and
OrderDetail.IDGharardadO Is Null);"
strSqlAddtoHazf = " insert into OrderHazf (IDPhotoH,jensH,vazeiatH,dateaddH,customeridH,orderidH,usernameH,tedadH,FileNameH ) " &
strFindDelete
DoCmd.SetWarnings False
DoCmd.RunSQL strSqlAddtoHazf
DoCmd.SetWarnings True
strFindDelete = "SELECT IDPhotoO,FileNameO FROM OrderDetai LEFT JOIN OrderHazf ON (OrderDetail.IDPhotoO = orderHazf.IDPhotoH) WHERE (Orderhazf.IDPhotoH Is Null and OrderDetail.IDGharardadO Is Null);"
Set rsOrderHazf = CurrentDb().OpenRecordset(strFindDelete)
Do Until rsOrderHazf.EOF()
rsOrderHazf.Delete
Loop
' '''