请帮忙看一下

uranusllj

如图所示，在保存时会弹出这个，子窗体中的记录只能保存一条，此时如果点“确定”，然后再接着点保存，记录会继续保存下去，完成循环。

下面是保存按钮的代码：
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
Dim respone
If Me.list列表21.RowSource = "" Then
    respone = MsgBox("你还没有输入要出库的工装编号，现在要输入吗？", 4, Me.Caption)
    If respone = vbYes Then
        Me.txt工装编号.SetFocus
        GoTo Exit_cmdSave_Click
    Else
        GoTo Exit_cmdSave_Click
    End If
End If
Dim i As Long
Dim strtmp As Variant
For i = 0 To Me.list列表21.ListCount - 1
    strtmp = Me.list列表21.ItemData(i)
    Me.子对象14.SetFocus
    Me.子对象14.Form.ckmx_工装编号 = Me.ckd_工装类型 & Me.zh生产日期 & strtmp
    Me.子对象14.Form.ckmx_凭证编号 = Me.ckd_凭证编号
    Me.子对象14.Form.ckmx_状态 = Me.ckd_凭证类型
    DoCmd.RunCommand acCmdRecordsGoToNext
Next i

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.list列表21.RowSource = ""
Me.txt工装编号 = ""
Me.cmdPrev.Enabled = True
Me.cmdNext.Enabled = True
Me.cmdNew.Enabled = True
Me.cmdNew.SetFocus
Me.cmdSave.Enabled = False
Me.cmdGiveup.Enabled = False
Me.cmdDel.Enabled = True
Me.cmdListAdd.Enabled = False
Me.cmdListDel.Enabled = False
Me.cmdOpenfrm.Enabled = True
Me.cmdQuit.Enabled = True
Me.AllowEdits = False

Exit_cmdSave_Click:
    Exit Sub

Err_cmdSave_Click:
    MsgBox Err.Description
    Resume Exit_cmdSave_Click
   
End Sub
请帮帮忙！

uranusllj

已经解决了！