Bir cümle içerisinde geçen karakteri Access'te değiştirmek istiyorsanız Replace komutu kullanabilirsiniz. Bir yazı içerisinde DoçDr. şeklindeki bir ibareyi Doç.Dr. olarak değiştirmek istediğimizi varsayalım.

Access 2010 ile örnek programımızı hazırlayalım. Boş bir veritabanı dosyasını açıyor ve içerisinde bir form oluşturuyorum. Tasarım modunda iken bir adet metin kutusu ve bir adet buton ekliyorum. Kontrollerin isimleri şu şekilde olsun:

Şimdi btn_degistir isimli butonumuzun üzerine sağ tıklayarak açılan menünün en altındaki Özellikler seçeneğini tıklayalım. Açılan pencerede Olay Sekmesi - Tıklatıldığında alanının içine bir kere tıklayalım. Hemen sağ tarafında üç nokta (...) şeklindeki butona tıklayalım ve açılan minik penceredeki Kod Oluşturucusuna çift tıklayarak kodumuzu yazacağımız VBA Editör penceremize geçiş yapalım.

Kod penceremizde butonun kodları arasında imleç otomatik olarak yerleşmiş bizi bekliyor olacak:

1
2
3
4

Private Sub btn_degistir_Click()
 
 
End Sub

Değiştirmek istediğimiz cümle "DoçDr. Zümrüt Güzeltaş seminere geldi." şeklinde olsun. DoçDr. içinde Doç harflerinden sonra bir adet nokta eklemek isteyelim.

1
2
3
4
5

Private Sub btn_degistir_Click()
 
     txt_icerik = Replace(txt_icerik, "DoçDr.", "Doç.Dr.", 1, 1, vbTextCompare)
 
End Sub

3. satırda göreceğiniz gibi Replace komutunu kullanımını txt_icerik kontrolünün değerine eşitledik yani Replace komutunun uygulanmasından ortaya çıkacak değeri txt_icerik isimli metin kutusunun değeri olarak atadık. Replace komutunun içinde 6 adet parametreyi sırayla inceleyelim.

İlk parametremiz neyi,nereyi değiştireceğimizi söyleyeceğimiz yer. Biz txt_icerik isimli metin kutusunun içine yazdığımız yazıyı değiştirsin istiyoruz. Eğer isteseydik orayı şu şekilde de yazabilirdik:

1
2
3
4
5

Private Sub btn_degistir_Click()
 
    txt_icerik = Replace("DoçDr. Zümrüt Güzeltaş seminere geldi.", "DoçDr.", "Doç.Dr.", 1, 1, vbTextCompare)
 
End Sub

İkinci parametremizde değiştirmek istediğimiz ibareyi yazıyoruz. Üçüncü parametrede ise ne olarak değişmesini istiyorsak onu yazıyoruz. Dördüncü parametrede yer alan 1 rakamı ise cümlemizin kaçıncı karakterinden itibaren arayacağımızı belirtmemizi sağlıyor. Cümle başından itibaren DoçDr. ifadesini aramasını istediğimiz için o şekilde kullandık. Beşinci parametremizde kullandığımız 1 rakamı ise kaç defa değiştirme işlemini uygulayacağımızı ayarlamaktadır. Elimizdeki cümle "DoçDr. Zümrüt Güzeltaş seminere geldi. DoçDr. Zümrüt Güzeltaş seminere geldi. DoçDr. Zümrüt Güzeltaş seminere geldi. DoçDr. Zümrüt Güzeltaş seminere geldi." olacak şekilde metin kutusuna birkaç defa yapıştıralım. Daha sonra beşinci parametredeki 1 rakamını 3 yapalım. Sonucu inceleyecek olursanız sadece ilk 3 tane DoçDr. ibaresinin Doç.Dr. olarak değiştirildiğini fark edeceksiniz. Altıncı ve sonuncu parametrede yer alan vbTextCompare ise metin bazında karşılaştırma yapmamızı sağlıyor.