ms-access - 将 GotoRecord 方法更改为 RecordsetClone

Question

我需要将此代码中的 GotoRecord 更改为 RecordsetClone 方法，因为我有 GotoRecord 的问题，它毁了我的一切

Dim sql As DAO.Recordset
Set sql = CurrentDb.OpenRecordset("TblPoMaterials", dbOpenDynaset)
DoCmd.SetWarnings False
DoCmd.GoToRecord , , acFirst    ' THE PROBLEM IS HERE
For m = 1 To T8

With sql
.AddNew
!PONumber = T7
!MaterialCode = Code1
!MaterialName = T1
!ProductionDate = T6
!Shift = "none"
!cons = T2
!AdditionPercent = Text324
!MaterialType = Text300
!OrderQty = T3
.Update
End With
DoCmd.GoToRecord , , acNext 

Next m
MsgBox "Done", vbInformation, "Saved successfully"

带有此代码的表单是未绑定的连续表单

SELECT Bom.productcode, Bom.code, Bom.Item, Bom.cons, Bom.BomNumber, [Item Names].Type, Bom.Remarks FROM [Item Names] INNER JOIN Bom ON [Item Names].code = Bom.code WHERE (((Bom.productcode)=Forms!FrmNewPo!t0) And ((Bom.BomNumber)=Forms!FrmNewPo!Bom));  

标签： ms-accessrecordset