Bir Formu Içindeki Altform Kriterine Göre Açmak
#1

.png   ProjeKayit.png (Boyut: 156,91 KB / İndirilme: 87)
.png   ProjeList.png (Boyut: 194,96 KB / İndirilme: 70) Herkese selam, Soruma iki adet resim ekledim. ProjeList resminde uygulamamdaki projelerin listesi ve bu projelerin sahiplerinin bilgilerinin olduğu "Frm_Emlak_Proje_List" var. Bu form üzerindeki Liste13'e tıklayarak seçtiğim projeyi ana formun üzerinde görüntülüyorum ve alttaki butonlarla yapacağım işlemi seçiyorum. Soruma eklediğim diğer resimde ise proje sahibi bilgilerine bağlı olarak yeni proje kaydettiğim "Frm_Emlak_Proje_Kayit" formu var. Yapmak istediğim şey ise, Frm_Emlak_Proje_List'ten seçtiğim projeye tıklayarak o projeyi Frm_Emlak_Proje_Kayit üzerinde görebilmek. Ama Proje kaydı bu form üzerinde altformda "AltForm_Emlak_Proje_Kayit" yapıldığı için form açma kriterini ilgili butonun altına yazamadım. Çünkü Frm_Emlak_Proje_Kayit anaformunda sadece proje sahibinin bilgileri var ve altform bu forma (ID) alanı ile bağlı. Ben ise altformdaki (EmlakOzel_ID) alanına bağlı olarak Frm_Emlak_Proje_Kayit formunun açılmasını istiyorum. nasıl yapabilirim mümkün müdür? Teşekkür ederim.



  Alıntı
Bu mesajı beğenenler:
#2
Sn M_Kemal_Askeri;
EmlakOzel_ID alani Frm_Emlak_Proje_Kayit formu tablo veya sorgusu ile iliskilendirilme alani yok ise yapilamaz.
Ornek VT ile bakilabilir, resim ile form kaynagi ve alanlari bilinmediginden oneri yapilamiyor.


DoCmd.OpenForm "Frm_Emlak_Proje_Kayit", acNormal, , "ID=" & Me.Parent.[ID], acFormEdit, acWindowNormal



  Alıntı
Bu mesajı beğenenler:
#3
Sayın dsezgin,

ilgili tablolar ilişkilidir. Kod maalesef çalışmadı. Eklediğim resimdeki hatayı verdi. Ben resime ilave olarak küçük bir veritabanı örneği ekledim. Teşekkür ederim.


Eklenti Dosyaları
.rar   Ornek.rar (Boyut: 57,95 KB / İndirilme: 64)
.png   ProjeHata.png (Boyut: 347,55 KB / İndirilme: 65)



  Alıntı
Bu mesajı beğenenler:
#4
DoCmd.OpenForm "Frm_Emlak_Proje_Kayit", acNormal, , "ID=" & Me.Liste13.Column(6), acFormEdit, acWindowNormal

Renkli olan yer ile değişiklik yapabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#5
Sayın dsezgin çok teşekkür ediyorum. Kod çalıştı. Sorun çözüldü. Ama bir şey farkettim. Listede bir kişiye (ID) ait bir tane proje varsa sorun yok o projeyi açıyor ancak bir kişiye ait birden fazla proje kayıtlı ise diğer projeyi seçseniz bile o kişiye ait ilk projeyi açıyor. Bu husus ta benim hesaba katmadığım bir şey. Ben birkaç değişiklik denedim ama olmadı. Yani sadece ID değil de aynı Liste13'teki ProjeID'nin de hesaba katılması gerekiyor.
Ben size teşekkür ederim sabırla cevapladığınız için.



  Alıntı
Bu mesajı beğenenler:
#6
Visual Basic
  1. Private Sub Komut68_Click()
  2. DoCmd.OpenForm "Frm_Emlak_Proje_Kayit", acNormal, , "ID=" & Me.Liste13.Column(6), acFormEdit, acWindowNormal
  3. Forms("Frm_Emlak_Proje_Kayit").AltForm_Emlak_Proje_Kayit.Form.RecordsetClone.FindFirst "ProjeAdi='" & Me.Liste13.Column(1) & "'"
  4. Forms("Frm_Emlak_Proje_Kayit").AltForm_Emlak_Proje_Kayit.Form.Bookmark = Forms("Frm_Emlak_Proje_Kayit").AltForm_Emlak_Proje_Kayit.Form.RecordsetClone.Bookmark
  5. End Sub



Dugme altindaki proseduru yukaridaki ile degistirin. Listede tiklanani alt formda arama satirlari eklenmistir.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Mouse Ile Açık Formu Kapatmak hmuratg 1 335 06-11-2024, 16:08
Son Mesaj: kahramanselim
  [SORGU] Sorgu Ifadesi Içindeki Fonksiyon Ifade Içinde Kullanılamaz Hatası Mecnun24 7 710 27-08-2024, 16:53
Son Mesaj: Mecnun24
access-sql-18 Format([giris], "dd-mm-yyyy" Sorgu Ifadesi Içindeki Derleme Hatası. gncbil 5 631 07-06-2024, 10:48
Son Mesaj: dsezgin
  [FORM] Alt Forum Dan Tıklandıgında Yenı Form Acmak sevincili 2 461 29-03-2024, 15:54
Son Mesaj: sevincili
  [TABLO] Formu Tabloda Filtreleme soss 2 487 27-03-2024, 20:04
Son Mesaj: soss
  Formu Pdf Olarak Kaydetme snapper 8 912 01-11-2023, 22:59
Son Mesaj: dsezgin
  [FORM] Gezinti Formu Ile Alt Form Oluşturmak abahceci 2 554 09-08-2023, 15:09
Son Mesaj: abahceci
  Excel Içindeki Tabloyu Access Vba Ile Refresh Etmek Hk. adnnfrm 2 549 05-08-2023, 02:23
Son Mesaj: adnnfrm

Foruma Git:


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