AccessTr.neT

AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > Bir altform alanında çok altform göstermek
Tam Versiyon: Bir altform alanında çok altform göstermek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6

ozanakkaya

02/12/2009, 18:27
sn hezarfen70, eklentiler bölümünün resmi aşağıda, bu bölümden örneğinizi konuya ekleyebilirsiniz.


[Resim: adszvz.jpg]

Ayrıca, örnek için teşekkürler ayhan.

hezarfen70

05/12/2009, 16:43
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 Sub
Bu arada ilk mesaja programı yükledim.

firdevs

05/12/2009, 17:33
İ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.Img-grin
Kolay gelsin

ayhan2122

05/12/2009, 19:09
Sn hezarfen70;
Dikkat edin, Isin_Turu alanında sayı saklıyorsunuz Img-grin

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 Select

firdevs

06/12/2009, 00:17
Son sayfaya gitmeden işe maydanoz olmuşumImg-grin

Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu?Ozur

ayhan2122

06/12/2009, 00:56
(06/12/2009, 00:17)firdevs yazdı: [ -> ]Son sayfaya gitmeden işe maydanoz olmuşumImg-grin
Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu?Ozur
ne özrü Img-grin
Elbetteki fikrinizi yazacaksınız. Img-grin
Sayfalar: 1 2 3 4 5 6
AccessTr.neT > Microsoft Access > Access Cevaplanmış Soruları > Bir altform alanında çok altform göstermek