سلام دوست عزیز gr_mahdi عزیز من برای آن سوال قبلی و پست قبلی جوابم گرفتم و نتیجه هم گرفتم ولی برای این relation جدید هم اگر می تونید دوباره راهنمایی کنید هر کاری می کنم برای این حالت جواب نمی گیرم؟؟؟یک حالت خاص هست چون فیلد که ارتباط برقرار می کند در دو جدول(table) هم نام نیست ( id_name_cd و code_name_cd ) ؟؟؟
من دستورات زیر را نوشتم ولی باپیغام خطا وitem not found in this collcetion روبرو می شوم
Dim db0 As Database, rel0 As Relation
Set db0 = CurrentDb
With db0
Set rel0 = .CreateRelation("cd_name0details_give_geta", "CD_NAME", "DETAILS_GIVE_GET")
rel0.Fields.Append rel0.CreateField("id_name_cd")
rel0.Fields.Append rel0.CreateField("code_name_cd")
rel0.Fields!CD_NAME.ForeignName = "id_name_cd"
.Relations.Append rel0
End With
Set db0 = Nothing
از اینکه باز هم مثل همیشه توجه می کنید و وقت صرف می کنید جلوتر تشکر میکنم...متشکر و ممنون هستم.