hocam yazdıgım ıkı konu ıcınde ek yoluyorum
birisi form uzerınde ekledıgım dugmeye dedıgınız kodu yazdım ancak hata verdı 
hatalı bır ıslem yapmıs olabılırım
ıkıncı konu ıse 
excel baglı tabloya acces uzerınden verı gırısı guncelleme nasıl yaparım ?

---

(09/07/2023, 00:34)berduş yazdı: örnek çalışmanızı ekleyin inceleyelim
tablo yada alan adları farklıysa o nedenle olabilir tablo adı ne?

ıkı konu ıcınde dosya ekledım,
bırısı Excel bir calısma sayfasını bagladım accesten Excel uzerınde guncelleme ıhtıyacı
yolladıgınız kodu dugmeye atadım ancak sarı ısaretle uyarı verdı calısmadı

(09/07/2023, 00:42)sevincili yazdı: ıkıncı konu ıse 
excel baglı tabloya acces uzerınden verı gırısı guncelleme nasıl yaparım ?

her konuda tek soru sorulmalı, diğer soru için zaten konu açmışsınız ilgili cevabı oraya yazdım

---

(09/07/2023, 00:42)sevincili yazdı: form uzerınde ekledıgım dugmeye dedıgınız kodu yazdım ancak hata verdı 

ilk mesajımda size 2 şey daha söylemiştim
modül ekleyip fonksiyonu oraya yazacaktınız
dosyanızda fonksiyon eklenmemiş.
1 - çalışmanıza yeni bir modül ekleyin
2 - modüle aşağıdaki kodu ekleyin

Function AlphaNumeric(metin As String) As String

 

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

xBoy = Len(metin & "")

For x = 1 To xBoy

xHrf = Mid(metin, x, 1)

    If xHrf Like xAlfaNum Then xVeri = xVeri & xHrf

Next

AlphaNumeric = xVeri

End Function

yukardaki 2 adımı atlamışsınız.
ilgili dosya aşağıda yer almaktadır

bir gelişme var mı?
çalışmanıza uyarlayabildiniz mi?

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

açtığınız konulara lütfen olumlu yada olumsuz dönüş yapın.

(11/07/2023, 16:20)berduş yazdı: açtığınız konulara lütfen olumlu yada olumsuz dönüş yapın.

Hocam harikasınız istediğim oldu 
nerede hata yaptığımı anlamaya çalışıyorum
çok teşekkür ederim yolladığınız dosya tam olarak istediğimi yaptı