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
13085

Bir altform alanında çok altform göstermek

Çözüldü #25
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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
hezarfen70
Üye
hezarfen70
Bul
Üye
Adı Soyadı: Sa.... Öz....
Yaşı: 50
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
Çözüldü #27
firdevs
Aktif Üye
firdevs
Bul
Aktif Üye
Adı Soyadı:
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/05/2014,23:39
Yorumları: 296
Konuları: 34
Kayıt Tarihi: 22/02/2009
Teşekkür Puanı: 46
İ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
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
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
firdevs
Aktif Üye
firdevs
Bul
Aktif Üye
Adı Soyadı:
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/05/2014,23:39
Yorumları: 296
Konuları: 34
Kayıt Tarihi: 22/02/2009
Teşekkür Puanı: 46
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
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
(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
Task