Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
13/03/2019 18:11
Konu Sahibi
ramazanke
Yorumlar
4
Okunma
256
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
ramazanke

ramazanke

Üye
101192
Ra.... Ke....
 3
 8
 17/12/2018
0
 Uşak
 Çağrı merkezi
 Ofis 2016 64 Bit
 08/06/2019,10:09
Çözüldü 
Merhaba,

sorgu ile ana tablodan aynı kayıtları da otomatik olarak silmek istiyorum.

örnek ektedir




ercansahin

ercansahin

Uzman
2272
Er.... ŞA....
 44
 69
 3.757
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 16/05/2019,20:28
Hangi sütundaki veriler baz alınacak belirtir misiniz? Ayrıca burada bahsettiğiniz kayıt giriş esnasında mükerrer kayıt varsa mı silsin, yoksa mevcut tablodaki verilerden mükerrer olanları mı silsin? Bir de örneğin mükerrer 4 kayıt varsa 1'i kalacak 3'ümü silinecek? Yoksa tamamı mı?



...........
ramazanke

ramazanke

Üye
101192
Ra.... Ke....
 3
 8
 17/12/2018
0
 Uşak
 Çağrı merkezi
 Ofis 2016 64 Bit
 08/06/2019,10:09
(13/03/2019 22:55)ercansahin Adlı Kullanıcıdan Alıntı: Hangi sütundaki veriler baz alınacak belirtir misiniz? Ayrıca burada bahsettiğiniz kayıt giriş esnasında mükerrer kayıt varsa mı silsin, yoksa mevcut tablodaki verilerden mükerrer olanları mı silsin? Bir de örneğin mükerrer 4 kayıt varsa 1'i kalacak 3'ümü silinecek? Yoksa tamamı mı?

mevcut kayıttaki mükerrer olan kayıtlar silinecek. 4 kayıt varsa 3 silinecek 1 kalacak



halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,13:41
form üzerine ekleyeceğiniz "Btntekrarsil" adlı butona aşağıdaki kodu girip dener misiniz

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Btntekrarsil_Click()

Dim strSQL As String
strSQL = " SELECT * INTO [Pds_DataTmp] FROM (SELECT DISTINCT * FROM Pds_Data);" 
DoCmd.SetWarnings False
  DoCmd.RunSQL strSQL
  DoCmd.RunSQL "delete from Pds_Data"
  CurrentDb.Execute "INSERT INTO Pds_Data SELECT * FROM Pds_DataTmp;"
  DoCmd.DeleteObject acTable, "Pds_DataTmp"
DoCmd.SetWarnings True

End Sub




...........
ramazanke

ramazanke

Üye
101192
Ra.... Ke....
 3
 8
 17/12/2018
0
 Uşak
 Çağrı merkezi
 Ofis 2016 64 Bit
 08/06/2019,10:09
(14/03/2019 12:11)haliliyas Adlı Kullanıcıdan Alıntı: form üzerine ekleyeceğiniz "Btntekrarsil" adlı butona aşağıdaki kodu girip dener misiniz

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Btntekrarsil_Click()

Dim strSQL As String
strSQL = " SELECT * INTO [Pds_DataTmp] FROM (SELECT DISTINCT * FROM Pds_Data);" 
DoCmd.SetWarnings False
  DoCmd.RunSQL strSQL
  DoCmd.RunSQL "delete from Pds_Data"
  CurrentDb.Execute "INSERT INTO Pds_Data SELECT * FROM Pds_DataTmp;"
  DoCmd.DeleteObject acTable, "Pds_DataTmp"
DoCmd.SetWarnings True

End Sub

teşkkürler tam ihtiyacım olan bu




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Ms Access Excel Veri Alma Sorunu / Ms Access Import Data hakkih 13 2.029 10/01/2019, 21:40
Son Yorum: hakkih
Çözüldü Compile Error: Method Or Data Member Not Found DataBilgi 4 260 24/10/2018, 17:14
Son Yorum: Allback
Çözüldü Tekrarlayan Veriler Hakkında notrino 1 203 29/08/2018, 22:12
Son Yorum: mehmetdemiral
Çözüldü Access İle Sql Deki Wiev Den Data Alma. barcins 1 245 25/07/2018, 17:05
Son Yorum: ozanakkaya
Çözüldü Lıstbox Bos Data Sorunu sidd 5 365 16/05/2018, 14:44
Son Yorum: A.Kadir.

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