步长值的具体运用的问题

运用“平台”所做的系统中已经能检测到不希望重复的字段，但就是不能解决“步长值”的问题，代码如下：Option Compare Database

Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
    Select Case Button
    Case "保存"
        cmd_Save
    Case "关闭"
        DoCmd.Close
    End Select
End Sub

Private Sub cmd_Save()
    Dim rst As DAO.Recordset
    Dim i As Integer
    
    If IsNull(Me.ygxm) Then
        MsgBox "请输入员工姓名!", vbCritical, "提示："
        Me.ygxm.SetFocus
        Exit Sub
    End If

    Me.Refresh
 
    If Acchelp_StrDataIsExist("tblCodeyg", "ygxm & pai", Me.ygxm & Me.pai) = True Then
       MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告"
       Me.pai.SetFocus
       Exit Sub
    End If

    If MsgBox("您确认要保存吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
      
       Set rst = CurrentDb.OpenRecordset("tblCodeyg", dbOpenDynaset)
      
        For i = 0 To gongxu.Value
        rst.AddNew
        rst("ygId") = acchelp_autoid("Y", 2, "tblCodeyg", "ygId")
        rst("ygxm") = Me.ygxm
        rst("pai") = Me.pai
        rst("gongxu") = 1 + i
        rst.Update
        rst.Close
        Set rst = Nothing
        '刷新数据
        If IsLoaded("usysfrmMain") Then
       
         If IsLoaded("frmBxmx_child_Add") = True Then
                Forms!frmBxmx_child_Add!ygId.Requery
                GoTo 100
            End If
       
            DoCmd.Echo False
            Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
            DoCmd.Echo True
        End If
100:      MsgBox "保存成功!", vbInformation, "提示"
        Me.ygxm = Null
        Me.pai = Null
     Me.gongxu = Null
    Next i
   End If
End Sub

每次在输入步长值“工序”为n是，应该显示福位为“1”至“n"的n条记录，而不是只显示福位为“1”的一条记录.。附数据库，用户名000001，密码admin

点击下载此附件