AccessTr.neT
Hücredeki Verilerden Sadece Tc Noyu Diğer Hücreye Aktarma - 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ığı: Hücredeki Verilerden Sadece Tc Noyu Diğer Hücreye Aktarma (/konu-hucredeki-verilerden-sadece-tc-noyu-diger-hucreye-aktarma.html)



Hücredeki Verilerden Sadece Tc Noyu Diğer Hücreye Aktarma - sfenksturk - 10/10/2021

iyi günler arkadaşlar, hücre içerisinde çalışanlara ait bilgiler var, ben bu bilgilerden çalışanın tc sini aynı tablonun tc isimli sutununda da ayrı olarak göstermek istiyorum. modül ve sorgulamadan bunu yapamadım. Yardımcı olursanız sevinirim

MUHASEBECİ, VELİ UYGULAMA Tc:98765432110 MEHMET/FATMA, 19810203, ADRES: UYGULAMA SOK. şeklinde hücredeki bilgilerden sadece Tc:'dan sonra gelen TC kimlik noyu tc isimli sütuna yazdırmak istiyorum. Bazı kişilerde tc yok. kişiler çok olduğundan tc leri ayrı olarak elle yazma imkanım yok.


RE: Hücredeki Verilerden Sadece Tc Noyu Diğer Hücreye Aktarma - berduş - 10/10/2021

öncelikle oluşturduğunuz modüle aşağıdaki fonksiyonu ekleyin
bu fonksiyon sadece tc: ifadesini bulup sonraki 11 haneyi alır
(resmi bir bilgi olduğu TCnin tam girildiği varsayılmıştır eksik yada fazla hanelerde sorun çıkarır istenirse tabiki tc: bulunduktan sonra
rakam olmayan ilk ifadeye kadar veri alınması da sağlanabilir)
Function TcAl(Mtn As String) As String
Mtn = Trim(Mtn)
xBas = InStr(Mtn, "tc:")
TcAl = Mid(Mtn, xBas + 3, 11)
If xBas < 1 Then TcAl = ""
End Function
sonrada güncelleme sorgusu oluşturup çalıştırmanız gerek
güncelleme sorgusunun kodu
UPDATE Tablo1 SET Tablo1.tc = TcAl([Tablo1]![bilgiler]);



RE: Hücredeki Verilerden Sadece Tc Noyu Diğer Hücreye Aktarma - sfenksturk - 10/10/2021

Verdiğiniz bilgiler sayesinde hata vermeden konu çözüldü. çok teşekkür ederim.


RE: Hücredeki Verilerden Sadece Tc Noyu Diğer Hücreye Aktarma - berduş - 10/10/2021

rica ederim
iyi çalışmalar)