AccessTr.neT
Formda Silinecek Veri Yokken Butona Basıldığında Silme Uyarısının Ekrana Gelmesi - 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ığı: Formda Silinecek Veri Yokken Butona Basıldığında Silme Uyarısının Ekrana Gelmesi (/konu-formda-silinecek-veri-yokken-butona-basildiginda-silme-uyarisinin-ekrana-gelmesi.html)



Formda Silinecek Veri Yokken Butona Basıldığında Silme Uyarısının Ekrana Gelmesi - mmert06 - 01/07/2018

Merhaba. Ekteki uygulamada frm_klasor formundaki ENVANTER FORMUNU TEMİZLE butonuna bastığımda ekrana gelen "Envanter formundaki tüm veriler silinsin mi?" silme uyarısına evet dediğimde formdaki tüm veriler silindikten sonra, butona tekrar bastığımda silme uyarısı ekrana tekrar geliyor. Ben silme işleminden sonra butona tekrar bastığımda silme uyarısının ekrana gelmemesini yada "Silinecek veri yok!" şeklinde bir uyarı penceresinin (mesaj) ekrana gelmesini istiyorum. Bunu nasıl yapabilirim?


Cvp: Formda Silinecek Veri Yokken Butona Basıldığında Silme Uyarısının Ekrana Gelmesi - direnist - 01/07/2018

Merhaba;
Silme işlemini yapan kodun öncesine aşağıdaki kodu yazarak deneyiniz.
yalnız, sizin mevcut kodunuz formun üzerindeki verileri silmiyor. Direk veritabanınızdaki tbl_envanter tablosundaki tüm veriyi siliyor.
Bu ne kadar doğru ?

Dim adet As Integer
adet = DCount("*", "srg_envanter")

If adet = 0 Then MsgBox "silinecek veri yok": Exit Sub



Cvp: Formda Silinecek Veri Yokken Butona Basıldığında Silme Uyarısının Ekrana Gelmesi - mmert06 - 01/07/2018

Sayın direnist, frm_ anasayfa formundaki liste kutusunda yer alan her bir klasörün kendine ait bir envanter formu var, envanter formu temizle butonu ile liste kutusundan sectigim klasöre ait envanter formunun içindeki verileri temizlemek amacım. Yani liste kutusundan hangi klasörü seçtiysem sadece onun envanter formunun içeriğini temizlemek niyetim

Ayrıca belirttiğiniz kodu denedim ve sorun çözüldü teşekkkür ederim.