Alt Formdaki satırlardan seçip silme

1 2 3
11/07/2009, 23:35

Aykay

Değerli arkadaşlar merhaba;
Form üzerinde altform düşünelim ve bu altformda bulunan satırların herhangi birinin üzerindeyken, forma yerleştirilen buton ile imlecin bulunduğu satırı silebilir miyiz.
Not: Silinen veri geri gelmeyeceği için kullanıcıyı uyarıcı bir mesaj da eklemek gerek.
İlginize şimdiden teşekkürler.
11/07/2009, 23:59

ozanakkaya

aşağıdaki örneği incele
12/07/2009, 00:05

Aykay

Sayın sledgeab;
Buna kullanıcıyı uyarıcı bir mesaj ekleyemez miyiz. Valla bu çok tehlike bir birşey onun için kullanıcıyı uyarıcı birşey yapmak lazım
Örnek; Seçilen satır silinecektir. Emin misiniz?
Evet - Hayır
şeklinde
12/07/2009, 00:17

ozanakkaya

butona aşağıdaki kodu yaz
Kod:
Private Sub Komut2_Click()
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

Exit_Komut2_Click:
    Exit Sub

Err_Komut2_Click:
    MsgBox Err.Description
    Resume Exit_Komut2_Click
    
End Sub
12/07/2009, 00:17

mehmetdemiral

Biraz matrak oldu ama sanırım böyle istediniz)))
12/07/2009, 00:20

Aykay

Sayın Sledgeab ve Mehmet bey;
Çözüm için teşekkürler.
Mehmet bey espri hususunda maşallahınız var. Dolayısıyla etrafınıza pozitif enerji yayıyorsunuz. Bu sayede insanların uğraşı ve çalışma azmi bir kat daha artıyor.
Teşekkürler
1 2 3