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