(05/12/2009, 19:09)ayhan2122 yazdı: Sn hezarfen70;
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
Evet işte budur. Evet kardeşim tam istediğim gibi oldu saol, varol ellerine sağlık. Güzel oldu.