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ı