Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] aynı formu farklı içerikle birden fazla açma

[VBA] aynı formu farklı içerikle birden fazla açma
88888888
Önemli Üye 300-400

*
Kayıt Tarihi: 27.03.2010
Toplam 44 konu açtı.
Toplam 326 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003, Office 2007 TR,
Beğeniler: 0 / 0
#1
01-11-2013, 15:33
merhaba üstadlarım

Visual Basic
  1. Select Case Me.ihsay
  2. Case 0
  3. MsgBox "Evraka Bağlı Resmi İhtar Bulunmamaktadır.", vbInformation, "U Y A R I"
  4. Case 1
  5. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ihtar_tarih_no]"
  6. Case 2
  7. Me.ih1 = Split(Me.ihtar_no, " ")(0)
  8. Me.ih2 = Split(Me.ihtar_no, " ")(1)
  9. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih1]"
  10. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih2]"
  11. Case 3
  12. Me.ih1 = Split(Me.ihtar_no, " ")(0)
  13. Me.ih2 = Split(Me.ihtar_no, " ")(1)
  14. Me.ih3 = Split(Me.ihtar_no, " ")(2)
  15. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih1]"
  16. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih2]"
  17. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih3]"
  18. Case 4
  19. Me.ih1 = Split(Me.ihtar_no, " ")(0)
  20. Me.ih2 = Split(Me.ihtar_no, " ")(1)
  21. Me.ih3 = Split(Me.ihtar_no, " ")(2)
  22. Me.ih4 = Split(Me.ihtar_no, " ")(3)
  23. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih1]"
  24. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih2]"
  25. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih3]"
  26. DoCmd.OpenForm "Frm_iht", , , "[tbl_ihtar]![ihtarno]=[Formlar]![Frm_evrak]![ih4]"
  27. Case Else
  28. MsgBox "Çok Fazla Kayıt Bulunduğundan Açılamamaktadır", vbInformation, "U Y A R I"
  29. End Select


kodunu kullanarak ayrı formlar olarak açmaya çalıştım ama en son olanı alıyor
aynı formu birden fazla nasıl açabilirim



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.094 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#2
01-11-2013, 16:36
Sayin 8...;

Varolan tek formu ayri ayri actirma en son kayit kaynagi ile sonuclanir. Tek form da uc listbox'a rowsource'ye ait soru kriter alanina mesajinizdaki kullandiginiz select eylemini yazdirip, istediginiz farkli verileri listeleyebilirsiniz.

Kolay gelsin....
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Birden Fazla Sorguyu Tek Ekranda Görebilme MERAK 1 277 03-11-2025, 08:27
Son Mesaj: dsezgin
  Aynı Günleri Filtreleme Satir 7 650 30-04-2025, 09:33
Son Mesaj: Satir
  [VBA] Birden çok Seçenek Seçili Alandaki Verileri Kopyalama evidi 9 676 26-02-2025, 17:36
Son Mesaj: evidi
  Sorguda Birden Fazla Ifadeli Sütunu Toplatma halil.tefci 8 774 03-12-2024, 15:01
Son Mesaj: dsezgin
  [FORM] Mouse Ile Açık Formu Kapatmak hmuratg 1 335 06-11-2024, 16:08
Son Mesaj: kahramanselim
access-sql-4 Dili Farklı Olan Barkod Okuyucudan Okutunca Farklı Sonuçlar Alıyorum gundogdu42 1 352 27-09-2024, 07:58
Son Mesaj: dsezgin
  [RAPOR] Formdaki Aynı Rrsmı Baskı ön ızleme ıle Rapora Aktarma MHMTKY 2 429 11-09-2024, 13:09
Son Mesaj: dsezgin
  [TABLO] Ada Ve Parsel Bilgisini Farklı Bir Kolonda Birleştirme mmisildar 4 477 04-09-2024, 13:37
Son Mesaj: mmisildar

Foruma Git:


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