Skip to main content

AccessTr.neT


Form Üzerinde Kayıt Silinirken Onay İstesin.

Form Üzerinde Kayıt Silinirken Onay İstesin.

Çözüldü #1
merhaba arkadaşlar.

form  üzerinde kayıt silerken onay isteyebilirmi
benim onayın olmadan kaydı silmesin.  e/h gibi.
Cevapla
#2
Private Sub sil_Click()
On Error GoTo Err_sil_Click

If Me.NewRecord = True Then MsgBox "Silinecek aktif kayıt yok", 48, "Kayıt Silme": Exit Sub
If MsgBox("Silmek İstediğinizden Emin misiniz?", 20, "Kayıt silme") = 6 Then
DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
    End If
   
Exit_sil_Click:
    Exit Sub
Err_sil_Click:
    MsgBox "kayıt silme işlemi yapılamadı", 48, "Kayıt silme"
End Sub
Cevapla
#3
(20/06/2017, 09:51)C*e*l*o*y*c*e yazdı: Private Sub sil_Click()
On Error GoTo Err_sil_Click

If Me.NewRecord = True Then MsgBox "Silinecek aktif kayıt yok", 48, "Kayıt Silme": Exit Sub
If MsgBox("Silmek İstediğinizden Emin misiniz?", 20, "Kayıt silme") = 6 Then
DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
    End If
   
Exit_sil_Click:
    Exit Sub
Err_sil_Click:
    MsgBox "kayıt silme işlemi yapılamadı", 48, "Kayıt silme"
End Sub

teşekkür ederim.
kolay gelsin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da