+- 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ığı: Sorgu ile tespit edilen ölçütlere göre silme sorgusu (/konu-sorgu-ile-tespit-edilen-olcutlere-gore-silme-sorgusu.html)
Sayfalar:
1
2
Sorgu ile tespit edilen ölçütlere göre silme sorgusu - temre - 07/11/2010
Sayın hocalarım, sevgili arkadaşlar iyi akşamlar dilerim.
Ek'teki çalışmamda "hrk2 deki tarihleri ThmHRK den satır olarak sil" silme sorgusu ile (garip bir isim kabul ediyorum; gülüşmeleri duyar gibiyim
) hrk2 listesindeki tespit edilen tarihleri ThmHRK tablosundan satır halinde silmek istiyorum. Silme sorgusuna ölçütü girmeden sorgu ile tespit ettirerek işlemi nasıl yaptırabiliriz?Teşekkür ederim.
Cvp: Sorgu ile tespit edilen ölçütlere göre silme sorgusu - Kur@l - 07/11/2010
Sayın Temre;
Aşağıdaki komutu kendinize uyarlayınız.
Docmd.setwarnings False 'Uyarıları Kapatır
docmd.runsql "delete tabloadi where kosul"
Docmd.setwarnings True 'Uyarıları Yeniden Açar.
Cvp: Sorgu ile tespit edilen ölçütlere göre silme sorgusu - temre - 07/11/2010
Sayın Kural ilginize teşekkür ediyorum.
Benim hrk2 tablosundaki kayıtlarım (koşullar) sürekli değişen verilerdir ve bir sorgu sonucu ile o listede yer almaktadır. Vba satırına bu değişkenleri o listeden güncel olarak nasıl okutabilirim? Veya silme sorgusuna koşulu manuel girmeden sorgudan nasıl atayabilirim?
Selamlar.
Cvp: Sorgu ile tespit edilen ölçütlere göre silme sorgusu - Kur@l - 08/11/2010
Sayın Temre;
Silme sorgunuzu şu şekilde değiştirin
DELETE ThmHRK.[Fiili tarih] FROM ThmHRK WHERE (((ThmHRK.[Fiili tarih]) In (select [Fiili tarih] from hrk2)));
Cvp: Sorgu ile tespit edilen ölçütlere göre silme sorgusu - temre - 08/11/2010
Sayın Kural hocam,
(Aynı anda mesaj attık sanırım, mesajı atınca 2.mesajınızı okudum, hemen uyguluyorum.)
Aşağıdaki komutlar bir yere kadar istenileni yapıyor ancak, ThmHRK tablosundaki [Fiili tarih] boş olanları silmiyor. hrk2 dosyasında boş tarih te bir ölçüt ama bunları nasıl sildirebilirim?
Teşekkürler.
Private Sub Command0_Click()
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim db As Database
Dim strSQL As String
Set db = CurrentDb()
strSQL = "SELECT * FROM hrk2"
Set rs = db.OpenRecordset(strSQL)
strSQL = "SELECT * FROM ThmHRK"
Set rs1 = db.OpenRecordset(strSQL)
If rs.EOF = True Then GoTo 90
rs.MoveFirst
Do Until rs.EOF
rs1.MoveFirst
Do Until rs1.EOF
If rs![Fiili tarih] = rs1![Fiili tarih] Then rs1.Delete
rs1.MoveNext
Loop
rs.MoveNext
Loop
90:
End Sub
Cvp: Sorgu ile tespit edilen ölçütlere göre silme sorgusu - Kur@l - 08/11/2010
Sayın Temre;
Aşağıdaki Kod işinize yarayacaktır. Bu kod ile boş kayıtlarıda silebilirsiniz.
DELETE ThmHRK.[Fiili tarih] FROM ThmHRK WHERE (((ThmHRK.[Fiili tarih]) In (select [Fiili tarih] from hrk2))) OR (((ThmHRK.[Fiili tarih]) Is Null));
Kolay Gelsin.