AccessTr.neT

Tam Versiyon: Sql Kodla Belirli Bir Alandaki Tire Boşluk Noktalama İşaretleri Vb Kaldırmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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ı
Sayfalar: 1 2