VBA访问更新同一表的多条记录

我想在按下按钮时更新并在同一个表中插入记录。VBA访问更新同一表的多条记录

1st。我将“NoLot”更新为“0”，其中noSoumisson = X

2nd。我想用新的NoSoumission在同一张表上插入/复制新记录。

只有当我尝试将NoLot更改为“0”时才会出现写入错误冲突。

为什么？我想用新字段对记录进行复制/修订，同时我想从上一条记录中删除另一个字段。

Dim strNoLot As String 
    Dim strSQLNoLotDelete As String 

    strNoLot = DLookup("tblSoumissionDetails.[NoLot]", "tblSoumissionDetails", "_ 
    & "tblSoumissionDetails.NoSoumission= '" & Me.NoSoumission & "'") 

    strSQLNoLotDelete = "UPDATE tblSoumissionDetails " _ 
    & " SET tblSoumissionDetails.NoLot = '0' " _ 
    & " WHERE tblSoumissionDetails.NoSoumission= '" & Me.NoSoumission & "'" 

    DoCmd.RunSQL strSQLNoLotDelete

THEN ....在同一个SUB！内！

Dim strSQLCopie As String 

    strSQLCopie = "INSERT INTO tblSoumissionDetails (NoSoumission, NoLot, IDListe, " _ 
    & "Createur, IDEmploye, [no client], [nom liste], [date], [no contact]) " _ 
    & " SELECT '" & strNumeroAutoRev & "' AS NoSoumission, '" & strNoLot & "' " _ 
    & " AS NoLot, tblSoumissionDetails.IDListe, '" & strUsername & "' , " _ 
    & " tblSoumissionDetails.IDEmploye, " _ 
    & " tblSoumissionDetails.[no client] , tblSoumissionDetails.[nom liste], " _ 
    & "'" & date & "' , tblSoumissionDetails.[no contact] " _ 
    & " From tblSoumissionEncours, tblSoumissionDetails " _ 
    & " WHERE (((tblSoumissionDetails.NoSoumission)= '" & Me.NoSoumission & "'));" 

    DoCmd.RunSQL strSQLCopie

来源

2016-02-13 Reemi

什么是你的问题？什么是错误？ – Parfait

很好地解决加入这个我的问题......

Me.Dirty = False

来源

2016-02-13 18:28:51 Reemi

VBA访问更新同一表的多条记录

回答

相关问题