PDA

View Full Version : سوال: محاسبه در زیر فرم


majid_labbeiky
یک شنبه 15 اسفند 1389, 19:33 عصر
با سلام خدمت دوستان
من یه بانک طراحی کردم که توی فرم ورود اطلاعات یه ساب فرم دارم مثل ضمیمه
چطوری من مقدار ضایعات رو توی ساب فرم جمع کنم بعدش از کل بازرسی ها کم و مقدار سالم رو توی فیلد سالم بریزم .
ممنون می شم از راهنمایی شما .
payman_xxp
یک شنبه 15 اسفند 1389, 22:17 عصر
سلام
از جمله توابع زیبای اکسس تابع DSUM هستش که مخصوص گرفتن اطلاعات از سابفرم هستش.
به نمونه خودتون موارد لازم اضافه شد، یادتون نره بعد از تغییرات، اصلاح و اضافه فرم یکبار باید رفرش بشه( یا F5 بزنید یا کدنویسی کنید، خودتون زحمتشو بکشید :لبخندساده:)
موفق باشید.
majid_labbeiky
دوشنبه 16 اسفند 1389, 16:12 عصر
ممنون دوست عزيز از راهنمايي شما

من توي فرم بعد از ورود ضايعات كليد F5 زدم اما محاسبات اعمال نشد .
ولي وقتي فرم رو دوبار اجرا كردم درست شد .
چطور ميشه توي حين اجرا و تغييرات محاسبه اعمال بشه ؟

بازم ممنون از شما .
majid_labbeiky
دوشنبه 16 اسفند 1389, 16:17 عصر
در ضمن دوست عزيز اون محاسبات توي جدول ذخيره نميشه ؟
payman_xxp
سه شنبه 17 اسفند 1389, 08:06 صبح
ممنون دوست عزيز از راهنمايي شما

من توي فرم بعد از ورود ضايعات كليد F5 زدم اما محاسبات اعمال نشد .
ولي وقتي فرم رو دوبار اجرا كردم درست شد .
چطور ميشه توي حين اجرا و تغييرات محاسبه اعمال بشه ؟

بازم ممنون از شما .


در ضمن دوست عزيز اون محاسبات توي جدول ذخيره نميشه ؟

سلام دوست عزیز
اگه یادتون باشه عرض کردم:

یادتون نره بعد از تغییرات، اصلاح و اضافه فرم یکبار باید رفرش بشه( یا F5 بزنید یا کدنویسی کنید، خودتون زحمتشو بکشید )
هدف آشنایی با تابع DSUM بود، بقیه کار به سلیقه برنامه نویس بستگی داره.
بهرحال:افسرده:
نمونه جدید رو ملاحظه بفرمایید.
موفق باشید.
majid_labbeiky
سه شنبه 24 اسفند 1389, 10:29 صبح
ممنون از نمونه اي كه گذاشتي .
درست مثل همون چيزي كه ميخواستم .

ميشه بگي جريان از چه قرار بوده ؟
چطوري محاسبه انجام شده و توي فيلد ذخيره ميشه ؟
payman_xxp
پنج شنبه 26 اسفند 1389, 23:07 عصر
ممنون از نمونه اي كه گذاشتي .
درست مثل همون چيزي كه ميخواستم .

ميشه بگي جريان از چه قرار بوده ؟
چطوري محاسبه انجام شده و توي فيلد ذخيره ميشه ؟

سلام
به ایونت فیلد تعداد در سابفرم برید:

Private Sub tedad_AfterUpdate()
Me.Refresh
[Forms]![Table1]![zayeat] = DSum("[tedad]", "[Table2]", "[id]=" & [Forms]![Table1]![idN])
[Forms]![Table1]![salem].Value = [Forms]![Table1]![bazresi].Value - [Forms]![Table1]![zayeat].Value
End Sub

با کد نویسی عمل رفرش انجام شده.
بعدش هم فیلدهای ضایعات و سالمها در فرم اصلی مقدار دهی شدن.
این کار در ایونت AfterUpdate فیلد تعداد سابفرم بعداز ایجاد فیلد جدید انجام میشه.
موفق باشید.