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

iransim

سه شنبه 18 بهمن 1401, 09:52 صبح

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

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

eb_1345

سه شنبه 18 بهمن 1401, 11:29 صبح

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

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

iransim

سه شنبه 18 بهمن 1401, 14:25 عصر

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

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

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

eb_1345

سه شنبه 18 بهمن 1401, 16:26 عصر

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

DoCmd.OpenForm "Form2", acNormal, "", "", acAdd, acNormal
Form_Form2.IDCity = Combo2.Column(1)
Form_Form2.City = Combo2.Column(0)

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

iransim

سه شنبه 18 بهمن 1401, 21:19 عصر

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

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

سه شنبه 18 بهمن 1401, 23:15 عصر

متوجه مشکل اول شدم ولی دومی نه
برای برطرف شدن مشکل اول دوتا متغییر زیر رو دریک ماژول عمومی قرار بده و در فرم اول در رویداد 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

سه شنبه 18 بهمن 1401, 23:22 عصر

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

iransim

چهارشنبه 19 بهمن 1401, 08:58 صبح

متوجه مشکل اول شدم ولی دومی نه
برای برطرف شدن مشکل اول دوتا متغییر زیر رو دریک ماژول عمومی قرار بده و در فرم اول در رویداد 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

چهارشنبه 19 بهمن 1401, 10:36 صبح

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

iransim

پنج شنبه 20 بهمن 1401, 10:38 صبح

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

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