22-01-2020, 20:12
Herkese selam,
Bir ana form üzerinde içiçe iki adet altformdan en içtekini tıkladığımda diğer altformda veriyi görüntülemek istiyorum. Bu konuda bildiğim kodu uyarladım ancak çalışmadı. "AltForm_isci_Bitmis_Odeme_Plani_tek" altformunu bulamadığına dair hata messajı verdi.
Ana Form adı: Frm_Emlak_Proje_Odenmis_isci_Odemeleri_List
Veriyi üzerinde Görüntülemek istediğim Altform adı: AltForm_isci_Bitmis_Odeme_Plani_tek
En içteki Altform adı: AltForm_isci_Bitmis_Odemeler_List
Altformlar birbirine isciID anahtarı ile bağlı.
AltForm_isci_Bitmis_Odemeler_List altformunun TIKLA özelliğine yazdığım kod ise
Private Sub Form_Click()
Dim rs As Object
Set rs = Forms![AltForm_isci_Bitmis_Odeme_Plani_tek].[Form].Recordset.Clone
rs.FindFirst "[OdemeID] = " & str(Nz(Me![OdemeID], 0))
If Not rs.EOF Then Forms![AltForm_isci_Bitmis_Odeme_Plani_tek].Bookmark = rs.Bookmark
End Sub
Formların iç içe görüntülerini ve bilgilerini de ekledim. Her iki altformun da veri aldığı tablonun adı: Tbl_Emlak_Proje_isci_Odeme_Plani
Teşekkür ederim.
Bir ana form üzerinde içiçe iki adet altformdan en içtekini tıkladığımda diğer altformda veriyi görüntülemek istiyorum. Bu konuda bildiğim kodu uyarladım ancak çalışmadı. "AltForm_isci_Bitmis_Odeme_Plani_tek" altformunu bulamadığına dair hata messajı verdi.
Ana Form adı: Frm_Emlak_Proje_Odenmis_isci_Odemeleri_List
Veriyi üzerinde Görüntülemek istediğim Altform adı: AltForm_isci_Bitmis_Odeme_Plani_tek
En içteki Altform adı: AltForm_isci_Bitmis_Odemeler_List
Altformlar birbirine isciID anahtarı ile bağlı.
AltForm_isci_Bitmis_Odemeler_List altformunun TIKLA özelliğine yazdığım kod ise
Private Sub Form_Click()
Dim rs As Object
Set rs = Forms![AltForm_isci_Bitmis_Odeme_Plani_tek].[Form].Recordset.Clone
rs.FindFirst "[OdemeID] = " & str(Nz(Me![OdemeID], 0))
If Not rs.EOF Then Forms![AltForm_isci_Bitmis_Odeme_Plani_tek].Bookmark = rs.Bookmark
End Sub
Formların iç içe görüntülerini ve bilgilerini de ekledim. Her iki altformun da veri aldığı tablonun adı: Tbl_Emlak_Proje_isci_Odeme_Plani
Teşekkür ederim.

