+- 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ığı: Alt formdaki satırlardan seçip silme (/konu-alt-formdaki-satirlardan-secip-silme--3956.html)
Sayfalar:
1
2
Alt formdaki satırlardan seçip silme - Aykay - 12/07/2009
Değerli arkadaşlar merhaba;
Form üzerine eklediğiniz altformdaki seçtiğiniz satırlardan silme isteğinizi bir tıklamayla gerçekleştiren bir çalışmadır. Silme esnasında kullanıcıyı uyaran mesaj içeriği de mevcutdur.
Umarım istifade ederek, işlerini kolaylaştırırsınız.
Teşekkürler.
Cvp: Alt formdaki satırlardan seçip silme - ozanakkaya - 12/07/2009
Paylaşım için teşekkürler Aykay
Cvp: Alt formdaki satırlardan seçip silme - atabey68 - 12/07/2009
çok teşekkürler aykay
Cvp: Alt formdaki satırlardan seçip silme - benremix - 12/07/2009
Sn Aykay emeğiniz teşekkürler. Ancak benim anlamadığım zaten altformda satır seçili iken kayıt sil dediğiniz zaman Access kayıt silinsi mi diye soruyor. Şimdi iki kez evet demek durumunda kalıyorum. Access uyarısını kaldırmak mı gerekli; sizde farklı mı oluyor? Kusuruma bakmayın aklıma yatmadı mı huzursuz oluyorum... Saygılar...
Cvp: Alt formdaki satırlardan seçip silme - Aykay - 13/07/2009
Sayın benremix;
Çalışma bende sağlıklı çalışıyor. Tekrar deneyin. Altformdaki herhangi bir satırın üzerindeyken aşağıdaki sil butonuna bastığınızda silme işlemini sorarak gerçekleştir.
Kolaygelsin.
Cvp: Alt formdaki satırlardan seçip silme - mehmetdemiral - 13/07/2009
Sayın benremix
Sizin Access seçeneklerinde Eylem sorgularında onay isteme seçeneği işaretli. Sayın Aykay'da ise bu seçenek "gösterme" şeklinde yani işaretsiz. Bu yüzden access'teki eylemler sizde onay ister ama sayın Aykay'da onay istemeden gerçekleşir. Bu nedenle yukardaki silme butonundaki kodların ilk başına
Kod:
DoCmd.SetWarnings FalseKod:
DoCmd.SetWarnings trueYeni kodlar şöyle olacak:
Kod:
Private Sub Komut2_Click()
DoCmd.SetWarnings False
On Error GoTo Err_Komut2_Click
If MsgBox("Seçilen satır silinecektir. Emin misiniz?", _
vbYesNo) = vbYes Then
Cancel = True
DoCmd.RunSQL "Delete Tablo1.sno FROM Tablo1 WHERE (((Tablo1.sno)=[Formlar]![Form1]![Metin3]));", -1
End If
Me.Tablo1_alt_formu.Requery
DoCmd.SetWarnings True
Exit_Komut2_Click:
Exit Sub
Err_Komut2_Click:
MsgBox Err.Description
Resume Exit_Komut2_Click
End SubKolay gelsin.