A.S.C Filtre, Grafik ve Raporlama Eklentisi

Alan Boş Olduğu Zaman Hata Veren Vba Kodu
#1
Merhaba kolay gelsin . Forum sitemiz üzerinden edindiğim bilgiler ile formumda üç alandan oluşan bilgileri Vba kodu ile yine aynı formda sağ tarafta bulunan diğer üç alana buton yardımı ile kopyalıyorum. Ancak alanlardan biri boş olur ise "Run-time eror 2046 " hata kodunu alıyorum ;


Private Sub Komut132_Click()
Dim mesaj
    mesaj = MsgBox("Bilgiler Sağ Tarafa Aktarılacak! Devam Edecekmisiniz ? ", vbYesNoCancel)
    If mesaj = vbYes Then
DoCmd.GoToControl "bir_adi"
DoCmd.RunCommand acCmdCopy
DoCmd.GoToControl "iki_adi"
DoCmd.RunCommand acCmdPaste
DoCmd.GoToControl "bir_maili"
DoCmd.RunCommand acCmdCopy
DoCmd.GoToControl "iki_maili"
DoCmd.RunCommand acCmdPaste
DoCmd.GoToControl "bir_telefonu"
DoCmd.RunCommand acCmdCopy
DoCmd.GoToControl "iki_telefonu"
DoCmd.RunCommand acCmdPaste
End If
End Sub

Bu koda nasıl bir ekleme yapmam lazım. İlgiliniz için şimdiden teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#2
Sn Satir;

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.               me.iki_adi=me.bir_adi
  6.               me.bir_maili=me.iki_maili
  7.               me.bir_telefonu=me.iki_telefonu
  8.     End If
  9. End Sub



olarak degistirin. Sag taraf alt form ise me.AltformAdi.Form.iki_adi=me.bir_adi olarak yapin.



  Alıntı
Bu mesajı beğenenler:
#3
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. if IsNull(bir_adi) or IsNull(bir_maili) Or IsNull (bir_telefonu) Then
  6. Msgbox "Lütfen Boş alanları tamamlayınız!"
  7. Exit Sub
  8. Else
  9. DoCmd.GoToControl "bir_adi"
  10. DoCmd.RunCommand acCmdCopy
  11. DoCmd.GoToControl "iki_adi"
  12. DoCmd.RunCommand acCmdPaste
  13. DoCmd.GoToControl "bir_maili"
  14. DoCmd.RunCommand acCmdCopy
  15. DoCmd.GoToControl "iki_maili"
  16. DoCmd.RunCommand acCmdPaste
  17. DoCmd.GoToControl "bir_telefonu"
  18. DoCmd.RunCommand acCmdCopy
  19. DoCmd.GoToControl "iki_telefonu"
  20. DoCmd.RunCommand acCmdPaste
  21. Endif
  22. Else
  23. Msgbox "Kopyalama kullanıcı tarafından iptal edildi"
  24. End If
  25. End Sub


yukarıdaki kodu eklemeniz yeterli.



  Alıntı
Bu mesajı beğenenler:
#4
Çok teşekkür ederim cevaplar için .Onurcan Can hocam çok sağolun yazdığınız kod işime yaradı ama . Benim ilk yazdığımda boş alan var ise hiç kopyalamıyordu. Sizin düzelttiğiniz kodda bu yönde çalışıyor. Acaba boş alan olsa bile olanları kopyala nasıl denir.



  Alıntı
Bu mesajı beğenenler:
#5
Tam olarak anlayamadım sn satir, yani üç alanın içinde diyelim ki 1 ve 3. alan boş 2. alan dolu olduğu zaman yine de kopyalasın mı istiyorsunuz? (bu durumda boş alanlar boşluk olarak kopyalanır bu da işinize yarar mı bilmem)



  Alıntı
Bu mesajı beğenenler:
#6
Aynen Hocam . İstediğim bu yönde bir kod.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Farklı Türde Alan Birleştirme Sorunu alpincesu 3 79 10-09-2020, 08:41
Son Mesaj: alpincesu
  [FORM] Sürekli Formda Satırları 1 Alan Değerine Göre Renklendirmek hturkavci03 14 305 17-08-2020, 20:55
Son Mesaj: hturkavci03
  [MAKRO] Hata wet_dream 3 57 12-08-2020, 14:51
Son Mesaj: halily
  [VBA] Liste Kutusuna Vba Kodu Ile Veri çekmek footprinting 5 158 09-08-2020, 13:06
Son Mesaj: halily
access-sql-9 Validationrule Belirlemede Oluşan Hata alperalper 0 80 29-07-2020, 14:48
Son Mesaj: alperalper
  [FONKSiYON] Dlookup La Veri çekecem Hata Yapıyorum footprinting 4 182 22-07-2020, 14:08
Son Mesaj: feraz
  [FORM] Metin Kutusundaki #hata Yazısı Nasıl Kaldırılır footprinting 3 117 19-07-2020, 11:52
Son Mesaj: footprinting
  Tablo Alan Kıyaslama magggmar 2 137 08-07-2020, 10:02
Son Mesaj: alperalper

Foruma Git:


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