سوال: محاسبه اقساط [بایگانی]

yousef86

دوشنبه 25 آذر 1387, 17:05 عصر

با تشکر از دوستانی که د رتاپیک قبلی پاسخ دادند من مشکل دیگری دارم با کد نویسی میخواهم وقتی رکوردی در تیبل 1 ثبت شد اولا مانده به روش مبلغ بیمه(Mabbime) منهانی پیش پرداخت(pardakht naghd) محاسبه و در تیبل 1 در فیلد(mande pardakhti)اتواتیک ثبت گردد دوما اقساط ماهیانه (aghsat mahyane)نیز محاسبه و در تیبل 1 اتواتیک ثبت گردد و نیز محاسبات انجام شده در تیبل 1 به صورت یک ردیف در تیبل 2 ثبت و ردیفهایی به تعداد اقساط ایجاد شده ثبت گردد مثلا به جای 6 ردیف 7 ردیف ثبت گردد ردیف 0 مشخصات بیمه و پیش پرداخت و ردیف 1تا 6 اقساط بیمه ضمنا اگه یکبار دکمه ایجاد رو زدیم و رکورد ایجاد شد در صورت کلیک مجدد پیغام خطا بدهد
خلاصه:این یک برنامه برای شرکت بیمه است که عملیات بیمه را به صورت اقساطی انجام میدهد و میخواهم در تیبل اقساطم علاوه بر اقساط ایجاد شده به تعداد قسط مبلغ پیش پرداخت نیز به صورت یک قسط نشان داده شود

26494

مهدی قربانی

سه شنبه 26 آذر 1387, 15:12 عصر

سلام
شما ایده ای از روشهای بکارگرفته شده در نمونه های تاپیک قبلی نگرفتید ؟

yousef86

سه شنبه 26 آذر 1387, 16:55 عصر

منظورتون رو دقیق متوجه نشدم ولی ایده ای نگرفتم چون در کار با وی بی خیلی ضعیفم لطفا کمکم کنید

mostafa-sohrablou

پنج شنبه 28 آذر 1387, 09:50 صبح

با سلام / قبلاً نمونه برنامه اي نوشته بودم. ببين بكارت مياد.

yousef86

شنبه 30 آذر 1387, 10:05 صبح

با تشکر از آقای سهرابلو برنامه شما به کارم نیومد اگر امکان دارد روی فایل ضمیمه ام اصلاحاتم رو انجام بدید ممنون میشوم

yousef86

یک شنبه 01 دی 1387, 14:06 عصر

با تشکر ازدوستانی که پاسخ داده اند سوالم در ردیف اول ویرایش شده دوستان لطفا مرا راهنمایی کند

مهدی قربانی

دوشنبه 02 دی 1387, 09:09 صبح

سلام
من متوجه ترکیب فیلدهای شما نمی شم ، فیلد پیش پرداخت کدومه ؟ نام اصلی فیلدهایی که باید روشون کار بشه رو در پست اول ویراش کنید

yousef86

دوشنبه 02 دی 1387, 16:04 عصر

ویرایش شد ممنون اگر راهنمایی بفرمایید

مهدی قربانی

جمعه 06 دی 1387, 22:41 عصر

سلام
من تغییرات لازم رو در نمونه شما دادم :
1 . در رخداد After Update فیلد pardakht naghd ;nihd ghcl برای محاسبه باقیمانده و همینطور مبلغ هر قسط نوشته شده ، یعنی بعد از بروزرسانی فیلد پیش پرداخت محاسبات مورد نیاز شما انجام میشه
2 . در Control Source فیلد aghsat mahyane شما فرمولی رو برای محاسبه مبلغ اقساط نوشته بودید که عملاً مانع از ثبت اطلاعات این فیلد در جدول مربوطه می شد بنابراین طبق بند 1 تغییرات لازم در کد نویسی انجام و این فیلد به جدول مربوطه متصل شد .
3 . کامند باتن "انجام" هم عملیات قسط بندی رو فقط يك بار انجام ميده و با استفاده از تابع Dcount جلوي تكرار قسط بندي گرفته ميشه .
ضمناً اينكه در سابفرم بايد ركورد اول مشخصات بيمه رو نشون بده غير منطقي بنظر مياد ، ساختار فيلدهاي شما جوريه كه براي درج اقساط در نظر گرفته شده نه براي بيمه اگر بخواين چنين كاري انجام بديد بايد ساختار فيلدهاي سابفرمتون رو تغيير بديد.

yousef86

شنبه 07 دی 1387, 18:16 عصر

ضمن تشکر از راهنمایی سودمند شما
منظورم رو دقیقا متوجه شدید و دقیقا انجام دادید و لی منظورم از ثبت رکورد بیمه در اولین رکورد نه مشخصات کامل است بلکه فقط میخواهم پیش پرداخت محاسبه شده(pardakhtnaghdi) به صورت یک قسط به همان تاریخ صورتحساب (date sorat hesab)ثبت بشه اگر امکان دارد در این مورد هم بذل محبت بفرمایید باز هم ممنونم کارم خیلی راه افتاد

yousef86

یک شنبه 08 دی 1387, 15:41 عصر

جناب قربانی لطفا راهنمایی فرمایید

مهدی قربانی

سه شنبه 10 دی 1387, 04:02 صبح

سلام
yousef86 (http://barnamenevis.org/forum/member.php?u=42650) عزيز ، براي اينكه لذت تكميل برنامه بيشتر بشه در اين حد راهنمائي ميكنم كه براي اين منظور شما بايد قبل از تابع حلقه بواسطه ايجاد ركورد جديد در ركوردست فيلدهاي مورد نظر رو مقدار دهي كنيد .

rst.AddNew
rst.Fields("radif").Value = 0
rst.Fields("code").Value = Me.code
.
.
.
rst.Update

اقدام كنيد و اگر موفق شدين شرح اقداماتتون رو ذكر كنيد ،موفق باشيد .

yousef86

سه شنبه 10 دی 1387, 08:54 صبح

بازم ممنونم مسلما بدون کمک شما نمیتوانستم درستش کنم خیلی به vba علاقه مند شدم فایل مربوطه رو درست کردم و ضمیمه قرار میدم شاید بدرد کسی خورد
26975

hadiitc

یک شنبه 03 خرداد 1394, 18:25 عصر

سپاس از شما