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
  [FONKSiYON] Access Yada Excel Tablosunda Yer Alan Verileri Xml Ile Entegre Etmek cuneyt_emir 4 129 11-02-2020, 15:31
Son Mesaj: onur_can
  [SORGU] Uzun Olan Süreleri Kısaltma Kodu footprinting 6 110 04-02-2020, 16:42
Son Mesaj: footprinting
  Alan Boş Ise Not Yazma adnan 2 61 29-01-2020, 12:50
Son Mesaj: adnan
  [SORGU] Dinamik Rapor Boş Alan Kayıt Getirme Sorunu Ahmet51 14 291 12-12-2019, 19:55
Son Mesaj: Ahmet51
  [FONKSiYON] Tüm Alan Kontrolü Ve Güncelle Uyarısı Ahmet51 10 254 04-12-2019, 18:50
Son Mesaj: Ahmet51
  Sorguda Nerede Hata Var? sefersanli 2 130 23-11-2019, 09:47
Son Mesaj: sefersanli
  Tabloda Alan Saydırma sefersanli 4 157 21-11-2019, 20:13
Son Mesaj: sefersanli
  [FORM] Formdan Kayıt Ederken Hata husem 4 127 17-11-2019, 11:14
Son Mesaj: husem

Foruma Git:


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