arkadaşlar;

sayın Bilgisayarcı'nın
aşağıdaki soruda verdiği örneği ekteki belgeme uygulayamadım. nerde hatam var dünden beri bulamadım. yardımcı olabilir misiniz?

https://accesstr.net/konu-tablo-da-turkc...ht=replace

Option Compare Database

Function ReplaceStr(str As String) As String

  'Gelen değişken her ihtimale karşı büyük harfe döndürülüyor.

  'üğişçö sırasıyla UGUSCO haline getiriliyor

  'oluşan sonuç başındaki ve sonundaki boşluklardan kurtulup geriye atılıyor

  str = UCase(str)

  str = Replace(str, "Ü", "U", 1)

  str = Replace(str, "Ğ", "G", 1)

  str = Replace(str, "İ", "I", 1)

  str = Replace(str, "Ş", "S", 1)

  str = Replace(str, "Ç", "C", 1)

  str = Replace(str, "Ö", "O", 1)

  str = Replace(str, "ı", "I", 1)

  ReplaceStr = Trim(str)

End Function

Private Sub Komut_Click()



Dim Alan1 As ADODB.Field

Dim Alan2 As ADODB.Field

Dim Alan3 As ADODB.Field



Dim KaySay As Integer

Dim numara As Integer

  'Güncellenmesini istediğiniz tabloyu aşağıdaki şekilde yazıp açınız

  'Select * from tablo1

  'Örnek olması açısından 6 tane alan tanımladım.

  'Bu örnek tablodaki 6 alanın hepsinde üğişçö ÜĞİŞÇÖ karekterleri var.



  AdoAc1 ("Select * from KAYIT")



  'Adoyu açtık aşağıdaki şekilde atamalarınızı yapın.

  'Burada Alan Adı ile değişken adı aynı

  'Sizi yanıltmasın değişkenleri istediğiniz isimle açabilirsiniz.

  'örneğin ADSOYAD diye bir alanınız var. Bu durumda atama=  set alan1=rs1.Fields("ADSOYAD")

  'Değişkenleri bu şekilde set ederek işlemin daha hızlı olmasını sağlamaya çalıştım

  

    Set Alan1 = Rs1.Fields("ILCE ADI")

    Set Alan2 = Rs1.Fields("MAHALLE ADI")

    Set Alan3 = Rs1.Fields("SOKAK ADI")



 

  

  

  'durumu göstermek için atanan değişkenler.

  'kaç kayıt güncellenecek,kaçıncı güncelleniyor göstermek için

  

  KaySay = Rs1.RecordCount

  numara = 0

  Guncellenen = 0

  While Not Rs1.EOF

    DoEvents

    numara = numara + 1

    Durum.Caption = "Durum:" & numara & "/" & KaySay

    

    'Her alanı teker teker gönderiyoruz.

    'Fonksiyonun açıklaması yukarıda var.

    

    

    Alan1 = ReplaceStr(Nz([ILCE ADI], " "))

    Alan2 = ReplaceStr(Nz([MAHALLE ADI], " "))

    Alan3 = ReplaceStr(Nz([SOKAK ADI], " "))

  

  

    'Fonksiyon içinden dönen değerler alanlara atıldı. Update edelim ve bir sonrakine geçelim

    Rs1.Update

    Rs1.MoveNext

  Wend

  'Garbage collectorumuz yok,kendimiz yazalım...

  'açılan adoyu kapa,fieldleri boşalt...

  AdoKapa 1

  Set Alan1 = Nothing

  Set Alan2 = Nothing

  Set Alan3 = Nothing



End Sub