دوستان در گزارش ضميمه ميخواهم براساس گرروه شماره ساعات مرخص و... جمع شود البته فرمت تكس را به تايم و نام فارسي را به انگليسي تغيير دادم عمل نكرد ممكنه راهنمايي كنيد
ذستور (=sum[مرخصي ]) عمل نميكند
دوستان در گزارش ضميمه ميخواهم براساس گرروه شماره ساعات مرخص و... جمع شود البته فرمت تكس را به تايم و نام فارسي را به انگليسي تغيير دادم عمل نكرد ممكنه راهنمايي كنيد
ذستور (=sum[مرخصي ]) عمل نميكند
سلام
از اين تاپيك كمك بگيريد:
https://barnamenevis.org/showthread.p...l=1#post438057
...................................
موفق باشيد
سلام مدیر بخش من هم در جمع ساعت در گزارش مشکل دارم.آن تاپیکی که معرفی کردید کمکی به من نمی کند.تمام تالار را زیر رو کردم یک مورد پیدا کردم که در فرم جمع ساعت محاسبه می کند.اما جمع ساعت در گزارش جایی ندیدم .لطفا کمکم کنید.مثال ضمیمه است (جمع ساعت آقای حسن را در گزارش محاسبه کنید)............بیسار ممنون
باسلام و تشكر ، درفايل پيوست ماجول را بافيلد ساعت منطبق كردم اما ارورميدهد
2
- ماجول شما يك فيلد را جمع ميكند براي بيشتر چگونه عمل كنم ؟
مشکل من کسی نمی تونه حل کنه..............................جمع ساعت در گزارش.....نمونه برنامه بالا هست
ممنون از پاسخ شما--ولی یک مشکل وجود دارد که این مازول فقط برای یک فرم کاربرد دارد..مثلا اگر ما بخواهیم بر اساس تاریخ یعنی در فرم f_takhir_date هم مجموع ساعت را در گزارش داشته باشیم با مشکل مواجه می شویم.کلا چه باید کرد که در گزارش هر جا بخواهیم مجموع ساعت داشته باشیم مشکل نداشته باشیم.
آخرین ویرایش به وسیله amirzazadeh : سه شنبه 16 آذر 1389 در 12:14 عصر
سلام
با يك تغيير مختصر در فانكشن اول و ذخيره اون با يك نام ديگه در داخل همون ماژول ميتونيد به منظورتون برسيد.
................................
موفق باشيد
بنده مبتدی هستم .ماژول رو دستکاری کردم جواب نمیده......جمع تاخیر ها را در یک تاریخ محاسبه شود.
سلام
كد رو به اين شكل اصلاح كنيد:
Function GetTimeRoozanehTotal1()
Dim db As Database, rs As Recordset
Dim totalhours As Long, totalminutes As Long
Dim days As Long, Hours As Long, Minutes As Long
Dim interval As Variant, j As Integer
Set db = DBEngine.Workspaces(0).Databases(0)
Set rs = db.OpenRecordset("SELECT * FROM t_takhir WHERE (t_takhir.date)='" & [Forms]![f_takhir_date].[Text0] & " ' ")
interval = #12:00:00 AM#
'
While Not rs.EOF
interval = interval + rs![takhir]
rs.MoveNext
Wend
totalhours = Int(CSng(interval * 24))
totalminutes = Int(CSng(interval * 1440))
Hours = totalhours Mod 24
Minutes = totalminutes Mod 60
' GetTimeRoozanehTotal = totalhours & " ÓÇÚÊ æ " & Minutes & " ÏÞíÞå"
GetTimeRoozanehTotal1 = totalhours & ":" & Minutes
End Function
..........................................
موفق باشيد
باسلام و تشكر از زحمتي كه متحمل ميشويد من به يك مشكل مواجهم گزارشم را گروه بندي كرده ام برايتان ارسال ميكنم اما استفاده ازاين ماجول باعث ميشود جمع هرگروه بتفكيك انجام نشود كل ركوردها راجمع ميزند، ممنون ميشم نگاهي بگزارشم بياندازيد
سلام دوستان عزیز.من یه برنامه درست کرده ام وتویکی از فرمها میخواهم فاصله بین ساعت ورود وساعت خروج را به عنوان ساعت مفید دریک فیلد دیگر نمایش دهد.
تشکر
آقای hsda22 نمونه فایل ضمیمه کن
امیر جان با تشکر دوباره از جواب سوال قبلی :...............مشکل دیگر اینکه اگر بخواهیم بین دوتاریخ در فرم f_pas_date را انتخاب نماییم..کجای مازول باید دستکاری شود وچطور؟.....تاریخ ها در بین دوتاریخ فروردین ماه زده شود.
سلام دوستان.نمونه راگذاشتم.میخوام فاصله بین ساعت خروج تا ساعت ورود به عنوان ساعت مفید نمایش داده شود.
تشکر
دوستان میخوام قضیه یه کم سخت تر شود(البته سخت برای من نه شما).درواقع من دارم برای شیفت نگهبانی شرکت خودمان یه برنامه مینویسم.شیفتهای نگهبانی 5ساعته است واینکه شبانه باشن یا روزانه خیلی مهمه.حالا من میخوام اگه نگهبانی تونیمه اول ساله وساعت شروعش بین 17تا3 فردا صبحشه (یعنی حد اقل 3ساعتش توشب باشه)نوع نگهبانی را شبانه نمایش بده والا بنویسه روزانه.ونیمه دوم اگه ساعت شروع بین ساعت 15 تا3فرداصبحش نوع نگهبانی را بزنه شبانه.تشکرمیکنم اگه دوستان کمک کنن.
hada فایل را ببینید.....به رویداد after update توجه نمایید.(همه text box ها)
bemiloveعزیز،تشکرمیکنم از جواب شما.امامشکلی که وجود داره اینه که ساعت مفید را میخواهم به عنوان یک داده ازنوع نامبر باشه تا بتونم محاسبات روش انجام بدم.
فایل را ببینید..به نظر من باید این زمان از نوع date/time باشد.ویک table که داده ها روی آن ذخیره شود.برای محاسبه می توانید در گزارش این کار را انجام دهید.
معذرت........اشکال این ماژول در فایل پیوستی کجاست..می خواهیم مجموع پاس های گرفته شده یک فرد در یک دوره تاریخی مشخص کنیم (از نظر زمانی)
سلام
مشكل اينه كه در جدول t_pas به جاي فيلد personel از فيلد name استفاده شده.با اصلاح كد به اين شكل خطا برطرف ميشه:
Set rs = db.OpenRecordset("SELECT * FROM t_pas WHERE " & "(t_pas.name)=" & [Forms]![f_pas_doreh].[Combo0])
آخرین ویرایش به وسیله amirzazadeh : یک شنبه 21 آذر 1389 در 10:33 صبح
************************************************** ************
معذرت....مشکل اینجاست که با تعغیرات بالا ،درگزارش وقتی از تاریخ 89/01/01 لغایت 89/01/10 گزارش می گیریم 69:55 دقیقه حساب می کندوقتی از تاریخ 89/01/01 لغایت 89/01/20 می گیریم 150:46 دقیقه واگر بین 89/01/01 لغایت 89/01/30 بگیریم 278 ساعت حساب می گیرید.اولا جمع ساعت مغایرت دارد.دوم اینکه جمع ساعت برای همه یکی است.....کمک
سلام دوستان عزیز.درمورد اشکالات این فرم اگه امکان داره بنده راراهنمایی بفرمایید.
هدف من از طراحی این فرم ،همونطور که درپست قبلترخدمت دوستان عرض کردم مشخص کردن نوع نگهبانی(شبانه یاروزانه)با توجه به ساعت شروع نگهبانی میباشد.بایدحداقل سه ساعت ازنگهبانی درشب باشدو چون غروب خورشید درنیمه اول دیرترازنیمه دوم میباشد که باید شرطی بزاریم که فقط ماه شروع نگهبانی اگه بین عدد 1 تا 6باشدوساعت شروع نگهبانی بین 16:00تا 03:00روزبعد باشه.دراین صورت نوع نگهبانی میشود شبانه وگرنه روزانه میباشد.وبرای نیمه دوم هم ماه نگهبانی بین 7تا 12باشد وساعت شروع نگهبانی هم بین 15:00تا03:00روزبعد باشه نوع نگهبانی شبانه بشه درغیر این صورت روزانه میشود.
من با توجه با عقل ناقص خودم یه چیزی نوشتم که خیلی مشکل داره ولی درجهت بهتر فهمیدن مشکل بنده میتونه کمک کنه.
ازدوستان عزیز خواهشمندم که بنده رادرحل مشکلم یاری بفرمایند.
فایلت رو با اکسس 2033 آپلود کن...شاید کمکی بتونم بهتون بکنم...............................{آقای amirzazadeh جواب کامنت 27 چی شد}
سلام bemiloveعزیز.درمورد اشکالات این فرم اگه امکان داره بنده راراهنمایی بفرمایید.
هدف من از طراحی این فرم ، مشخص کردن نوع نگهبانی(شبانه یاروزانه)با توجه به ساعت شروع نگهبانی میباشد.بایدحداقل سه ساعت ازنگهبانی درشب باشدو چون غروب خورشید درنیمه اول دیرترازنیمه دوم میباشد که باید شرطی بزاریم که فقط ماه شروع نگهبانی اگه بین عدد 1 تا 6باشدوساعت شروع نگهبانی بین 16:00تا 03:00روزبعد باشه.دراین صورت نوع نگهبانی میشود شبانه وگرنه روزانه میباشد.وبرای نیمه دوم هم ماه نگهبانی بین 7تا 12باشد وساعت شروع نگهبانی هم بین 15:00تا03:00روزبعد باشه نوع نگهبانی شبانه بشه درغیر این صورت روزانه میشود.
اساتيد روش جمع اين چند ساعت را يگوييد .ممنون
10:12
12:12
08:00
15:35
بايد 45:59 شود
شما چند ساعت را با هم جمع مي زنيد و مثلا در يك متغير بنام S قرار ميدهيد
حا لا مجموع ساعت برابر است با:
Int((S)*24)و مجموع دقيقه برابر با:
Round((((S)*24)-(Int((S)*24)))*60)
حالا يك ساعت داريد و يك دقيقه.
دوست عزيز من هرچه كلنجار رفتم كد رانتوانستم استفاده كنم اگر نمونه داريد ممنون ميشم فايل نمونه را هم اگر وقت بگذاريد نگاه كنيد ممنون ميشم گزارش را نگاهي بيانداز
اينهم خدمت شما اخوي
در گزارشت قسمت (Footer شماره ) رو اصلاح كردم ببين:
Copy of db10.rar
مهدي جان ممنون زحمت كشيدي،
دوستان من از بين پرسنل ميخواهم كساني بيشترين تاخير رادارندشناسايي كنم
البته من خواستم از max استفاده كنم كه جوابگو نبود ، ضمنا شايد بتوان از طريق سورت كردن هم اينكار را كرد ، اما بيشترين كارم اينه كه پرسنلي كه بيشترين تاخير را در اين چندين ماهه داشتن شناسايي كنم ممنون ميشم وقت بگذاريد
در كيوري خيلي راحت مثل نمونه پيوست سورت انجام ميشه (كيوري شماره 2)
اميدوارم كارتون راه بيوفته
يك پيشنهاد : براي نامگذاري فيلدهاتون از نامهاي فارسي استفاده نكنيد و نام فارسي را در قسمت caption فيلد وارد نماييد.
db1Time.rar