09-07-2023, 14:01
RegExp ile döngü kurulduğunda yavaş oluyor ama RegExp'in Replace özelliği kullanıldığında işlem baya hızlanıyor hatta bir önceki koddan daha hızlı. her ne kadar 130 bin kayıtta ortalama 1 saniye de olsa hız hızdır ))
1 - çalışmanıza bir modül ekleyip aşağıdaki kodları ekleyin
2 - formdaki düğmenin kodunu aşağıdaki kodla değiştirin
1 - çalışmanıza bir modül ekleyip aşağıdaki kodları ekleyin
Visual Basic
- 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
Visual Basic
- 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