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.
Bir altform alanında çok altform göstermek
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.
Bu arada ilk mesaja programı yükledim.
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.
İ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
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
Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Like"*"&[metin kutusu]&"*"
Sn hezarfen70;
Dikkat edin, Isin_Turu alanında sayı saklıyorsunuz
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
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.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Son sayfaya gitmeden işe maydanoz olmuşum
Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu?
Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu?
Filtrelemede Ölçüt
Like"*"&[metin kutusu]&"*"
Like"*"&[metin kutusu]&"*"
(06/12/2009, 00:17)firdevs yazdı: Son sayfaya gitmeden işe maydanoz olmuşumne özrü
Ne kadar cahilim. Hemde bu kadar hocanın yanında olur mu bu?
Elbetteki fikrinizi yazacaksınız.
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.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Konuyu Okuyanlar: 5 Ziyaretçi