|
请问如何批量增加序号后将序号控制表的字段值进行相应的更新!!
表tblMAX_MO用来记录最大的序号(MO)
表tbl生产计划明细表是生产明细
下面的代码是追加MO序号,通过表tblMAX_MO最大的序号(MO)+1
现在有一个问题如何将表tblMAX_MO的字段值也相应的更新,取表tbl生产计划明细表,字段MO的最大号?谢谢
Private Sub Command0_Click()
Dim rs As New adodb.Recordset
Dim i As Long
Dim sSQL As String
i = DLookup("MO_NUMBER", "tblMAX_MO")
sSQL = "select Mo from tbl生产计划明细表"
With rs
.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not .EOF
rs.Fields(0) = i
.MoveNext
i = i + 1
Loop
.UpdateBatch
.Close
End With
Set rs = Nothing
MsgBox "MO生成完成"
End Sub
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|