Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Modül Hata

[VBA] Modül Hata
memmetcavus
Aktif Üye 40-100

*
Kayıt Tarihi: 13.03.2012
Toplam 18 konu açtı.
Toplam 69 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 EN,
Beğeniler: 0 / 0
#1
30-03-2021, 11:42
SAYIN TARUZ öncelikle yapmış olduğunuz modül için teşekkür ederim elinize sağlık

Public Function trz(alan)
 
For i = 1 To Len(alan)
If (Mid(alan, i, 1)) <> " " Then trz = trz & Mid(alan, i, 1)
 
Next
 
End Function


bu fonksiyonda güncelleme yapılacak bir sutunda herhangi bir veri boş ise tüm verileri siliyor acaba yardımcı olabilir misniz.

      CurrentDb.Execute "update liste set [Stärken Zahnteilung] = trz([Stärken Zahnteilung])"
            CurrentDb.Execute "update liste set [title] = trz([title])"
            CurrentDb.Execute "update liste set [Länge] = trz([Länge])"

BU KONUDA YARDIMCI OLABİLECEK VARSA ÇOK MEMNUN OLURUM (HATA MESAJI EKTE)


Eklenti Dosyaları
.jpg   Ekran Alıntısı.JPG (Boyut: 14,69 KB / İndirilme: 41)



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#2
30-03-2021, 13:15
Alan metin türünde ise fonksiyonun en başına, for döngüsünden önce trz="" ekleyerek dener misiniz?



  Bul
  Alıntı
Bu mesajı beğenenler:
memmetcavus
Aktif Üye 40-100

*
Kayıt Tarihi: 13.03.2012
Toplam 18 konu açtı.
Toplam 69 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 EN,
Beğeniler: 0 / 0
#3
30-03-2021, 16:04
Public Function trz(alan)
 
 For i = 1 To Len(alan)

trz = ""
If (Mid(alan, i, 1)) <> " " Then trz = trz & Mid(alan, i, 1)
 
Next
 
End Function

bu şekilde yazdım ancak iş görmedi doğrumu



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#4
30-03-2021, 16:08
For döngüsünün üstünde olacak
Visual Basic
  1. Public Function trz(alan)
  2. Trz="" 
  3.  For i = 1 To Len(alan)
  4. If (Mid(alan, i, 1)) <> " " Then trz = trz & Mid(alan, i, 1)
  5. Next
  6. End Function





  Bul
  Alıntı
Bu mesajı beğenenler:
memmetcavus
Aktif Üye 40-100

*
Kayıt Tarihi: 13.03.2012
Toplam 18 konu açtı.
Toplam 69 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR, Office 2010 EN,
Beğeniler: 0 / 0
#5
30-03-2021, 16:21
Aynı hatayı verdi



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.597 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#6
30-03-2021, 17:18
Çalışmanızı ekleyin inceleyelim



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FONKSiYON] Fonksiyonda Hata zimbit 1 100 12-02-2024, 18:52
Son Mesaj: dsezgin
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 118 26-10-2023, 14:11
Son Mesaj: serdem48
  Ikon Eklerken Hata orhnkprn 2 126 27-01-2023, 00:54
Son Mesaj: BeyTor
  Error Hata Bora34 85 1.636 20-12-2022, 21:22
Son Mesaj: halily
  [SORGU] Sözdizimi Hata Kodu Alıyorum golf2000 12 456 29-08-2022, 20:00
Son Mesaj: halily
  Hata - (veritabanı Açılamıyor....) adnnfrm 4 266 16-07-2022, 08:37
Son Mesaj: onur_can
  [VBA] Iki Tarih Arası Filtrelemede Hata derzulya 2 196 17-06-2022, 08:14
Son Mesaj: derzulya
  Uygulamayı Kapattığımda Hata Mesajı Alıyorum M_Kemal_Askeri 3 197 07-02-2022, 22:45
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi