Form Silme Butonu - Baskı Önizleme

Form Silme Butonu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Form Silme Butonu (/konu-form-silme-butonu.html)

Sayfalar: 1 2

Form Silme Butonu - Sümeyye_ - 29/12/2022

Merhaba,
Silme butonunda msgbox ekledim silmek istediğinize emin misiniz? yazdım. Hayır'a tıklayınca yine de siliyor.
Kayıt formda silinse bile tabloda o satır silinmek yerine içi boş bir şekilde duruyor.

RE: Form Silme Butonu - ozanakkaya - 29/12/2022

 If MsgBox(Me.cboMachineName & " nolu silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "Araç Takip") = vbYes Then

 

    Me.txtBiosSerialNumber = ""

    Me.txtCores = ""

    Me.txtOsName = ""

    Me.txtTotalPhysicalMemory = ""

    Me.cboCurrentUsers = ""

    Me.txtMachineName = ""

    Me.txtCurrentUsers = ""

 

 Else

 

    Exit Sub

 

 End If

Re: Form Silme Butonu - Sümeyye_ - 29/12/2022

Yaptım ama çalışmadı

RE: Form Silme Butonu - ozanakkaya - 29/12/2022

If MsgBox(Me.cboMachineName & " nolu silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "Araç Takip") = vbYes Then

    

     DoCmd.RunCommand acCmdDeleteRecord



Else

    Exit Sub

End If

Ben mevzuyu yanlış anladım. Üstteki kodu deneyiniz.

RE: Form Silme Butonu - Sümeyye_ - 29/12/2022

Yine olmadı

Re: Form Silme Butonu - ozanakkaya - 29/12/2022

mesaj kutusu komutunun vbokcancel olduğunu fark ettim, doğru kod aşağıdadır.



If MsgBox(Me.cboMachineName & " nolu silinecek..! Eminmisiniz?", vbYesNo + vbQuestion, "Araç Takip") = vbYes Then



    DoCmd.SetWarnings False

    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.RunCommand acCmdDeleteRecord

    DoCmd.SetWarnings True



Else



    Exit Sub



End If