örnek veritabanımda görüldüğü gibi alan içerisinde "Fatsa İlçesi Büyükkoç Köyü Çelikli Mahallesi", "Fatsa Hatipli Beldesi Kadıoğlu Mahallesi" v.b. verilerimin içerisinden sonunda köyü yazanları köyü alanına "Büyükkoç Köyü", beldesi yazanları beldesi alanına "Hatipli Beldesi" sonunda mahallesi yazanları "Kadıoğlu mahallesi" mahallesi alanına almak istiyorum. Saygılarımla.

[code]
Dim str As String
Do
'ilk karakterden itibaren tükçe karakter kontrol et
ilk_karakter = 1
max_karakter = 139
eklenti = ""
tara = 1
Do
parca = Mid(not1, tara, 1)

If parca = vbCrLf Then
str = Replace(str, vbCrLf, "", 1)
MsgBox "enter"
End If

eklenti = eklenti & parca
tara = tara + 1
Loop Until tara >= max_karakter

eklenti = Left(eklenti, InStrRev(eklenti, "

soru şu aslında Tablonun bir alanındaki metnin bir kısmını form halinde iken görelim ama yazıcıda veya başka alana gönderirken bu kısım işlem dışı kalsın
benim aklıma gelen "[" "]" karakterleri arasındaki metni form halinde iken görelim ama yazıcıda veya diğer formlara gönderirken işlem görmesin
bunu fonksiyon haline getirip nasıl kullanabiliriz
başka ne yapılabilir siz nasıl kullanıyorsunuz

---

örnek verecek olursak 
me.borcdurumu.value = "Ödeme Yapmadı [iflas etmiş]"
formda böyle gözüksü