将 GotoRecord 方法更改为 RecordsetClone

问题描述

我需要将此代码中的 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));  

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）