A.S.C Filtre, Grafik ve Raporlama Eklentisi

Alan Boş Olduğu Zaman Hata Veren Vba Kodu
#7
O zaman kodu şu şekilde düzenlememiz gerekir. Bu durumda alanlar kontrol edilir. Eğer alanlardan biri veya daha fazlası boş ise boşluk karakterine eşitlenir, dolu olanlara zaten bir şey yapmamıza gerek yok. Diyelim ki 1. alan boş 2. alan dolu, 3. alan boş bu durumda gönderilecek veri;
alan1 = " "
alan2 = alan2de yazılan bilgi
alan3 = " "
Eğer boş alanları boşluk karakterine eşitlemeseydik acCmdCopy komutu Null değeri görüp hata verecekti.

Visual Basic
  1. Private Sub Komut132_Click()
  2. Dim mesaj
  3.    mesaj = MsgBox("Bilgiler Sağ Tarafa Aktarılacak! Devam Edecekmisiniz ? ", vbYesNoCancel)
  4.    If mesaj = vbYes Then
  5.  
  6. if IsNull(bir_adi) Then
  7. bir_adi = " "
  8. Endif
  9.  
  10. if IsNull(bir_maili) Then
  11. bir_maili = " "
  12. Endif
  13.  
  14. if IsNull(bir_telefonu) Then
  15. bir_telefonu = " "
  16. Endif
  17.  
  18. DoCmd.GoToControl "bir_adi"
  19. DoCmd.RunCommand acCmdCopy
  20. DoCmd.GoToControl "iki_adi"
  21. DoCmd.RunCommand acCmdPaste
  22. DoCmd.GoToControl "bir_maili"
  23. DoCmd.RunCommand acCmdCopy
  24. DoCmd.GoToControl "iki_maili"
  25. DoCmd.RunCommand acCmdPaste
  26. DoCmd.GoToControl "bir_telefonu"
  27. DoCmd.RunCommand acCmdCopy
  28. DoCmd.GoToControl "iki_telefonu"
  29. DoCmd.RunCommand acCmdPaste
  30. Else
  31. Msgbox "Kopyalama kullanıcı tarafından iptal edildi"
  32. End If
  33. End Sub





  Alıntı
Bu mesajı beğenenler:
#8
Onur Hocam sağolun . İstediğim gibi oldu . Teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FONKSiYON] Amortisman Formu Buton Kodu Ahmet51 0 26 Dün, 12:41
Son Mesaj: Ahmet51
  Kullanıcı Sihirbazı Hata OĞUZ TÜRKYILMAZ 0 44 19-02-2020, 23:17
Son Mesaj: OĞUZ TÜRKYILMAZ
  [FONKSiYON] Access Yada Excel Tablosunda Yer Alan Verileri Xml Ile Entegre Etmek cuneyt_emir 4 141 11-02-2020, 15:31
Son Mesaj: onur_can
  [SORGU] Uzun Olan Süreleri Kısaltma Kodu footprinting 6 113 04-02-2020, 16:42
Son Mesaj: footprinting
  Alan Boş Ise Not Yazma adnan 2 67 29-01-2020, 12:50
Son Mesaj: adnan
  [SORGU] Dinamik Rapor Boş Alan Kayıt Getirme Sorunu Ahmet51 14 299 12-12-2019, 19:55
Son Mesaj: Ahmet51
  [FONKSiYON] Tüm Alan Kontrolü Ve Güncelle Uyarısı Ahmet51 10 262 04-12-2019, 18:50
Son Mesaj: Ahmet51
  Sorguda Nerede Hata Var? sefersanli 2 135 23-11-2019, 09:47
Son Mesaj: sefersanli

Foruma Git:


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