Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Bir altform alanında çok altform göstermek

hezarfen70
hezarfen70
Access Cevaplanmış Soruları
32
14378

Bir altform alanında çok altform göstermek

Çözüldü #26
hezarfen70
Üye
hezarfen70
Bul
Üye
Adı Soyadı: Sa.... Öz....
Yaşı: 51
Konum: Karaman
Ofis Versiyonu: Ofis 2003
Son Oturumu: 06/11/2019,20:43
Yorumları: 21
Konuları: 4
Kayıt Tarihi: 18/04/2009
Teşekkür Puanı: 6
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Bir altform alanında çok altform göstermek - Yazar: hezarfen70 - 05/12/2009, 16:43
Task