hh88 قام بنشر ديسمبر 20, 2017 قام بنشر ديسمبر 20, 2017 (معدل) السلام عليكم ورحمة الله وبركاتة اساتذتي الكرام اشكر الاستاذ جعفر والاستاذ ابا جودي والاستاذ شفان لمساعدتهم لي في جميع استفساراتي وأسال الله ان يحفظهم ويكتب لهم الاجر على مايقدموه في مثالي المرفق اريد ان يحسب وقت الفروقات بناء على ماتم اختياره من قائمة تفاصيل عنصر سرعة الخدمة مثال اذا اخترت بطيئ يتوجب ان يظهر مجموع وقت الفترات ومتوسط الوقت يحسب السجلات التي فيها بطيئ فقط آمل ايجاد حل لي بتعديل كود مربع النص ليقوم بالمطلوب ولكم جزيل الشكر حساب.rar تم تعديل ديسمبر 20, 2017 بواسطه jjafferr تم تعديل الموضوع
jjafferr قام بنشر ديسمبر 20, 2017 قام بنشر ديسمبر 20, 2017 20 دقائق مضت, hh88 said: اشكر الاستاذ جعفر والاستاذ ابا جودي والاستاذ شفان @jjafferr @ابا جودى @Shivan Rekany أخي الفاضل hh88 اعتذر منك ، ولكنك خالفت احد شروط المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملةو بصفة خاصة نؤكدعلى ما يلي1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.ومخالفة ذلك تعرض الموضوع للحذف تم تعديل الموضوع. جعفر 1
Shivan Rekany قام بنشر ديسمبر 20, 2017 قام بنشر ديسمبر 20, 2017 في طرح سؤالك اشوف نموذج وتقرير لكن في القاعدة ليس فيها اي نموذج والتقرير ليس هو اللي في مشاركتك شفان ريكاني 1
hh88 قام بنشر ديسمبر 20, 2017 الكاتب قام بنشر ديسمبر 20, 2017 2 hours ago, jjafferr said: أخي الفاضل hh88 اعتذر منك ، ولكنك خالفت احد شروط المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملةو بصفة خاصة نؤكدعلى ما يلي1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.ومخالفة ذلك تعرض الموضوع للحذف تم تعديل الموضوع. جعفر أعتذر منكم احبتي سامحوني 2 hours ago, Shivan Rekany said: في طرح سؤالك اشوف نموذج وتقرير لكن في القاعدة ليس فيها اي نموذج والتقرير ليس هو اللي في مشاركتك شفان ريكاني نعم استاذي الكريم شفان حملت الملف الخطأ مرفق قاعدة البيانات أسال الله ان ينور بصيرتنا ويرزقنا وتقبلو جزيل الشكر حساب1.rar
jjafferr قام بنشر ديسمبر 22, 2017 قام بنشر ديسمبر 22, 2017 عفوا انزلت البرنامج البارحة ولم افهم المطلوب!! يا ريت مثال لوسمحت جعفر
hh88 قام بنشر ديسمبر 22, 2017 الكاتب قام بنشر ديسمبر 22, 2017 58 minutes ago, jjafferr said: عفوا انزلت البرنامج البارحة ولم افهم المطلوب!! يا ريت مثال لوسمحت جعفر هلا وسهلا اخوي وأستاذي جعفر في مثالي المرفق اريد ان يحسب وقت الفروقات بناء على ماتم اختياره من قائمة تفاصيل عنصر سرعة الخدمة مثال اذا اخترت من اللسته بطيئ ثم ضغطت عرض التفاصيل يفتح التقرير و يتوجب ان يظهر مجموع وقت الفترات ومتوسط الوقت يحسب السجلات التي فيها بطيئ فقط وشكرا جزيلا حساب1.rar
jjafferr قام بنشر ديسمبر 22, 2017 قام بنشر ديسمبر 22, 2017 وماهي المعادلة 1. مجموع وقت الفترات 2. ومتوسط الوقت واريدك تأخذ البيانات من برنامجك ، وتعطيني المعادلات ، ونتائجها. جعفر 1
hh88 قام بنشر ديسمبر 22, 2017 الكاتب قام بنشر ديسمبر 22, 2017 40 minutes ago, jjafferr said: وماهي المعادلة 1. مجموع وقت الفترات 2. ومتوسط الوقت واريدك تأخذ البيانات من برنامجك ، وتعطيني المعادلات ، ونتائجها. جعفر هذا الكود داخل مربع نص يعطينا جميع مجموع الفروقات بين الوقتين = Int(DSum("[Minutes]", "qry_CT") / 60) & ":" & Round(((DSum("[Minutes]", "qry_CT") / 60) - Int(DSum("[Minutes]", "qry_CT") / 60)) * 60) هل من الممكن التعديل عليه ليقوم بحساب بعض السجلات المختارة اي عندما يكون ناتج مربع النص في التقرير (متوسط) تحسب الدالة السجلات التي فيها كلمة متوسط فقط ويظهر مجموع الفرق بين الوقتين البداية والنهاية آمل اني وضحت الصوره لاستفساري وشكرا استاذي الكريم
jjafferr قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 تفضل جرب المرفق ولو اني طلبت منك معادلة متوسط الوقت ، ولم تعطنيه انا استعملت هذا الكود Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'a = Int(DSum("[Minutes]", "qry_CT") / 60) & ":" & Round(((DSum("[Minutes]", "qry_CT") / 60) - Int(DSum("[Minutes]", "qry_CT") / 60)) * 60) Total_Miutes = DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") H = Int(Total_Miutes / 60) M = (Total_Miutes / 60) - H M = Round(M * 60) Me.Total_Time = H & ":" & M Count_Miutes = DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") Total_Miutes = Total_Miutes / Count_Miutes H = Int(Total_Miutes / 60) M = (Total_Miutes / 60) - H M = Round(M * 60) Me.Avg_Time = H & ":" & M End Sub جعفر 816.حساب1.accdb.zip 1
hh88 قام بنشر ديسمبر 24, 2017 الكاتب قام بنشر ديسمبر 24, 2017 18 hours ago, jjafferr said: تفضل جرب المرفق الف مليون شكر اخي واساذي الكريم جعفر فعلا هذا هو المطلوب هل من ممكن وضع هذا الكود داخل مربع نص الله يوفقك ويسعدك يارب 18 hours ago, jjafferr said: ولو اني طلبت منك معادلة متوسط الوقت ، ولم تعطنيه سامحني لاني توقعت انها حتكون صعبة وشيلت الفكرة منها بس فعلا ابدعت اخي الكريم جعفر شكرأ حبيبنا
jjafferr قام بنشر ديسمبر 24, 2017 قام بنشر ديسمبر 24, 2017 36 دقائق مضت, hh88 said: هل من ممكن وضع هذا الكود داخل مربع نص نعم يمكن ، ولكني في كودك لا انصح ابداً ، لأنك ما محتاج ان تقوم بهذا الشيء ، ثم انه يكون من المستحيل تعديل الكود لاحقا ، وانا هنا اضع كود "داخل مربع النص" للدعابة فقط Me.Total_Time = Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) & ":" & Round((DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) - Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) * 60) Me.Avg_Time = Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) & ":" & Round((DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) - Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) * 60) واعتذر عن رفع صوتي ، ولكني اردت ان اتأكد انه وصلك جعفر 1
hh88 قام بنشر ديسمبر 24, 2017 الكاتب قام بنشر ديسمبر 24, 2017 2 hours ago, jjafferr said: نعم يمكن ، ولكني في كودك لا انصح ابداً ، لأنك ما محتاج ان تقوم بهذا الشيء ، ثم انه يكون من المستحيل تعديل الكود لاحقا ، وانا هنا اضع كود "داخل مربع النص" للدعابة فقط Me.Total_Time = Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) & ":" & Round((DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) - Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) * 60) Me.Avg_Time = Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) & ":" & Round((DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) - Int(DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") / 60) * 60) واعتذر عن رفع صوتي ، ولكني اردت ان اتأكد انه وصلك جعفر وصلت المعلومة بأعلى صوت عمو جعفر بارك الله فيك استاذي نقطه من بحر علمك، ماشاء الله تبارك الرحمن تقبل جزيل الشكر والتقدير
hh88 قام بنشر يناير 23, 2018 الكاتب قام بنشر يناير 23, 2018 On ٠٥/٠٤/١٤٣٩ at 8:11 PM, jjafferr said: تفضل جرب المرفق ولو اني طلبت منك معادلة متوسط الوقت ، ولم تعطنيه انا استعملت هذا الكود Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'a = Int(DSum("[Minutes]", "qry_CT") / 60) & ":" & Round(((DSum("[Minutes]", "qry_CT") / 60) - Int(DSum("[Minutes]", "qry_CT") / 60)) * 60) Total_Miutes = DSum("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") H = Int(Total_Miutes / 60) M = (Total_Miutes / 60) - H M = Round(M * 60) Me.Total_Time = H & ":" & M Count_Miutes = DCount("[Minutes]", "qry_CT", "[سرعة الخدمة]='" & Me.OpenArgs & "'") Total_Miutes = Total_Miutes / Count_Miutes H = Int(Total_Miutes / 60) M = (Total_Miutes / 60) - H M = Round(M * 60) Me.Avg_Time = H & ":" & M End Sub جعفر 816.حساب1.accdb.zip السلام عليكم ورحمة الله وبركاتة استاذي العزيز جعفر حاولت مجموع الوقت من نوع السرعة إلى الترقية المقترحة ولكن النتائج لاتظهر كما بالمرفق ماذا تتوقع المشكلة 816.حساب1 الترقية المقترحة.rar
hh88 قام بنشر يناير 23, 2018 الكاتب قام بنشر يناير 23, 2018 3 hours ago, jjafferr said: شكرًا استاذي العزيز جعفر تم التعديل بارك الله فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.