Sorgu ile tespit edilen ölçütlere göre silme sorgusu - 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ığı: 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.
Kolay Gelsin.
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
Kolay Gelsin.
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.
Kolay Gelsin. |