+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bir altform alanında çok altform göstermek (/konu-bir-altform-alaninda-cok-altform-gostermek.html)
Cvp: Bir altform alanında çok altform göstermek - ozanakkaya - 02/12/2009
sn hezarfen70, eklentiler bölümünün resmi aşağıda, bu bölümden örneğinizi konuya ekleyebilirsiniz.
![[Resim: adszvz.jpg]](http://img510.imageshack.us/img510/6373/adszvz.jpg)
Ayrıca, örnek için teşekkürler ayhan.
Cvp: Bir altform alanında çok altform göstermek - hezarfen70 - 05/12/2009
sn ayhan2122, eklemiş olduğunuz son altform programındaki kodları aşağıda verdiğim şekilde programıma uyarladım. Programı çalıştırdığımda "Olay özellik ifadesi ayarı olarak girdiğiniz Geçerli olduğunda ifadesi hataya neden oldu. Duplicate Option Statement" diye bir uyarı veriyor ve çalışmıyor.
Kod:
Private Sub Form_Current()
Select Case Isin_Turu
Case "Ambalaj Tasarımı"
Alt29.SourceObject = "AMBALAJ"
isler1.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case "Web Tasarımı"
Alt29.SourceObject = "WEB"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan"
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case "Baskılı İşler Tasarımı"
Alt29.SourceObject = "BASKILI"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case "Diğer İşler"
Alt29.SourceObject = "DIGER"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case ""
Alt29.SourceObject = ""
Alt29.LinkMasterFields = "" 'Üst Formdaki Alan
Alt29.LinkChildFields = "" 'Alt Formdaki Alan
End Select
End Sub
Private Sub Isin_Turu_AfterUpdate()
Select Case Isin_Turu
Case "Ambalaj Tasarımı"
Alt29.SourceObject = "AMBALAJ"
İsler1.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case "Web Tasarımı"
Alt29.SourceObject = "WEB"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan"
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case "Baskılı İşler Tasarımı"
Alt29.SourceObject = "BASKILI"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case "Diğer İşler"
Alt29.SourceObject = "DIGER"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case ""
Alt29.SourceObject = ""
Alt29.LinkMasterFields = "" 'Üst Formdaki Alan
Alt29.LinkChildFields = "" 'Alt Formdaki Alan
End Select
End SubBu arada ilk mesaja programı yükledim.
Cvp: Bir altform alanında çok altform göstermek - firdevs - 05/12/2009
İstediğiniz olur
ben yapmıştım.
Falsa ve true yöntemi ile
göster gizle olarak site içinde arama yap bulacağını sanıyorum.
Kendin araştırarak yaparsan hem sende kalıcı bilgi olur hem de bu projeyi ben yaptım diyeblirsin.
Kolay gelsin
Cvp: Bir altform alanında çok altform göstermek - ayhan2122 - 05/12/2009
Sn hezarfen70;
Dikkat edin, Isin_Turu alanında sayı saklıyorsunuz
Kod:
Select Case Nz(Isin_Turu, 0)
Case 1
Alt29.SourceObject = "Ambalaj"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case 2
Alt29.SourceObject = "Web"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan"
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case 3
Alt29.SourceObject = "Baskili"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case 4
Alt29.SourceObject = "diger"
Alt29.LinkMasterFields = "Is_Kodu" 'Üst Formdaki Alan
Alt29.LinkChildFields = "Is_Kodu" 'Alt Formdaki Alan
Case 0
Alt29.SourceObject = ""
End SelectCvp: Bir altform alanında çok altform göstermek - firdevs - 06/12/2009
Son sayfaya gitmeden işe maydanoz olmuşum
Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu?
Cvp: Bir altform alanında çok altform göstermek - ayhan2122 - 06/12/2009
(06/12/2009, 00:17)firdevs yazdı: Son sayfaya gitmeden işe maydanoz olmuşumne özrü
Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu?
Elbetteki fikrinizi yazacaksınız.