Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
07/11/2010 21:08
Konu Sahibi
temre
Yorumlar
10
Okunma
2911
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

temre

Altın Üye
MU.... ME....
 42
 288
 61
 19/02/2010
0
 İstanbul
 
 Ofis 2013 64 Bit
 13/11/2018,14:38
Çözüldü 
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 Img-grin ) 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.


Ek Dosyalar
.zip   SATIR_SIL2.zip(Dosya Boyutu: 89,58 KB / İndirme Sayısı: 9)
temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Kur@l

Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 07/12/2018,00:59
Çözüldü 
Sayın Temre;
Aşağıdaki komutu kendinize uyarlayınız.

Visual Basic Code
Docmd.setwarnings False   'Uyarıları Kapatır
docmd.runsql "delete tabloadi where kosul"
Docmd.setwarnings True   'Uyarıları Yeniden Açar.

Kolay Gelsin.


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.

Kullanici Avatari

temre

Altın Üye
MU.... ME....
 42
 288
 61
 19/02/2010
0
 İstanbul
 
 Ofis 2013 64 Bit
 13/11/2018,14:38
Çözüldü 
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.


temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Kur@l

Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 07/12/2018,00:59
Çözüldü 
Sayın Temre;
Silme sorgunuzu şu şekilde değiştirin

SQL Code
DELETE ThmHRK.[Fiili tarih]  FROM ThmHRK  WHERE (((ThmHRK.[Fiili tarih]) In (select  [Fiili tarih] from hrk2)));

Kolay Gelsin.


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.

Kullanici Avatari

temre

Altın Üye
MU.... ME....
 42
 288
 61
 19/02/2010
0
 İstanbul
 
 Ofis 2013 64 Bit
 13/11/2018,14:38
Çözüldü 
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


temre, 18-02-2010 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Kur@l

Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 07/12/2018,00:59
Çözüldü 
Sayın Temre;
Aşağıdaki Kod işinize yarayacaktır. Bu kod ile boş kayıtlarıda silebilirsiniz.

SQL Code
DELETE ThmHRK.[Fiili tarih]  FROM ThmHRK  WHERE (((ThmHRK.[Fiili tarih]) In (select   [Fiili tarih] from hrk2))) OR (((ThmHRK.[Fiili tarih]) Is Null));


Kolay Gelsin.


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formdan Başka Formda Kritere Göre Liste Gizleme Ve Görünmesi U.ALTUN 4 67 05/12/2018, 13:50
Son Yorum: U.ALTUN
Çözüldü Birleşim Sorgusu notrino 2 45 29/11/2018, 12:14
Son Yorum: notrino
Çözüldü Sorgu İlişkileri Hakkında notrino 2 84 26/11/2018, 16:35
Son Yorum: notrino
Çözüldü Formumu Almak İstediğim Sonuca Göre Nasıl Tasarlamalıyım. Oğuz Türkyılmaz 4 159 25/11/2018, 21:21
Son Yorum: Oğuz Türkyılmaz
Çözüldü Fatura kesme programını şablona göre ayarlama megi bilişim bilgisayar 22 2.989 20/11/2018, 16:39
Son Yorum: Allback

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444