求助:自動復(fù)制上筆記錄的實例完善

明鏡

在輸入式窗體中,有一個"添加"按鈕,要求點擊這個"添加"按鈕后,出現(xiàn)對話框,提示是否復(fù)制上筆記錄,選擇是則自動復(fù)制,選擇否則取消,但上傳的例子只能出現(xiàn)對話框,而無法使用"否"的選項,就是選擇"否"這個選項后仍復(fù)制了上筆,現(xiàn)把這個上傳上來,請高手鼎力幫助,完善一下.謝謝.

Henry D. Sy

Private Sub Form_Current()  '窗體成為當(dāng)前事件代碼
    If Me.NewRecord = True Then    '如果新增記錄
        If MsgBox("是否復(fù)制上筆記錄？", vbYesNo) = vbNo Then    '提示是否復(fù)制
            Exit Sub
        End If
        Dim rsClone As Recordset    '定義記錄集
        Set rsClone = Me.RecordsetClone
        rsClone.MoveLast    '移動到最后一條記錄
        Me!科目編號 = rsClone!科目編號
        Me!學(xué)號 = rsClone!學(xué)號
        Me!姓名 = rsClone!姓名
        Me!考試日期 = rsClone!考試日期
        Me!單元 = rsClone!單元
        Me!考試類別 = rsClone!考試類別
        Me!成績 = rsClone!成績
        Set rsClone = Nothing    '關(guān)閉記錄集
    End If
End Sub