レコード複写・削除
選択されているレコードの 複写 ・削除 を確認メッセージを出して行います。　　引数：なし
レコード 複写▲ TOP
Function FPasteRecord()

''レコードを複写                2002/10/15
    
    Dim myRetMsg As Integer
    Dim mykMsg01 As String
    
    mykMsg01 = "複写してよろしいですか。？  "
    
    Beep
    myRetMsg = MsgBox(mykMsg01, vbYesNo + vbQuestion, "確認")
    
    If myRetMsg = vbNo Then
        Exit Function
    End If
    
    With DoCmd
        .SetWarnings False
        .RunCommand acCmdSelectRecord       'レコード選択
        .RunCommand acCmdCopy               'レコードコピー
        .RunCommand acCmdPasteAppend        'レコード貼り付け
        .SetWarnings True
    End With

End Function
レコード 削除▲ TOP
Function FDeleteRecord()

''レコードを削除                2002/10/15

    Dim myRetMsg As Integer
    Dim mykMsg01 As String, mykMsg02 As String
    
    mykMsg01 = "現在のレコードを削除してよろしいですか。？  "
    mykMsg02 = "（ 削除実行後は元に戻せません。） "
    mykMsg02 = mykMsg01 & vbNewLine & vbNewLine & mykMsg02
    
On Error GoTo Err_Shori
    myRetMsg = MsgBox(mykMsg02, vbYesNo + vbExclamation + vbDefaultButton2)
    If myRetMsg = vbNo Then
        Exit Function
    End If
    
    'レコードの削除
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    
    Exit Function

Err_Shori:

''エラーメッセージ
    MsgBox Err.Number & vbNewLine & Err.Description

'Err.Number = 3200 は、参照整合性の規則に反する操作を実行した際のもの
          'リレーションシップが設定されたレコードがテーブル [***.tbl] にあるので、
          'レコードの削除または変更はできません。(Error 3200)
End Function
top