Skip to main content

AccessTr.neT


Bir altform alanında çok altform göstermek

Bir altform alanında çok altform göstermek

Çözüldü #25
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.
Cevapla
Çözüldü #26
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.
Son Düzenleme: 05/12/2009, 16:46, Düzenleyen: hezarfen70.
Cevapla
Çözüldü #27
İ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
Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Cevapla
Çözüldü #28
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

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #29
Son sayfaya gitmeden işe maydanoz olmuşumImg-grin

Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu?Ozur
Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Cevapla
Çözüldü #30
(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
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da