رمهان

معليش انشغلت اليومين الفائتة ! وكذلك الموضوع يحتاج تركيز حبتين ! اعود لك بعد نيفا من الوقت ! تحياتي

طريقة ممتازة وأمل منك التكرم بأضافة اقتراحك انشاء زر أمر أخر لترحيل الارصدة لكل الموظفين تفضل Private Sub أمر22_Click() DoCmd.SetWarnings False On Error GoTo 10 Set rs = Me.RecordsetClone: rs.MoveFirst Do While Not rs.EOF xmin = CurrentDb.OpenRecordset("select sum(hour(timeadd)*60)+sum(minute(timeadd)) from tlb_taq where [off]=0 and pcdigit=" & rs!Pcdigit)(0) If xmin > 0 Then DoCmd.RunSQL "update tlb_taq set [off]=-1 where [off]=0 and pcdigit=" & rs!Pcdigit DoCmd.RunSQL "insert into tlb_taq(Pcdigit,timeadd) values(" & rs!Pcdigit & ",#" & xmin \ 60 Mod 7 & ":" & xmin Mod 60 & "#)" End If rs.MoveNext Loop 10: DoCmd.SetWarnings True End Sub بالتوفيق sum_time.rar

مرحبا بالجميع نلاحظ وجود خطأ في نص الخطأ بوجود حرف p في كلمة sub ! وهذا مايجعل المرفق مطلب وكما قال الاستاذ جعفر ! واتوقع المشكلة هو تعارض بين حقول الربط بين النموذج الاساسي والفرعي وحدث عند التحميل للنموذج الفرعي ! او تعارض بين حدث عند التحميل للنماذج الفرعية ! وهنا مازال المرفق مطلب ! بالتوفيق

مشاركة مع اخوتي جرب ان يكون زر التالي به الحدث : DoCmd.GoToRecord , , IIf(CurrentRecord = Recordset.RecordCount, acLast, acNext) بالتوفيق

هذا الترحيل .. عليك الانتقال سجل سجل للموظفين والضغط على ترحيل كل موظف على حدة ! وان اردت الكل مرة واحدة >> عد وسنعود !! بالتوفيق sum_time.rar

معليش هذا الملف المقصود والذي يختص بالشق الاول من الموضوع >> جمع الوقت كايام وساعات ودقائق ! تم رفع الملف السابق بالخطأ والشق الثاني جاري التنفيذ ! sum_time.rar

وهذه زياده tab_riht_to_left.rar

وعليكم السلام اخت نوال .. وهنا استفسارات : اكثر طلبا : هل اكثر كمية بغض النظر عن عدد العملاء ؟ ام التي لها طلب اكثر من كذا عميل ؟ فيمكن المنتج 1 له اكبر كمية طلب ولتكن 1000 ولكن من عميلين فقط ! والمنتج 2 له طلب 700 ولكن من عشرة عملاء ؟ اكثر شراء : - كاجمالي كمية من جميع المنتجات بغض النظر عن تكرار الاوردر - كاجمالي كمية مع حسبان تعدد الاوردرز - او كاجمالي مبلغ ( اشوف هنا الانسب اكبر قيمة شرائية للعميل ) اي العميل الدسم ؟ بالتوفيق

اخي محمد اولا كل عام وانتم بخير بعد الزحمة ثانيا : لاتحضرني طريقة مباشرة ! ولكن اليك هذه الفكرة : من خاصية نمط ومن تبويب تنسيق اختر = بلا وهنا يمكنك وضع ازرار امر او مجموعة خيار بها زر تبديل ومن اليمين لليسار وعند النقر هناك كود يفتح التاب المحددة ! تحياتي

وين اخوي جعفر ! انا لسا بفحط في الشق الاول من السؤال ! وانت ما شاء الله في الشق الثاني وحاب اوضح شي مهم : مانرفعه من ردود اعتبره ارشيف لي ارجع له وقت الحاجه خاصة اذا فكرته وليدة اللحظة ! وهنا عصافير بحجر واحد فالفائدة للكل ! تحياتي لكم

تفضل sum_time.rar

تفضل تعديلا واثراءاً بالتوفيق sum_time.rar

عزيزي قبل ان ندخل في طلبك يبدو ان من الافضل معرفة فكرتك في تخزين المرفقات ! فقد وجدت حقل باسم المرفقات ونوعه نص وفارغ في مثالك المرفق ! ماهي البيانات التي ستكون به هل هي مسار المرفق مثلا ! وكيف ستكون لو كان هناك عدد للمرفقات 3 مثلا ! هل ستضع المسارات على شكل نص بينهم فاصلة ام ماذا ! تحياتي

كلامك ومرورك شرف واعجابك وسام وما نحن الا قطره في بحر علمكم

حياك الله اخينا كاسر906 حسب فهمي ان المطلوب هو ان كل سبع ساعات هو يوم عمل وبشرط من ليس له اختيار في الخانة ! فقمت بجمع عدد الساعات وبنفس الشرط لمن لم يؤشر عنده وطبعا بعد جمع الدقائق وتحويلها لساعات >> هنا اصبح لدينا اجمالي الساعات > بعد كذا قسمتها على 7 لكي يظهر عدد ايام العمل ! ظهرت النتيجة لمحمد = 3.37 معناته ثلاث ايام عمل و 37 جزء من المائة يوم ولك الخيار في جبر الكسر للاعلى كرما او للاقل بخلا ! وهنا ارجو توضيح معنى رقم غير مفهوم ! بالتوفيق أشكرك أستاذ رمهان على الايضاح الآن فهمت معنى الرقم الذي كان رمزا بالنسبة على الأقل طريقتك جدا جميلة لكن تعرف المسألة فيها حسابات يعني راح يكون التعويض فيه عن مدة يوم عمل كامل وباقي الساعات والدقائق سيتم ترحيلها اشكرك مرة أخرى وتقبل فائق تحياتي حياك الله اخي كاسر واثراء للموضوع مع اخي الحبيب الاستاذ جعفر الآن فهم المطلوب انك تريد الاجمالي بالايام والساعات والدقائق ! وهي واضحة من تصميم النموذج ولكن ركزت على حساب عدد الايام حسب نص المشاركة الاولى ! وهنا لي عودة ان لم توافقني الراي التالي: مارايك ان تترك عدد الايام يحتوي على عدد عشري يمثل عدد الايام كنسبة >> وهنا مثلا لو سعر عمل اليوم للموظف محمد 500 راح تكون قيمة اليوم 500X3.37 = 1685 وهذا يغنيك عن عمليات الترحيل ! تحياتي للجميع

ماشاء الله عليك استاذ ياسر والى الامام جميل جدا فكرتك استاذ سليم هذه محاولة بسيطة وللاثراء والافادة ! ومغازلة الكبار! Function ramhan(xinput As String) As Integer xinput = Replace(xinput, "أ", "ا") xinput = Replace(xinput, "إ", "ا") xinput = Replace(xinput, "ة", "ه") Dim xletters As String, i As Integer, xsum As Integer xletters = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي" For i = 1 To Len(xinput) xsum = xsum + InStr(1, xletters, mid(xinput, i, 1)) Next i ramhan = xsum End Function تحياتي للجميع

حياك الله اخينا كاسر906 حسب فهمي ان المطلوب هو ان كل سبع ساعات هو يوم عمل وبشرط من ليس له اختيار في الخانة ! فقمت بجمع عدد الساعات وبنفس الشرط لمن لم يؤشر عنده وطبعا بعد جمع الدقائق وتحويلها لساعات >> هنا اصبح لدينا اجمالي الساعات > بعد كذا قسمتها على 7 لكي يظهر عدد ايام العمل ! ظهرت النتيجة لمحمد = 3.37 معناته ثلاث ايام عمل و 37 جزء من المائة يوم ولك الخيار في جبر الكسر للاعلى كرما او للاقل بخلا ! وهنا ارجو توضيح معنى رقم غير مفهوم ! بالتوفيق

ممكن شرح اضافي !

تفضل عزيزي وهذه الخطوات : > تم عمل مربع نص بالنموذج الفرعي وبه المعادلة وتغيير خاصية مرئي والتنسيق > تم سحب القيمة للنموذج الرئيسي وفي مربع اليوم ملاحظة : - تم تعديل مصدر استعلام النموذج الرئيسي بحذف الجدول الاخر لعدم وجود الربط مما يسبب عدد السجلات الديكارتي - تم ترك عدد الايام عشري لبيان عدد الايام الفعلي بالتوفيق sum_time.rar

عزيزي رابط المرفق لا يعمل ولكن حسب الصورة ضع التعبير التالي في خاصية القيمة الافتراضية للعنصر : =DLast("c";"x2") بالتوفيق

اخ وائل يمكنك تكرار الامر refresh حسب الحاجة ولي فكرة ساحاول تطبيقها ! اخ جعفر جرب ان تضيف من خلال زر الامر لان النظام يعمل بشاشة لمس ! تحياتي

بس لوسمحت النقر في حقل النص ، لكنا نستطيع ان نعرف اين النقر عن طريق SelStart ، وبعدها نواصل المسير جعفر ههههههه ! كانت مداعبة وعيدية ! تفضل استاذنا الفاضل وهي مازالت محاولة ! تحياتي New Microsoft Access قاعدة بيانات (2).rar

حياك الله افتح موضوعا جديدا اخي الكريم لمشكلتك ؟!

هذه محاولة ! تحياتي New Microsoft Access قاعدة بيانات (2).rar