با سلام خدمت اساتید گرامی
من یه فیلد مشترک در فرم و سابفرم دارم
میخوام یکی از فیلدهای سابفرم رو از طریق فرم مقدار دهی کنم
ممنون میشم راهنمایی بفرمایین
Printable View
با سلام خدمت اساتید گرامی
من یه فیلد مشترک در فرم و سابفرم دارم
میخوام یکی از فیلدهای سابفرم رو از طریق فرم مقدار دهی کنم
ممنون میشم راهنمایی بفرمایین
سلام و روز خوش
فقط اون بخش از کد رو که مشکل دارین اینجا در تگ vb پیوست کنین و در صورت نیاز اسکرین شات هم بگذارین.
الان چند روز از پست شما گذشته و حتی یک نفر هم برنامه پیوست رو دانلود نکرده!
سلام خدمت شما بزرگوار و تشکر ویژه بابت زحمت و لطفی که میکشین و یک تنه کل زحمت تالار رو متحمل میشین
برای خودم هم جای سوال بود ؟ :متفکر::لبخندساده:نقل قول:
الان چند روز از پست شما گذشته و حتی یک نفر هم برنامه پیوست رو دانلود نکرده!
نقل قول:
فقط اون بخش از کد رو که مشکل دارین اینجا در تگ vb پیوست کنین و در صورت نیاز اسکرین شات هم بگذارین.
Private Sub ChekBox_Click()
If Me.ChekBox = True Then
Forms![Tbl_2 subform]![Num2] = Me.TxtMeghdar
End If
End Sub
اول یک روتین برای آپدیت سابفرم بنویسین:
SUB Update_Subform(meghdar AS VARIANT)
WITH ME.Tbl_2_subform.FORM.RECORDSET
.MOVEFIRST
DO WHILE NOT .EOF
.EDIT
!Num2=meghdar
.UPDATE
.MOVENEXT
LOOP
END WITH
END SUB
حالا هر جا که نیاز داشتین این روتین رو فراخوانی کنین، میتونه در ChekBox_AFTERUPDATE باشه یا TxtMeghdar_AFTERUPDATE یا ...
IF ME.ChekBox THEN Update_Subform (ME.TxtMeghdar)
احتمالا باید یک سناریو هم برای وقتی که چک باکس FALSE هست در نظر بگیرین!
سلام استاد عزیز
هزاران تشکر و قدر دانی از لطف و محبت شما
بسیار عالی و حرفه ای :تشویق:
من همین کد شما رو مجداٌ تکرارش کردم و این بار شرط رو برابر با صفر قرار دادمنقل قول:
احتمالا باید یک سناریو هم برای وقتی که چک باکس FALSE هست در نظر بگیرین!
یعنی اگه False بود برابر با 0 باشه
ولی جواب نداد و هر دو شرط داره اجرا میشه
باید از IF ... THEN ... ELSE استفاده کنین:نقل قول:
نوشته شده توسط G.hemati
IF ME.ChekBox THEN
Update_Subform(ME.TxtMeghdar)
ELSE
Update_Subform(0)
ENDIF
همچنین باید یک سناریو برای وقتی که رکورد جدید در سابفرم اضافه میکنین داشته باشین:
آیا وضعیت ChekBox و مقدار TxtMeghdar باید بررسی بشن یا نه؟
خیلی ممنونم استاد عزیز
فقط بیزحمت روش اعمال محاسبات در این روتین رو هم بگین ممنون میشم ، خیلی سعی کردم خودم انجام بدم و مزاحمتون نشم ولی متاسفانه موفق نشدم
میخوام وقتی تیک فعال میشه ، فیلد مبلغ تخفیف برابر باشه با : مبلغ کالا * درصد تخفیف / 100
و وقتی غیر فعال میشه، فیلد مبلغ تخفیف برابر با صفر باشه
1- برای محاسبه تخفیف بهتر هست فیلد تخفیف رو از نوع calculated انتخاب کنین و بهش فرمول بدین:
discount=discount_percent*price
فیلد تخفیف فعلی رو باید اول پاک کنین و یک فیلد تخفیف جدید با این شرایط که گفته شد بسازین.
2- معمولا در فاکتور تعداد و قیمت واحد هم داریم که مبلغ کالا از ضرب این دو به دست میاد - بهتر هست اینها رو اضافه کنید:
price=unit_price*quantity
فیلد قیمت هم میتونه از نوع calculated باشه
3- همچنین در فاکتور معمولا یک قیمت پس از تخفیف هم داریم (باز هم calculated و ممکنه بهش قیمت کل هم بگن که با جمع کل فاکتور نباید اشتباه بشه)
4- بجز تخفیف درصدی، تخفیف ریالی هم ممکنه برای هر یک از اقلام فاکتور داشته باشیم
5- آخر فاکتور باید تعداد اقلام و جمع کل همه موارد هم باشه
6- بهتر هست بجای چک باکس از یک باتن برای اعمال تخفیف روی همه اقلام استفاده کنین
برای وضعیت فعلی که دارین همین شماره 1 کافی هست و بقیه موارد جنبه پیشنهادی دارن
سپاس فراوان از راهنمایی جامع و دقیقتون استاد عزیز
انشالله که دعای خیر بنده حقیر و اعضای تالار همیشه و همه جا پشت و پناهتون باشه
معذرت استاد عزیزنقل قول:
1- برای محاسبه تخفیف بهتر هست فیلد تخفیف رو از نوع calculated انتخاب کنین و بهش فرمول بدین:
discount=discount_percent*price
به دلایلی نمیشه از calculated استفاده کنم چون داده های ذخیره شده قبلی این فیلد رو (حدود 4 سال ) تحت تاثیر قرار میده
من نیاز دارم که فیلد تخفیف قابل ویرایش باشه تا تخفیف ریالی رو هم تو همین فیلد اعمال کنم
در همون بلوک EDIT...UPDATE هر تغییری روی مقادیر فیلدها میتونین انجام بدین:نقل قول:
نوشته شده توسط G.hemati
.EDIT
!Num2=meghdar
!DISCOUNT=!PRICE*meghdar/100
.UPDATE
روال این هست که تخفیف (چه درصد و چه مقدار) رو بشه روی هر قلم از کالا و یا در کل فاکتور اعمال کرد.نقل قول:
نوشته شده توسط G.hemati
ممکنه شما روی بعضی اقلام فاکتور تخفیف درصدی و روی بعضی تخفیف ریالی و روی بعضی ترکیب هر دو رو داشته باشین.
جدای از این ممکنه روی کل فاکتور هم این وضعیت صادق باشه.
روش کار این هست که شما بعنوان برنامه نویس همه این حالات رو باید در نظر داشته باشین و پیش بینی کنین، اما زمان ثبت/ویرایش فاکتور طبق شرایطی که مشخص میشه هر کدوم که نیاز هست فعال میکنین.
من تو برنامه های جدیدم حتما فرمایشات شما رو اعمال میکنم
ولی این برنامه برای چندین سال پیشه و به این شکل طراحی کرده بودم که تو فیلد تخفیف در صورت نیاز یکی از فیلدها رو ادیت میکردن تا تخفیف ریالی هم اعمال بشه
مثلا پس از اعمال تخفیف درصدی ، جمع کلی شده 500010 تومان
حالا برای اینکه جمع کل رند بشه ، بر روی یکی از کالاها، در همون فیلد تخفیف درصدی، مقدار 10 تومان تخیفش رو اضافه میکردن (چون قابل ویرایش هست)
به هر حال روش اصولی پیشنهاد جنابعالیه و از راهنمایی و لطف شما نهایت تشکر رو دارم
شرمنده استاد من زیاد با حلقه ها کار نکردم و آشنایی ندارمنقل قول:
در همون بلوک EDIT...UPDATE هر تغییری روی مقادیر فیلدها میتونین انجام بدین:
مبلغ تخفیف با راهنمایی شما درست شد تنها مشکلی که هست ضرب کردن تعداد سفارش در مبلغ تخفیفه
ممنون میشم فایل ضمیمه رو ملاحظه بفرمایین
سلام استاد عزیزنقل قول:
در همون بلوک EDIT...UPDATE هر تغییری روی مقادیر فیلدها میتونین انجام بدین:
شرمندم به خدا ، ببخشید مزاحم شدم ، همه الطافتون در این پروژه ، به پست بالا ختم میشه
خیلی تلاش کردم تا مزاحتون نشم ولی متاسفانه نتیجه نگرفتم و همش Eror میده
ممنون میشم راهنمایی بفرمایین
جناب همتی،نقل قول:
نوشته شده توسط G.hemati
شما در همون بلوک هر فرمول (مجاز) رو میتونین روی فیلدها پیاده کنین، ولی تعداد سفارش در قیمت واحد ضرب میشه و نه مبلغ تخفیف!
بعد باید تخفیف رو از این قیمت کم کنین.
.EDIT
!PRICE=!Quantity*!Unit_Price
!Num2=meghdar
!DISCOUNT=!PRICE*meghdar/100
.UPDATE
سلام استاد عزیز
سپاس از زحمات دلسوزانه و معرفت بی دریغتون
عرض کردم خدمتتون ، من وسط یک پروژه گیر افتاده بودم و دستم زیاد برای ویرایش جداول باز نبود چون داده ها به هم میخوردنقل قول:
شما در همون بلوک هر فرمول (مجاز) رو میتونین روی فیلدها پیاده کنین، ولی تعداد سفارش در قیمت واحد ضرب میشه و نه مبلغ تخفیف!
بعد باید تخفیف رو از این قیمت کم کنین.
ایرادی هم که حلقه میگرفت از نبودن فیلد جمع مبلغ کالا بود (من این فیلد رو در کویری لینک شده به فرم ایجاد کرده بودم)
در نهایت مجبور شدم این فیلد رو ایجاد و آبدیت کنم و مشکلم حل شد
خیلی خیلی لطف کردین :تشویق: