AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Bir altform alanında çok altform göstermek

1 2 3 4 5 6
02/12/2009, 18:27

ozanakkaya

sn hezarfen70, eklentiler bölümünün resmi aşağıda, bu bölümden örneğinizi konuya ekleyebilirsiniz.




Ayrıca, örnek için teşekkürler ayhan.
05/12/2009, 16:43

hezarfen70

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.
05/12/2009, 17:33

firdevs

İ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
05/12/2009, 19:09

ayhan2122

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 Select
06/12/2009, 00:17

firdevs

Son sayfaya gitmeden işe maydanoz olmuşum
Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu?
06/12/2009, 00:56

ayhan2122

(06/12/2009, 00:17)firdevs yazdı: Son sayfaya gitmeden işe maydanoz olmuşum Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu? Elbetteki fikrinizi yazacaksınız.
1 2 3 4 5 6