نجوم المشاركات

الاخوة الزملاء كل عام وانتم بخير بمناسبة قرب شهر رمضان الكريم هدية بمناسبة الشهر الكريم على الزملاء تكملة الاكواد لكل من عنده كود يختص بالفورم فقط صورة للفورم والاكواد حمل ملف الاكسل للاكواد

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

وعید مبارک کل عام وانتم بالف خیر

الكود لا يعمل عند فتح ملف اخر مع الملف الخاص ب اليور فورم Private Sub TextBox1_Change() If Me.TextBox1 = "" Then Me.TextBox1.BackColor = vbRed Else Me.TextBox1.BackColor = vbWhite End If Dim i As Long, ii As Long, j As Integer Dim Ary() Me.Frame1.Visible = False ListBox1.Clear iNdx = "" With Worksheets("Active Sheet") For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If InStr(.Cells(i, "A"), CStr(Me.TextBox1)) = 1 Then iNdx = iNdx & " " & i ii = ii + 1 ReDim Preserve Ary(1 To ContColmn, 1 To ii) For j = 1 To ContColmn Ary(j, ii) = .Cells(i, j).Value Next End If Next End With If ii Then Me.ListBox1.Column = Ary Erase Ary End Sub Private Sub TextBox10_Change() End Sub Private Sub TextBox2_Change() End Sub Private Sub TextBox4_Change() End Sub

بمكن التعديل ايضاً على الكود بخيث يسمح بالتنسيق و ذلك بهذه الاضافة البسيطة ActiveSheet.Protect AllowFormattingCells:=True .protect تكتب مباشرة مكان

اخی العزیز .. اھلا بک فی منتداک لكي لا يطول الامر ولا تنتظر كثير ارفق نسخة مصغرة من قاعدة بياناتك ووضح ماتريد بالتفصيل لكي نعمل لك التعديل المناسب عيد مبارك

استخدم دالة DlookUp لجلب حقل الاجمالي من الاستعلام

السلام عليكم ورحمة الله وبركاته هذا الموضوع مما تكثر الحاجة اليه الاصل عند تسجيل الحضور هو ادخال الوقت والتاريخ الكامل General Date ثم التعامل معه من خلال الاستعلامات والوحدات النمطية وهذا التاريخ هو المعمول به في اجهزة الحضور عامة كقارىء البصمات وغيرها ، والملاحظ ان بعض الاخوة المبرمجين يقومون بجلب بيانات الحضور من الجدول المصدر والتعامل معها اثناء الجلب وتفكيك البيانات في جدول جديد خاص . وفي الصورة ادناه نموذج من الجدول المعدل وهو الذي سوف اعتمده في شرحي ومثالي المرفق علما اني افضل العمل مباشرة على مصدر البيانات الاصل ثم نستخدم الاستعلام لضم هذا الجدول مع جدول الاسماء وعمل تجميع دقائق الـتأخر خلال شهر ونستعين بوحدة نمطية صنعناها لحساب التأخر بالايام وحساب المتبقي من الدقائق ثم ترحيلها الى الشهر التالي كرصيد سابق وحساب الايام بناء على ساعات التأخر (يكون حسب النظام المتبع ) فيختلف من مؤسسة الى اخرى فمنها من يحسب اليوم بــ 5 ساعات تأخر أو 7 ساعات ... وهكذا وفي مثالي هذا جعلت اليوم ساعتي تأخر (120 دقيقة ) ويظهر جليا في الوحدة النمطية المستخدمة Public Function trhelSn(mnthID, uid As Integer) ' uid يمثل رقم الموظف في الاستعلام On Error Resume Next Dim i, ii, a1, a2, a3, a4 As Integer ii = mnthID ' يمثل رقم الشهر في الاستعلام a2 = 0 For i = 1 To ii a2 = a4 ' ترجع بالرصيد السابق للشهر التالي a1 = Nz(DLookup("secnd", "qryscnd", "monthx=" & i & "And nID =" & uid), 0) ' ترجع بحقل الدقائق الذي تم جمعه في الاستعلام a3 = (Nz(a1) + Nz(a2)) \ 120 ' ترجع بعدد الايام بناء على عدد الدقائق المعتمد وهي هنا 120 دقيقة a4 = (Nz(a1) + Nz(a2)) Mod 120 ' ترجع بالمتبقي من الدقائق في الشهر الحالي Next End Function ' مصطلح الشهر الحالي والشهر التالي باعتبار الابتداء من اول شهر فأول شهر في الاستعلام يعتبر الحالي ثم التالي .. التالي ... وهكذا وهذه هي النتيجة النهائية : وهنا تكملة للموضوع احتساب التأخر بالدقائق وترحيل .rar

عجيب كنت اظن اني ارفقت التعديل Tpaid2.rar