واريز كمبوباكس به فيلدهاي سابفرم

[reza850101]

باسلام
من روي فرمم يك كمبوباكس ايجاد كردهام كه ميخواهم درزمان كليك بروي محتوايات آن اطلاعات درفيلدهاي شماره مشمول ومشمولين كه درساب فرم است درج شود اميدوارم مثل هميشه دوستان راهنما نمايند
اينم آدرس

http://barnamenevis.org/forum/showthread.php?t=110068

[ehsan_y]

سلام
اين كد رو توي update كمبو قرار بده


Set db = CurrentDb
Set rst = db.OpenRecordset("نام تيبلي كه بايد ركورد جديد به آن اضافه شود")

rst.AddNew
rst.Fields("نام فيلدي كه بايد اطلاعات در آن ثبت شود").Value =combo1.value
rst.Update


جاي combo1 نام كمبو رو بذار فكر كنم مشكلت حل بشه .

[مهدی قربانی]

سلام
فكر كنم منظور آقا رضا مرتبط كردن اطلاعات موجود در كامبو با سابفرم باشه براي اين منظور اول از طريق ويزارد يه كامبو از نوع سوم روي فرم اصلي ايجاد كنيد بعد سابفرم رو اضافه كنيد .

[reza850101]

باتشكر از كدي كه آقاي احساني گذاشتند فقط دو اشكال داره - (اول اينكه دركدام آپديت بايد قرارگيرد افتر يا بيفور)اماپس اينكه در افترآپديت قردادم درزمان كليك دركامبو يك ركود ايجادميكند وكامبورادرآن واريزميكند درحاليكه درساب فرم ركود وجوددارد كه بايد باكليك بركامبو محتوياتش درفيلد آن ركود واريزشود اگر ممكن است كد را درساب فرم تست نماييد . ضمنا براي كامبوهايي كه داراي دوستون يابيشتر باشد چطور عمل ميشود؟

[ehsan_y]

سلام
دوست عزيز
1- در after بايد قرار بدهي .
2- براي بقيه گزينه ها مي توني از lookup استفاده كني . يعني بقية ستونها رو با توجه به مقدار برگشتي از كمبو lookup كني .
منظورتون رو از بقيه حرفاتون نفهميدم اگه اينه كه اين ركورد جديد ديده نمي شه در ساب فرم تا باز شدن مجدد فرم مي تونيد در ادامه همون كد مقدار SourceObject ساب فرمتون رو دوباره مساوي قرار بدين با همون چيزي كه قبلاً بوده مثلاً اگه ارتباط اين سابفرم با يك كوري به اسم ali باشه در آخرين خط كدتون دوباره مساوي با همين قرار مدين كه باعث مي شه دوباره بروزآوري بشه .
اگه منظورتون اين نبوده يا بيشتر توضيح بدين يا يه نمونه بذارين .