Skip to main content

AccessTr.neT


Veri Alanındaki Kısaltmaları Otomatik Değiştirme

Veri Alanındaki Kısaltmaları Otomatik Değiştirme

Çözüldü #1
(10/03/2021, 00:21)feraz yazdı: Bir Excel açın ve modül ekleyin ve ilk mesajdaki kodu olduğu gibi ekleyin modüle ve çalıştırın.

Kodlardan anladığım kadarıyla c:aa aralığındaki bozuk olanları koddaki karşılıkarı ile değiştirir.

(12/03/2020, 15:26)accessman yazdı: pDict.Add "ÅŸ", "ş"
Yani koda göre ş den öndeki bozuk karakter c:aa aralığında varsa ş olarak değiştirir diğerleride aynı şekilde değişir.

Merhabalar
"Posta listesi yapmak için kullanılan"
formda aşağıdaki şekilde veriler bulunan "posta tablosundaki (birimi mahkeme savcılık" alanındaki)

ASC
AĞC
CBS
ŞEKLİNDE YAZILAN KISALTMALARI
ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ
CBS=CUMHURİİYET BAŞ SAVCILIĞI
şeklinde otomatik dönüştürebilir miyiz ? veya bul değiştir ile otomatik değiştirebilir miyiz ?
yada birimi mahkeme savcılık alanının yanına oluşturulan yeni bir alana kısaltmaları yazıp birimi mahkeme savcılık alanına çekmesini sağlayabilir miyiz ?

Ofis Access 2003
Teşekkürler

POSTABİRİMİ MAHKEME SAVCILIK
ORHANGAZİ 3. ASC
BURSA 1. AĞC
BURSA 16. AĞC
BURSA 12. AĞC
İNEGÖL CBS
GEMLİK 2. ASC
ORHANGAZİ 1. ASC
GÖNEN ASC
GÖNEN ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
EDREMİT CBS
ORHANGAZİ 1. ASC
BURSA 12. AĞC
KARACABEY 2. ASC
YENİŞEHİR ASC
BURSA 16. ASC
BURSA CBS
BURSA CBS
KARACABEY CBS
BURSA CBS
İNEGÖL CBS
ORHANGAZİ 3. ASC
BURSA CBS
BURSA CBS
BURSA 12. AĞC
BURSA 19. ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA 16. ASC
ORHANELİ CBS
BURSA CBS
BURSA 5. ASC
BURSA CBS
BURSA 12. AĞC
BURSA 35. ASC
BURSA 8. ASH
BANDIRMA CBS
BANDIRMA CBS
ORHANGAZİ 1. ASC
BURSA CBS
BURSA 11. AĞC
YENİŞEHİR ASC
BURSA CBS
İNEGÖL 4. ASC
BANDIRMA 2. ASC
YENİŞEHİR ASC
ERDEK CBS
BURSA CBS
MUDANYA CBS
BURSA CBS
BURSA CBS
YENİŞEHİR ASC
YENİŞEHİR ASC
YENİŞEHİR ASC
BURSA CBS
İNEGÖL 5. ASC
BURSA CBS
BURSA CBS
BURSA 12. AĞC
BURSA CBS
BURSA CBS
BURSA CBS
ERZURUM 2. ASC
ORHANGAZİ 3. ASC
BURSA CBS
YENİŞEHİR ASC
BURSA CBS
BURSA 16. AĞC
BURSA 16. AĞC
BURSA 15. ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
YENİŞEHİR ASC
BURSA CBS
BURSA 15. ASC

excel için yapılmış bu kodları uyarlayabilir miyiz ? ( pDict.Add "AĞC", "Ağır Ceza Mahkemesi") - ( pDict.Add "ACM", "Asliye Ceza Mahkemesi") ( pDict.Add "CBS", "Cumhuriyet Baş Savcılığı") şeklinde

Sub BulDegistir1()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add "ÅŸ", "ş"
pDict.Add "ı", "ı"
pDict.Add "Ç", "Ç"
pDict.Add "Ä°", "İ"
pDict.Add "Ş", "Ş"
pDict.Add "ü", "ü"
pDict.Add "Ö", "Ö"
pDict.Add "Ãœ", "Ü"
pDict.Add "Ğ", "Ğ"
pDict.Add "ÄŸ", "ğ"
pDict.Add "ö", "ö"
pDict.Add "ç", "ç"
'Buraya istenildiği kadar ekleme yapılabilir.

For Each p In pDict
Columns("C:AA").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub
Cevapla
#2
Merhabalar
"Posta listesi yapmak için kullanılan"
formda aşağıdaki şekilde veriler bulunan "posta tablosundaki (birimi mahkeme savcılık" alanındaki)

ASC
AĞC
CBS
ŞEKLİNDE YAZILAN KISALTMALARI
ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ
CBS=CUMHURİİYET BAŞ SAVCILIĞI
şeklinde otomatik dönüştürebilir miyiz ? veya bul değiştir ile otomatik değiştirebilir miyiz ?
yada birimi mahkeme savcılık alanının yanına oluşturulan yeni bir alana kısaltmaları yazıp birimi mahkeme savcılık alanına çekmesini sağlayabilir miyiz ?

Ofis Access 2003
Teşekkürler

POSTABİRİMİ MAHKEME SAVCILIK
ORHANGAZİ 3. ASC
BURSA 1. AĞC
BURSA 16. AĞC
BURSA 12. AĞC
İNEGÖL CBS
GEMLİK 2. ASC
ORHANGAZİ 1. ASC
GÖNEN ASC
GÖNEN ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
EDREMİT CBS
ORHANGAZİ 1. ASC
BURSA 12. AĞC
KARACABEY 2. ASC
YENİŞEHİR ASC
BURSA 16. ASC
BURSA CBS
BURSA CBS
KARACABEY CBS
BURSA CBS
İNEGÖL CBS
ORHANGAZİ 3. ASC
BURSA CBS
BURSA CBS
BURSA 12. AĞC
BURSA 19. ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA 16. ASC
ORHANELİ CBS
BURSA CBS
BURSA 5. ASC
BURSA CBS
BURSA 12. AĞC
BURSA 35. ASC
BURSA 8. ASH
BANDIRMA CBS
BANDIRMA CBS
ORHANGAZİ 1. ASC
BURSA CBS
BURSA 11. AĞC
YENİŞEHİR ASC
BURSA CBS
İNEGÖL 4. ASC
BANDIRMA 2. ASC
YENİŞEHİR ASC
ERDEK CBS
BURSA CBS
MUDANYA CBS
BURSA CBS
BURSA CBS
YENİŞEHİR ASC
YENİŞEHİR ASC
YENİŞEHİR ASC
BURSA CBS
İNEGÖL 5. ASC
BURSA CBS
BURSA CBS
BURSA 12. AĞC
BURSA CBS
BURSA CBS
BURSA CBS
ERZURUM 2. ASC
ORHANGAZİ 3. ASC
BURSA CBS
YENİŞEHİR ASC
BURSA CBS
BURSA 16. AĞC
BURSA 16. AĞC
BURSA 15. ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
YENİŞEHİR ASC
BURSA CBS
BURSA 15. ASC
excel için yapılmış bu kodları uyarlayabilir miyiz ? ( pDict.Add "AĞC", "Ağır Ceza Mahkemesi") - ( pDict.Add "ACM", "Asliye Ceza Mahkemesi") ( pDict.Add "CBS", "Cumhuriyet Baş Savcılığı") şeklinde

Sub BulDegistir1()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add "ÅŸ", "ş"
pDict.Add "ı", "ı"
pDict.Add "Ç", "Ç"
pDict.Add "Ä°", "İ"
pDict.Add "Ş", "Ş"
pDict.Add "ü", "ü"
pDict.Add "Ö", "Ö"
pDict.Add "Ãœ", "Ü"
pDict.Add "Ğ", "Ğ"
pDict.Add "ÄŸ", "ğ"
pDict.Add "ö", "ö"
pDict.Add "ç", "ç"
'Buraya istenildiği kadar ekleme yapılabilir.

For Each p In pDict
Columns("C:AA").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub
Cevapla
Çözüldü #3
örnek çalışmanızı ekleyerek yeni konu açıp orda sormanız daha uygun olur.
Ayrıca açıklamanız bence yetersiz örnek çalışma üzerinde açıklama yapmanız anlamamızı kolaylaştırır
Cevapla
Çözüldü #4
Merhabalar
"Posta listesi yapmak için kullanılan"
formda aşağıdaki şekilde veriler bulunan "posta tablosundaki (birimi mahkeme savcılık" alanındaki)
Tablo :POSTA 
Alan adı :BİRİMİ MAHKEME SAVCILIK

ORHANGAZİ 3. ASC
BURSA 1. AĞC
BURSA 16. AĞC
BURSA 12. AĞC
İNEGÖL CBS
GEMLİK 2. ASC
ORHANGAZİ 1. ASC
GÖNEN ASC
GÖNEN ASC
BURSA CBS
BURSA CBS
BURSA CBS
BURSA CBS
BURSA 12. AĞC
BURSA CBS
BURSA CBS
BURSA CBS
ERZURUM 2. ASC
ORHANGAZİ 3. ASC
BURSA CBS
YENİŞEHİR ASC
BURSA CBS


ASC
AĞC
CBS
ŞEKLİNDE YAZILAN KISALTMALARI
ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ
CBS=CUMHURİİYET BAŞ SAVCILIĞI
şeklinde otomatik dönüştürebilir miyiz ? veya bul değiştir ile otomatik değiştirebilir miyiz ?
yada birimi mahkeme savcılık alanının yanına oluşturulan yeni bir alana kısaltmaları yazıp birimi mahkeme savcılık alanına çekmesini sağlayabilir miyiz ?
Özet olarak kısaltma şeklinde yazılan kelimeleri otomatik bir şekilde dönüştürebilirmiyiz ?
Ofis Access 2003
Teşekkürler



excel için yapılmış bu kodları Access ye uyarlayabilir miyiz ? ( pDict.Add "AĞC", "Ağır Ceza Mahkemesi") - ( pDict.Add "ACM", "Asliye Ceza Mahkemesi") ( pDict.Add "CBS", "Cumhuriyet Baş Savcılığı") şeklinde

Sub BulDegistir1()

Set pDict = CreateObject("Scripting.Dictionary")
pDict.Add "ÅŸ", "ş"
pDict.Add "ı", "ı"
pDict.Add "Ç", "Ç"
pDict.Add "Ä°", "İ"
pDict.Add "Ş", "Ş"
pDict.Add "ü", "ü"
pDict.Add "Ö", "Ö"
pDict.Add "Ãœ", "Ü"
pDict.Add "Ğ", "Ğ"
pDict.Add "ÄŸ", "ğ"
pDict.Add "ö", "ö"
pDict.Add "ç", "ç"
'Buraya istenildiği kadar ekleme yapılabilir.

For Each p In pDict
Columns("C:AA").Replace what:=p, replacement:=pDict.Item(p), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub
.rar POSTA deneme.rar (Dosya Boyutu: 63,99 KB | İndirme Sayısı: 5)
Cevapla
Çözüldü #5
1 - bu bölüm örnek çalışmaların yer aldığı bölüm bu konuya atıfta bulunup bağlantısını paylaşarak Access soruları bölümünde yeni konu açmalısınız.
2 - açıklamanız hala yetersiz bahsettiğiniz değişiklikler nerde yapılacak belli bir tabloda mı olacak yoksa sadece görünüşte mi olacak yani form üzerinden uzun uzun asliye..... yazarken tabloda olduğu gibi duracak mı?
3 - ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ bu verilerin bir tabloda yer alması daha uygun olmaz mı
ID, Kisaltma, Aciklama alanlarına sahip bir tabloya aktarılsa ve değiştirme işlemi o tabloya göre yapılsa daha uygun olmaz mı?

aklıma geldi bu kısaltmalar her zaman sonda mı oluyor?
Cevapla
Çözüldü #6
(19/11/2021, 13:16)berduş yazdı: 1 - bu bölüm örnek çalışmaların yer aldığı bölüm bu konuya atıfta bulunup bağlantısını paylaşarak Access soruları bölümünde yeni konu açmalısınız.
2 - açıklamanız hala yetersiz bahsettiğiniz değişiklikler nerde yapılacak belli bir tabloda mı olacak yoksa sadece görünüşte mi olacak yani form üzerinden uzun uzun asliye..... yazarken tabloda olduğu gibi duracak mı?
3 - ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ bu verilerin bir tabloda yer alması daha uygun olmaz mı
ID, Kisaltma, Aciklama alanlarına sahip bir tabloya aktarılsa ve değiştirme işlemi o tabloya göre yapılsa daha uygun olmaz mı?

aklıma geldi bu kısaltmalar her zaman sonda mı oluyor?
Evet her zaman bu kısaltma en sonda bulunuyor.
kısaltmaları bul değiştir tarzı ile aynı alanda (formu kapattıktan sonra) otomatik güncellesin
güncellenecek kısaltmalar
mahkeme adları olduğundan en fazla 15-20 adet veriden oluşan kısaltma listesinden oluşuyor

(19/11/2021, 13:48)atkbursa yazdı:
(19/11/2021, 13:16)berduş yazdı: 1 - bu bölüm örnek çalışmaların yer aldığı bölüm bu konuya atıfta bulunup bağlantısını paylaşarak Access soruları bölümünde yeni konu açmalısınız.
2 - açıklamanız hala yetersiz bahsettiğiniz değişiklikler nerde yapılacak belli bir tabloda mı olacak yoksa sadece görünüşte mi olacak yani form üzerinden uzun uzun asliye..... yazarken tabloda olduğu gibi duracak mı?
3 - ASC=ASLİYE CEZA MAHKEMESİ
AĞC=AĞIR CEZA MAHKEMESİ bu verilerin bir tabloda yer alması daha uygun olmaz mı
ID, Kisaltma, Aciklama alanlarına sahip bir tabloya aktarılsa ve değiştirme işlemi o tabloya göre yapılsa daha uygun olmaz mı?

aklıma geldi bu kısaltmalar her zaman sonda mı oluyor?
Evet her zaman bu kısaltma  en sonda bulunuyor.
kısaltmaları bul değiştir tarzı ile aynı alanda (formu kapattıktan sonra) otomatik güncellesin
güncellenecek kısaltmalar
mahkeme adları olduğundan en fazla 15-20 adet veriden oluşan kısaltma listesinden oluşuyor
Son Düzenleme: 19/11/2021, 13:49, Düzenleyen: atkbursa.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da