ثبت مقدار در فیلد از طریق فرم دیگر

[iransim]

سلام دوستان ، ممنون میشم راهنمائی بفرمائید
من دو تا فرم دارم بنام Form1 و Form2 ، از طریق فرم 2 اطلاعات پروژه مربوط به شهرهای مختلف را ذخیره میکنم ، هر شهر اسم و یک کد سه رقمی خاص دارد که از طریق ی کمبو انتخاب میشه ، حالا میخوام در ّForm1 از طریق یک کمبو با انتخاب شهر مورد نظر و زدن کلید ( ثبت شهر ) وارد Form2 شده به صورتی که در Form2 در فیلد نام شهر و کد شهر مقادیر انتخابی از Form1 قرار گرفته و غیر قابل تغییر باشه و دیگه برای ثبت پروژه ها نیاز به انتخاب مجدد شهر مورد نظر نباشه .

سپاس از لطف شما

[eb_1345]

سلام دوستان ، ممنون میشم راهنمائی بفرمائید
من دو تا فرم دارم بنام Form1 و Form2 ، از طریق فرم 2 اطلاعات پروژه مربوط به شهرهای مختلف را ذخیره میکنم ، هر شهر اسم و یک کد سه رقمی خاص دارد که از طریق ی کمبو انتخاب میشه ، حالا میخوام در ّForm1 از طریق یک کمبو با انتخاب شهر مورد نظر و زدن کلید ( ثبت شهر ) وارد Form2 شده به صورتی که در Form2 در فیلد نام شهر و کد شهر مقادیر انتخابی از Form1 قرار گرفته و غیر قابل تغییر باشه و دیگه برای ثبت پروژه ها نیاز به انتخاب مجدد شهر مورد نظر نباشه .

سپاس از لطف شما

سلام
من به کرات به دوستان عزیز عرض کرده ام برای اینکه سریعتر به جواب سوالاتشون برسن لازمه سوال رو در قالب یک فایل نمونه مطرح بفرماین. خوبی اینکار اینست که دوستانی که تمایل به پاسخ دادن دارن مستقیم به فایل ارائه شده رجوع و کد مورد نظر خودشون رو تست و در صورت درستی نتیجه رو اعلام میکنن .
جواب سوال شما زیاد پیچیده نیست ولی بهتره یک فایل نمونه ارائه بدین

[iransim]

سلام
من به کرات به دوستان عزیز عرض کرده ام برای اینکه سریعتر به جواب سوالاتشون برسن لازمه سوال رو در قالب یک فایل نمونه مطرح بفرماین. خوبی اینکار اینست که دوستانی که تمایل به پاسخ دادن دارن مستقیم به فایل ارائه شده رجوع و کد مورد نظر خودشون رو تست و در صورت درستی نتیجه رو اعلام میکنن .
جواب سوال شما زیاد پیچیده نیست ولی بهتره یک فایل نمونه ارائه بدین

سلام و عرض ادب و پوزش بابت عدم رعایت موارد

فایل نمونه خدمت شما و دیگر دوستان

[eb_1345]

سلام
در رویداد کلیک کمند باتن ثبت کدهای زیر رو وارد کن!

DoCmd.OpenForm "Form2", acNormal, "", "", acAdd, acNormal

Form_Form2.IDCity = Combo2.Column(1)

Form_Form2.City = Combo2.Column(0)

برای غیر قابل تغییر کد و نام شهر هم میتونید خصوصیت locked اونها رو در حالت yes قرار بدی
موفق باشی

[iransim]

سلام
در رویداد کلیک کمند باتن ثبت کدهای زیر رو وارد کن!

DoCmd.OpenForm "Form2", acNormal, "", "", acAdd, acNormal

Form_Form2.IDCity = Combo2.Column(1)

Form_Form2.City = Combo2.Column(0)

برای غیر قابل تغییر کد و نام شهر هم میتونید خصوصیت locked اونها رو در حالت yes قرار بدی
موفق باشی

عرض سلام مجدد و تشکر از راهنمائی
کدهای ارائه شده راهگشا بود فقط دو تا مشکل هست
1 - ی کلید برای ثبت رکورد جدید روی فرم گذاشتم ، با این کد

Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
وقتی کلید ثبت جدید رو میزنم مجددا فیلد نام شهر و کد شهر برای انتخاب یا ورود اطلاعات خالی میشه در صورتی که میخوام فیلدهای نام شهر و کد شهر بر اساس همون انتخاب اولیه برای ثبت جدید و ویرایش رکورد ثابت بمونه و تغییر نکنه

2 - وقتی به فرم اول برمیگردم و کد و نام شهر دیگری رو انتخاب میکنم و وارد فرم دوم میشم کد و نام شهر آخرین رکوردی که روی فرم دوم هست ( و ممکنه شه انتخاب شده مجدد نباشه ) رو نیز تغییر میکنه در واقع ( آخرین رکورد جاری میشه مشخصات پروژه ای که قبلا ثبت شده ولی با کد و نام شهر انتخابی جدید )
ممنون میشم در این مورد هم راهنمائی کنید .

[eb_1345]

متوجه مشکل اول شدم ولی دومی نه
برای برطرف شدن مشکل اول دوتا متغییر زیر رو دریک ماژول عمومی قرار بده و در فرم اول در رویداد AfterUpdate کمبو باکس کد زیر رو قرار بده :

NameCity = Combo2.Column(0)

CodeCity = Combo2.Column(1)

بعد در رویداد کلید ثبت فرم اول کدهای زیر رو وارد کن :

DoCmd.OpenForm "Form2", acNormal, "", "", acAdd, acNormal

Form_Form2.IDCity = CodeCity

Form_Form2.City = NameCity

و در رویداد ثبت جدید فرم دوم کدهای زیر رو وارد کن :

Me.AllowAdditions = True

DoCmd.GoToRecord , , acNewRec

If Not IsNull(CodeCity) Then IDCity = CodeCity

If Not IsNull(NameCity) Then City = NameCity

این کدها رو بصورتی که عرض کردم در رویدادهای مربوطه وارد کن شاید مشکل دوم هم که من متوجه نشدم برطرف شد

[eb_1345]

ضمناً در کلید ثبت شهر در فرم اول با دستور DoCmd.OpenForm "Form2", acNormal, "", "", acAdd, acNormal فرم دوم در حالت ایجاد رکورد جدید باز میشه و اگه نمیخواهی فرم در حالت ایجاد رکورد جدید باز بشه دستور باز شدن فرم دوم رو بصورت DoCmd.OpenForm "Form2" تغییر بده!

[iransim]

متوجه مشکل اول شدم ولی دومی نه
برای برطرف شدن مشکل اول دوتا متغییر زیر رو دریک ماژول عمومی قرار بده و در فرم اول در رویداد AfterUpdate کمبو باکس کد زیر رو قرار بده :

NameCity = Combo2.Column(0)

CodeCity = Combo2.Column(1)

بعد در رویداد کلید ثبت فرم اول کدهای زیر رو وارد کن :

DoCmd.OpenForm "Form2", acNormal, "", "", acAdd, acNormal

Form_Form2.IDCity = CodeCity

Form_Form2.City = NameCity

و در رویداد ثبت جدید فرم دوم کدهای زیر رو وارد کن :

Me.AllowAdditions = True

DoCmd.GoToRecord , , acNewRec

If Not IsNull(CodeCity) Then IDCity = CodeCity

If Not IsNull(NameCity) Then City = NameCity

این کدها رو بصورتی که عرض کردم در رویدادهای مربوطه وارد کن شاید مشکل دوم هم که من متوجه نشدم برطرف شد

سلام و پوزش مجدد
شرمنده من متوجه نشدم منظور از دو تا متغییر و نحوه قرار دادن و تعریف اونا در یک ماژول چطوری انجام میشه

[eb_1345]

سلام و پوزش مجدد
شرمنده من متوجه نشدم منظور از دو تا متغییر و نحوه قرار دادن و تعریف اونا در یک ماژول چطوری انجام میشه

سلام
نمونه اصلاح شده خودتو بررسی کن

[iransim]

سلام
نمونه اصلاح شده خودتو بررسی کن

سپاس از لطف و راهنمائی شما دوست عزیز