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