Kapali dosyada 3 aydan eski tarihleri sildirmek
Tarih
30/01/2013 14:19
Konu Sahibi
kaleci
Yorumlar
4
Okunma
1785
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kaleci
Aktif Üye
Kullanici Avatari
Aktif Üye
60
21/12/2012
0
14/04/2014,00:30
Çözüldü 
Arkadaslar,

Access da asagidaki gibi iki dosya var,
Kapali dosya adi: Datenbank1.accdb
Kayit dosyasi: Dateneingabe.accdb

Kayit dosyasini actigimizda üc aydan eski tarihli verilerin silinmesini istiyorum, mümkün mü?
Neden ihtiyaciniz var derseniz. Almanya da bir sirketi ziyaret ettiginizde, ziyaretcinin özel bilgilerini üc aydan fazla muhafaza edemessiniz. Ben su anda kapali dosyayi acip silme islemnini oradan yapiyorum.

Tekil silme islemini „Taruz“ arkadasimizin yazmis oldugu kod ile gerceklestiriyorum.

kaleci

Kod:
1
2
3
4
5
6
7
8
9
Private Sub Befehl9_Click()
'silme
If Liste5.ItemsSelected.Count = 0 Then
MsgBox "listeden seçim yapýnýz..", vbInformation, "Taruz"
Else
CurrentDb.Execute "delete from (" & ArkaDosyaTablo1 & ") where ID=" & Liste5
Liste5.Requery
End If
End Sub

Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.022
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,08:03
Çözüldü 
Tekli silme olayı nedir bilmiyorum, ekteki örnekte "Datenbank1" ve "Dateneingabe" isimli veritabanları aynı dizinde olmak şartıyla (farklı dizin için seçme işlemi için kod eklenmeli);


Dateneingabe.accdb isimli dosyadaki Form1'i açıp butonu tıkladığında, Datenbank1.accdb isimli kapalı dosyada bulunan Tablo1 isimli tablodaki verilerden 3 aydan eski verileri siler.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
'Datenbank1.accdb veritanbanındaki Tablo1'i al
DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentProject.Path & "\Datenbank1.accdb", acTable, "Tablo1", "Tablo1", False

'Tablo1'deki 3 aydan eski kayıtları sil
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Tarih, Adi FROM Tablo1 WHERE ((DateDiff('m',[Tarih],Date())>=3));"
DoCmd.SetWarnings True

'Tablo1'i Datenbank1.accdb veritanbanına geri gönder.
DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\Datenbank1.accdb", acTable, "Tablo1", "Tablo1", False

'Alınan Tabloyu sil.
DoCmd.RunSQL "DROP TABLE Tablo1"



Ek Dosyalar
.rar   deneme.rar (Dosya Boyutu: 42,02 KB / İndirme Sayısı: 24)
Cevapla


kaleci
Aktif Üye
Kullanici Avatari
Aktif Üye
60
21/12/2012
0
14/04/2014,00:30
Çözüldü 
Sayin ozanakkaya,

bir Örnek dosya ile soruma cok hizli bir sekilde cevap verdiginiz icin tesekkür ederim. Sizin gönderdiginiz dosyadaki Komut dügmesi Kodu calistirmadi. Benim Access de bir hata olabilir. Ama Kodu ekteki dosyaya yapistirdim. Kod kapali dosyadaki (ArkaDosya) Tablo1 i, Kayit dosyasina(OnDosya) ya kopya ediyor. Üc aydan eski tarihleri silmiyor. Hocam birde "Bul" dügmesi calismiyor. Dosyaya bir göz atarsaniz mennun olurum.

kaleci


Ek Dosyalar
.rar   ArkaDosya.rar (Dosya Boyutu: 59,24 KB / İndirme Sayısı: 5)
Cevapla


kaleci
Aktif Üye
Kullanici Avatari
Aktif Üye
60
21/12/2012
0
14/04/2014,00:30
Çözüldü 
hocam ozanakkaya,

göstermis oldugunuz yol üzeri kodu asagidaki gibi degistirdim ve kod calisiyor. Tesekkür ederim.

Su anda arama dügmesi calismiyor. Hocam bir Metin veya acilir kutuya yazdigimiz kelimeyi, hangi satir veya stünda olursa olsun, arattirmak mümkün mü?

Bir el atarsaniz menmun olurum.

Kod:
Private Sub Befehl18_Click()
CurrentDb.Execute "delete from (" & ArkaDosyaTablo1 & ") WHERE ((DateDiff('m',[Tarih],Date())>=3));"
End Sub




kaleci

Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.431
17/05/2009
365
Ankara
Ofis 2010
02/12/2016,21:35
Çözüldü 
Sn kaleci probleminizi çözebildiniz mi?

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Yeni veri ekleme, eski veriyi saklama mntf02 6 646 02/01/2016, 16:40 mntf02
Çözüldü Ajandaya yeni veri kaydeden ve eski verilere gün gün bakılabilme konak 12 885 18/09/2015, 19:53 atoz112
Çözüldü İki Tarih Arası Rapor ve Seçilen Tarihleri Raporda Göstermek Nasıl Yapılır?? mehami 12 1.588 01/08/2015, 22:25 celilpartal
Çözüldü sorguda yıl yazarak tarihleri sıralamak ugur1208 7 1.092 15/03/2015, 19:28 atoz112
Çözüldü Metin Kutusundan Tabloya Tarihleri Yazdırmada Sorun Çözümü?? mehami 6 758 10/03/2015, 16:03 mehami


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya