acFormBar, acEditMenu, 5 ==> acCmdPasteAppend
acFormBar, acEditMenu, 6 ==> acCmdDeleteRecord
acFormBar, acEditMenu, 8 ==> acCmdSelectRecord
acFormBar, acEditMenu, 10 ==> acCmdFind
acFormBar, acEditMenu, 12, 4 ==> acCmdRecordsGoToNew
acFormBar, acEditMenu, acCopy ==> acCmdCopy
acFormBar, acEditMenu, acPaste ==> acCmdPaste
acFormBar, acEditMenu, acUndo ==> acCmdUndo
acFormBar, acFile, acSaveForm ==> acCmdSave
acFormBar, acRecordsMenu, 0, 2 ==> acCmdAdvancedFilterSort
acFormBar, acRecordsMenu, 2 ==> acCmdApplyFilterSort
acFormBar, acRecordsMenu, 5 ==> acCmdRefresh
acFormBar, acRecordsMenu, acSaveRecord ==> acCmdSaveRecord
acFormBar, 7, 6 ==> acCmdSizeToFit
1, 3, 3 ==> acCmdNewObjectReport
3, acEditMenu, acPaste ==> acCmdPaste
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 <== Kaydı Seç
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 <== Kaydı Sil anlamına gelir sizin kodu silmeden önceye yazmanız gerekiyordu.
yani kodunuz
Private Sub BtnKayitSil_Click()
If MsgBox("Kayıtı silmek istediginize eminmisiniz.", vbCritical + vbOKCancel) = vbOK Then
CurrentDb.Execute "INSERT INTO Tbl_Silinen_Firmalar_data SELECT * FROM Tbl_Firmalar_data where FirmaID=" & Me.FirmaID
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 'Kaydı Seç
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 'Kaydı sil
Else
Me.Undo
MsgBox "Kayıt silme işlemi iptal edildi."
End If
End Sub