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.