[MAKRO] Access' Te Tc Kimlik Nolarının Sonundaki Boşlukları Temizleme

turannet · 26-11-2023, 22:27

Merhabalar.
Özel bir yazılım aracılığıyla girilen veriler, bir çok tablodan oluşan Access veri tabanı dosyasında tutulmaktadır.
Bunlardan "Malik" tablosu içerisinde, veri türü: kısa metin olan "VergiNo" alanında TC Kimlik Noları yer almaktadır.Bu veriler bahsettiğim yazılıma elle doğrudan veya copy/ paste şeklinde girilebilmektedir.Ancak copy/ paste yoluyla girilen TC Kimlik Nolarının sonunda "1 satır boşluk" oluşmaktadır.
Excellde ufak tefek makro çalışmalarım olsa da Access makro konusunda hiç bir fikrim yoktur.
Excell' de kullandığımız "mid" fonksiyonu ile Access' te de verilerin sonundaki boşlukları temizleyebilirmiyiz.

Access çalışma dosyamda veriler şu şekilde yer almaktadır.
PROJE ADI: Çok sayıda tablolar içermektedir.
TABLO ADI : Malik (Çok sayıda alandan oluşmaktadır)
ALAN ADI: VergiNo (Sonunda boşluk olan TCKN'ler olduğu gibi boşluk olmayan/ hatasız TCKN'lerden oluşmaktadır)

Teşekkürler

dsezgin · 27-11-2023, 09:25

(26-11-2023, 22:27)turannet demiş ki: copy/ paste yoluyla girilen TC Kimlik Nolarının sonunda "1 satır boşluk" oluşmaktadır.

Visual Basic
Private Sub VergiNo_AfterUpdate()
me.VergiNo=replace(me.VergiNo," ","")
end sub

Sorgu ile tum verinin degistirilmesi(Yedek Almayi unutmayin)

SQL
UPDATE TabloAdi SET TabloAdi.VergiNo= REPLACE([VergiNo]," ","");

turannet · **Kayıt Tarihi:** 25.05.2014

(27-11-2023, 09:25)dsezgin demiş ki: Sorgu ile tum verinin degistirilmesi(Yedek Almayi unutmayin)
Visual Basic
UPDATE TabloAdi SET TabloAdi.VergiNo= Replace([VergiNo]," ","");

Sezgin bey teşekkür ederim öncelikle.
Ekran görüntüsünü inceleyebilirseniz SQL sorgu ile yapmak istedim ama malesef TCKN'lerde bir düzelme olmadı.
Eksik ne olabilir.
Teşekkürler.

dsezgin · 27-11-2023, 11:27

Demek ki verinin sonundaki boşluk değilmiş, Tab veya yeni satir vb. değer olabilir.

SQL
UPDATE Malik SET Malik.VergiNo = Mid([VergiNo],1,11);

VergiNo alan veri uzunluğu 11 hane ise Mid(... kullanabilirsiniz.

turannet · **Kayıt Tarihi:** 25.05.2014

(27-11-2023, 11:27)dsezgin demiş ki: Demek ki verinin sonundaki boşluk değilmiş, Tab veya yeni satir vb. değer olabilir.
Visual Basic
UPDATE Malik SET Malik.VergiNo = Mid([VergiNo],1,11);
VergiNo alan veri uzunluğu 11 hane ise Mid(... kullanabilirsiniz.

Aynen "1 satır şeklinde" boşluk var
Yukardaki kod çalıştı.
Peki bu kodu harici bir Access dosyasından çalıştırarak (yani verilerimin olduğu Access dosyasına SQL Sorgusu eklemeden ve dosyanın olduğu dizini göstermek suretiyle) TCKN' leri düzeltebilirmiyiz.Ya da tüm bu işlemleri excell makro ile yapabilirmiyiz.
Teşekkürler

dsezgin · 27-11-2023, 15:50

1. Malik tablosu VergiNo alan uzunluğunu 11 yapabilirsin.
2. Excel'den veri al şablonuyla tabloya alabilirsin.
3. VBA da Docmd.transferspreadsheet......... ile excel dosyasına bağlanıp, tabloya ekleme sorusuyla dahil edilebilir.

NOT: Sorularını, konuya örnek dosya ile destek verebilirsiniz.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Access Data Tablosunda Kimlik Ile Userform üzerinden Veri Arama	ofbayoglu61	1	266	29-11-2021, 02:54 Son Mesaj: dsezgin
	[SORGU] Yasakli Olan ürün Kimlik Girişini Engelleme	gonzalle	2	465	26-01-2020, 00:14 Son Mesaj: gonzalle
	[RAPOR] Ranza Kimlik Kartı	sefersanli	2	454	20-11-2019, 16:50 Son Mesaj: sefersanli
	Form Üzerinden Resim Kimlik+Adi ismi ile Ekleme	musat1	3	984	18-09-2018, 11:46 Son Mesaj: dsezgin
	[FORM] Kuru Temizleme İçin Veri Tabanı	sendrykurutem	1	1.391	10-03-2018, 10:28 Son Mesaj: dsezgin
	[FORM] Formaki Temizle Butonuna Tablodaki Sutunu Temizleme Kodu eklemek	haziran4	3	1.583	05-01-2017, 16:35 Son Mesaj: haziran4
	[TABLO] access kimlik numara tutma	rk10	2	1.372	23-03-2016, 19:46 Son Mesaj: rk10
	Çapraz sorguda kimlik tekrarı	mersilen	1	1.176	27-06-2015, 22:44 Son Mesaj: adnan

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL