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.
Paylaşım için teşekkürler Aykay
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...
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.
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 False
ens son end sub satırından önce de
Kod:
DoCmd.SetWarnings true
yazılması gerekir. Böylece
Access onayı kapatılmış olur. Unutmayın.
Yeni 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 Sub
Kolay gelsin.