Bir tablomuz var ve bu tablodaki verilerimiz ADI_SOYADI alanında sıralı. Bir de türkçe karakterleri düzeltilmiş verilerin olduğu alan ekledim oraya. Yani orjinal veriyi update etmiyoruz da yanına convert edilen halini atıyoruz tabloya..
Önce kayıt sayısını form üzerinde gösteren bir alt form yaptık. Böylece tabloda kaç kayıt varsa sayıyor. Sonra da iki metin kutusu koydum. Birisi orjinal veri diğeri ise değiştirildikten sonraki veri. Şimdi komut düğmemize şu kodları ekliyoruz.
Kod:
Dim i, ilk, son As Integer
Dim adi As String
ilk = 1
son = [Tablo1 Sorgu alt formu].Form!SayADI_SOYADI
MsgBox "şimdi " & ilk & " ile " & son & " kayıtlar arası taranarak TR karakter kontrolu yapılacaktır"
For i = ilk To son Step 1
DoCmd.GoToRecord , , acGoTo, i
adi = Me.Metin0
Metin2 = Replace(adi, "İ", "I")
adi = Metin2
Metin2 = Replace(adi, "Ş", "S")
adi = Metin2
Metin2 = Replace(adi, "Ğ", "G")
adi = Metin2
Metin2 = Replace(adi, "Ç", "C")
adi = Metin2
Metin2 = Replace(adi, "Ö", "O")
adi = Metin2
Metin2 = Replace(adi, "Ü", "U")
If i = son Then
MsgBox "Tüm kayıtlar kontrol edildi", vbOKOnly, "MDEMİRAL"
End If
NextTabii sayın Bilgisayarcı'nın çalışması görsel olarak daha şık. Tercih sizin. Kolay uygularım dediğiniz projeyi kullanın. İkisinin de yolları farklı...
