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