aşağıdaki fonksiyonu deneyiniz.

Function convert(metin)

    metin = Replace(metin, "Ä°", "İ")

    metin = Replace(metin, "Ãœ", "Ü")

    metin = Replace(metin, "Å", "Ş")

    metin = Replace(metin, "ÄŸ", "Ğ")

    metin = Replace(metin, "Ç", "Ç")

    metin = Replace(metin, "Ö", "Ö")

    convert = metin

End Function

Fonksiyonun kullanımı

Me.Metin2 = convert(Me.Metin1)

---

Veya web sayfasındaki

[html]content='text/html; charset=windows-1254'[/html]

kodlamasını

[html]content="text/html; charset=UTF-8"[/html]

şeklinde değiştiriniz

html kodunu değiştiremedim
sistem şu şekilde çalışıyor
başka bir programdan verileri "htm olarak kaydet" komutu ile sadece dosya ismi yazarak kaydediyorum
sadece dosya ismini belirleyebiliyorum,
htm dosyasında başka bir seçeneğim olmuyor
bu htm dosyasının varsayılan diye ayarları varmı
buradan ayarlansa

content="text/html; charset=UTF-8"

bu ayar nereden yapılabilir

sayın admin kodu denedim ama maalesef olmuyor

5 numaralı mesajda sayın Yandemir'in resimde göstermiş olduğu yerde Unicode (UTF-8) yaparsanız tüm diller için uyumlu olarak kaydeder. Bunun dışında kaydedilen dosyanın kodlamasını BOM olmadan Unicode olarak kaydetmelisiniz. Tüm bunlar olmuyorsa tüm örnek dosyalarınızı ekleyin biz bakalım.

Örnek eklemiştim ama silinmiş galiba
tekrar ekliyorum

eklediğniz web belgesinde

[html]
<META http-equiv='content-type' content='text/html; charset=windows-1254'><META http-equiv='content-type' content='text/html; charset=ISO-8859-9'>[/html]

olmak üzere iki tane lisan meta etiketi var.
bu meta etiketini silin. sadece
[html]
<META http-equiv='content-type' content='text/html; charset=utf-8'>[/html]
yazın.