regExp kullandım 130 bin kayıtta önceki koda göre ortalama 1 saniye daha hızlı
1 - çalışmanıza bir modül ekleyip aşağıdaki kodları ekleyin

Public RegEx As Object 



Function RgExpReplace(metin As String) As String

    RgExpReplace = RegEx.Replace(metin, "")

End Function

2 - formdaki düğmenin kodunu aşağıdaki kodla değiştirin

Private Sub Komut8_Click()

t1 = Timer

Set RegEx = CreateObject("vbscript.regexp")

    RegEx.IgnoreCase = False

    RegEx.Global = True

    RegEx.Pattern = "[^A-Za-z0-9ÇçĞğıİŞşÖöÜü]"



    CurrentDb.Execute "update tablo set APART=RgExpReplace([PARTNO])"

t2 = Timer



MsgBox t2 - t1 & " saniyede Bitti"

End Sub

yeni yönteme göre oluşturulan dosya aşağıda yer almaktadır