问如何批量增加序号后将序号控制表的字段值进行相应的更新！！

yanwei82123300

请问如何批量增加序号后将序号控制表的字段值进行相应的更新！！
表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

江南春

不错，可以参考

roych

更新完之后，用MoveLast即可获取。
Dim rs As New adodb.Recordset
Dim lMax As Long
    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
        .MoveLast
        lMax = rs(0)
        .Close
    End With
    Set rs = Nothing
    Docmd.SetWarnings False
    DoCmd.RunSQL "update tblMAX_MO set MO_NUMBER=" & lMax
    MsgBox "MO生成完成，其中最大值是：" & lMax
   
End Sub

yanwei82123300

roych 发表于 2016-3-3 14:19
更新完之后，用MoveLast即可获取。
Dim rs As New adodb.Recordset
Dim lMax As Long

谢谢老师帮助！！我使用一个笨办法，建立两个查询：query1 用于删除tblMAX_MO中的数值;query2将tbl生产计划明细表中的最大值追加进tblMAX_MO，。还是您的代码规矩。

yanwei82123300

roych 发表于 2016-3-3 14:19
更新完之后，用MoveLast即可获取。
Dim rs As New adodb.Recordset
Dim lMax As Long

老师如果要使用下面的代码呢！如何在更新最大值？谢谢
下面的代码是将字段MO的值改变成MO-数字，例如MO-1603210
谢谢

Private Sub Command0_Click()
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim n As Long
Dim lMax As Long
Set rs = CurrentDb.OpenRecordset("select * from tbl生产计划明细表")
Set rs1 = CurrentDb.OpenRecordset("select * from tblMAX_MO")
rs1.MoveFirst
n = rs1("MO_NUMBER")
rs.MoveFirst
Do While rs.EOF = False
    rs.Edit
    rs("MO") = "MO-" & rs("MO") & n + 1
    rs.Update
    rs.MoveNext
    n = n + 1
   
Loop

Set rs = Nothing

'DoCmd.OpenQuery "query2"
'DoCmd.OpenQuery "query4"
'MsgBox "MO生成完成"
End Sub

roych

yanwei82123300 发表于 2016-3-3 15:13
老师如果要使用下面的代码呢！如何在更新最大值？谢谢
下面的代码是将字段MO的值改变成MO-数字，例如MO- ...

没问题的吧？最大值反正都在最后一行。只是需要修改字段类型罢了。前面的是数值型，修改后的应该是文本型才能完成记录集部分。

yanwei82123300

您是说修改这个吗？
Dim lMax As Long
修改成
Dim IMax as string

yanwei82123300

roych 老师谢谢我已经修改完成！！谢谢您的帮助！！

yanwei82123300

roych 老师谢谢我已经修改完成！！谢谢您的帮助！！