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.
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
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.
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