Skip to main content

AccessTr.neT


Adresten İl Ve İlçe İsimlerini

Adresten İl Ve İlçe İsimlerini

#19
(15/08/2021, 11:12)feraz yazdı: InStrRev(Target.Value, " ")
ben de zaten bu kodu kullandım gerisi çoklu kopyala-yapıştırda ve silmede düzgün çalışması için
8. mesajdaki modül koduna bakarsanız 5. satırda zaten
Kod:
Dgr = Mid(Dgr, InStrRev(Dgr, " ") + 1)

(15/08/2021, 11:12)feraz yazdı: Berduş hocam o kadar kod yazmadan yukardaki basitçe buluyor örnek
ayrıca benim yazdığım kod satırı toplamda 23 iken sizin ki 33 ))
Cevapla
#20
Doğrudur abey.
Sizin kodda instr görmüştüm yanılmıyorsam ondan dolayı yzmıştım yada alternatif olsun diye.
Kodlarınızı zaten deneyememiştim bu vesile ile yine buldum hatanızı Img-grin


Alttaki gibi boşluksuz denermisiniz kodlarınızı.

KavaklıMah.LokmanSok.No:10BTavşanlıKÜTAHYA3
Cevapla
#21
(15/08/2021, 12:36)feraz yazdı: Alttaki gibi boşluksuz denermisiniz kodlarınızı.

KavaklıMah.LokmanSok.No:10BTavşanlıKÜTAHYA3
hepsini olduğu yazar ama zaten sayın @yyhy ye boşluk olmazsa ne yapılacak dediğimde
Alıntı:onu da yazan düşünsün
demişti ben de uğraşmadım

ama benzer sorun sizin kodda da var ben de hepsini yazıyor sizde hiç birini yazmıyor))
Cevapla
#22
Alıntı:ayrıca benim yazdığım kod satırı toplamda 23 iken sizin ki 33 ))

Aslında değişken felan eklemeseydim yada dizi kullanmasaydım kısa olurdu.
Kod anlaşılsın diye ve hızlı olsun diye dizi kullandım.
Beş yada 10 satırlarda çoklu işlemlerde farketmez ama atıyorum 50 bin satırda bir deneyin ne olacak hız Img-grin

Ayrıca application.enableevents=false ve  true kullanılır tek tek eklemede daha hızlı olur ama ben bu kodlara güvenmiyorum bazen kodları durduruyor kodunuza ekleyip f8 ile yazdığım kodları ekleyip deneyin birde eklemeden.Farkı görütsünüz zaten f8 ile adım adım çalıştırırken abey.

(15/08/2021, 12:41)berduş yazdı: hiç birini yazmıyor))
Sebebi zaten boş yoksa boş bırak kodu var M sütununu Img-grin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task