işlem tamam. sonuçlanmıştır. aşağıdaki şekilde yaptım ve istediğim gibi oldu. sorunu çözdüğüm kodu aşağıda paylaşıyorum belki bir arkadaşımızın daha ihtiyacı olur.

Private Sub Komut44_Click()

DoCmd.SetWarnings False 'bununla accessin o gıcık uyarılarını gizledik.

c = MsgBox("Kaydı Arşive Taşımak İstediğinizden Eminmisiniz? ", vbYesNo, "KAYIT SİLME İŞLEMİ")

 If c = vbNo Then ' Hayır denir ise geri dönüş yapacaktır.

 MsgBox "KAYIT SİLME İŞLEMİ YAPILMADI", 64, "KAYIT SİLME İŞLEMİ"

 Else

    DoCmd.RunMacro "kayitsil_yedekleyerek" 'Kaydı arşive taşıyacak makroyu çalıştıracaktır.

MsgBox "KAYIT BAŞARIYLA ARŞİVE TAŞINDI", 64, "KAYIT SİLME İŞLEMİ"

 End If

End Sub

alpeki hocam ilginize teşekkürler, konuyu çözülenler arasına taşıyabilirsiniz.

herkese saygılar