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

برنامج أرشفة 1- الملفات والمرفقات والمجلدات 2- البرامج المساعدة ومرفقاتها أرجو ابداء رأيكم به ArchiveMyFiles-Folders.rar

وهذا برنامج أقساط مبسط جدا .. كان عبارة عن تمرين استرجاع مهارات وقتها وتحدي مع أحد الإخوة الأعزاء 😊 برنامج الأقساط - موسى.rar

السلام عليكم لم اجد في المثال ايميل المرسل ولا حقل للباسوورد هل تستخدم اوتلوك للارسال ؟ اذا نعم : فسوف ارفق لك مثالا للاستاذ القدير يوسف احمد مشابه تماما لمطلوبك اذا لا : سوف ارفق لك مثالا وعملا مشتركا للاستاذ موسى وآخرين كان اخر تعديل لـ د كاف يار ... وهو ايضا مشابه لطلبك ولكن يجب اولا حفظ الشهادات على الكمبيوتر ثم ارسالها لاحقا بالبريد

مشاركة مع الاستاذ خليفة اذا كان عدد الحقول كبير فيمكن عن طريق حلقة تمر على الحقول بدون الحاجة الى كتابة اسماء الحقول Dim ctl As Control Dim k As String kk = "" For Each ctl In Me.Controls If ctl.ControlType = 109 Then If ctl.Name <> "المعرف" Then k = k & "" & ctl End If End If Next ctl kk = k واذا اردنا عدم تحديد نوع الحقول وعدم كتابة اسماء الحقول التي سوف نستثنيها فيمكن باستخدام Tag Dim ctl As Control Dim k As Variant kk = "" For Each ctl In Me.Controls If ctl.Tag = "*" Then k = k & "" & ctl End If Next ctl kk = k تحياتي

شكرا لك أخي العزيز @kkhalifa1960 جهد رائع وعمل تشكر عليه وجعله الله في ميزان حسناتك 🙂 ومثل ما قال أخي @TQTHAMI البرنامج إبداع ولكنه مزحوم جدا .. يحتاج إلى تبسيط من ناحية تقسيم الخدمات اللي يوفرها أوالألوان والأشكال والخطوط المتداخلة .. وحبذا مع شرح مبسط لكيفية الاستخدام 😊

السلام عليكم ورحمة الله وبركاتة ماشاء الله قمة في في الابداع عمل رائع ومجهود جبار لكن عندي ملاحظة وهي : 1- كثرة الالوان 2- الخط صغير هل تسمح لي بتغير الشكل وانزالة مرة اخرى

نعم ممكن ولكن سوف نكتب اكواد اضافية والهدف من الطريقة اختصار الامر انظر في الفيديو المرفق استخدمت خصائص اللون للحقل ربما هناك طريقة افضل ولكني تفكيري الان في النوم

ولمزيد من الاثراء هنا كان نقاش في موضوع حساب الاقساط ويوجد مرفق من تعديل الاستاد @د.كاف يار

متميز دائما لكن لماذا لم تجعل ادراج الاقساط عن طريق مصدر السجلات راح يكون اسرع بشكل كبير مثلا جربت وضع الاقساط لمدة 300 شهر واستغرق وقت طويل للتنفيذ 300 شهر ربما يكون غير مألوف ولكن في العادة هي المدة لتمويل المساكن لدينا تحياتي

تعديل المرفق بعد استثناء الحقلين e و x للطريقتين في الطريقة الاولى If ctl.Name <> "المعرف" And ctl.Name <> "x" And ctl.Name <> "e" Then وفي طريقة التاج فقط ازلنا النجمة من خصائص الحقلين test1(1)(1).accdb

السلام عليكم استاذ @حمدى الظابط تحية طيبة خلينا نمشى مرحلة مرحلة انظر الى هذا التعديل وأخبرنى أولا هل هذا الجزء الأول تمام وهو إحضار الايميلات للطلاب الذين سوف يتم تحديد اسمائهم فقط سوف تظهر الايميلات فقط لمن تم التأشير على اسمائهم فى رسائل لو انا فاهم صح سوف يتم بعد ذلك استبدال الرسائل بكود الارسال ‏‏تجربة2 - نسخة.mdb

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Private Sub UserForm_Initialize() Me.ListBox1.List = [liste].Value End Sub ''''''''''''''''''''''''''''''''''''''''' Private Sub TxtSearch_Change() Me.ListBox1.Clear i = 0 For Each c In Application.Index([liste], , 1) If UCase(c) Like UCase(Me.TxtSearch) & "*" Then Me.ListBox1.AddItem Me.ListBox1.List(i, 0) = c.Value i = i + 1 End If Next c End Sub اسماء العاملين.xlsm

اخي الفاضل @kkhalifa1960 ، شكرا على الهدية 🙂 جعفر

نعم ممكن فقط في الحقل الذي ترغب في عدم احتسابة احذف النجمة في خصائص الحقل تبويب غير ذالك علامة احذف النجمة هذا استخدمنا التاج في تعريف الحقول شاهد الصورة في ردي الاول اما اذا استخدمنا نوع الحقل فعلينا استثناء الحقل If ctl.Name <> "المعرف" Then وهكذا ممكن اضافة حقول اخرى في الاستثناء تحياتي

استاذي ابوخليل ممكن ارسال الحالتين

https://drive.google.com/file/d/16wPjc1F9pyCAZLQN7Ap3qcUOKOZ8bBMa/view?usp=drivesdk البرنامج مضغوط في ملف للتحميل من الرابط ويوضع في قرص D رمز المرور 1 التنزيل من درايف draiv

فى الغالب علشان خايفين لنسأل اسأله تخلى الروبيت يتمرد عليهم ههههههههههههه

Option Explicit Sub Test() Dim a, b, x, z Dim i&, ii&, iii&, mm& Dim nmsht, dt, bk Dim p As Long Dim ar As Long Dim tmp, class, br, mat Const c As Integer = 10 Set nmsht = Sheets("name") Set dt = Sheets("data") Set bk = Sheets("Book") b = dt.Range(dt.Range("B4"), dt.Range("B4").End(xlDown)).Resize(, 3) p = 4: For i = 1 To UBound(b) tmp = Split(b(i, 1)) class = IIf(UBound(tmp) < 3, tmp(1), (tmp(0) & " " & tmp(1)) & " " & tmp(2)) br = tmp(UBound(tmp)): mat = b(i, 3) With nmsht.Range("b2:AX400") x = .Find(b(i, 1), , , 1).Address a = .Range(x).Offset(3, -1).Resize(.Range(nmsht.Range(x).Offset(3), nmsht.Range(x).Offset(3).End(xlDown)).Count, 2).Offset(-2, -1) End With ar = 1 With Sheets("book2") For ii = 1 To UBound(a) Step c x = Split(.[E:E].Find("-" & p & "-", , , 1).Address, "$")(2) .Cells(x - 6 - 39, 4) = Split(.Cells(x - 6 - 39, 4))(0) & " " & class .Cells(x - 6 - 39, 9) = Split(.Cells(x - 6 - 39, 9))(0) & " " & br z = Application.IfError(Application.Index(a, Evaluate("(Row(" & ar & ":" & ar + c - 1 & "))"), Array(1, 2)), "") For iii = 1 To UBound(z) .Cells(x - 1 - 39 + mm, 1) = z(iii, 1) .Cells(x - 1 - 39 + mm, 2) = z(iii, 2) mm = mm + 4 Next ar = ar + c p = p + 2 mm = 0 Next End With Next End Sub مرة أخرى (أرقام الصفحات يجب أن تمون دائما بالشكل (-12-) عدلت بعضها مثل (-12) أرجو تعديل الباقي) إذا كان رقم الصفحة 128- أو -128 سيعطي رسالة خطأ

اتفضلى استبدلى الكود تبعك بهذا الكود Dim iDate As Date Dim strSQL As String Dim isHoliday As Integer For iDate = Me.txtFirstDate To Me.txtLastDate If Format(iDate, "w") = 1 Or Format(iDate, "w") = 2 Or Format(iDate, "w") = 3 Or Format(iDate, "w") = 4 Or Format(iDate, "w") = 5 Then isHoliday = DCount("*", "tblHolidays", "HolidayDate = " & Format(iDate, "\#mm\/dd\/yyyy\#")) If isHoliday <= 0 Then strSQL = "INSERT INTO tblDay" strSQL = strSQL & " ( DayDate )" strSQL = strSQL & " SELECT " strSQL = strSQL & " '" & iDate & "';" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If End If Next iDate شرح التعديل تم الاعلان عن متغير رقمى isHoliday تم اضافة دالة المجال dcount من جدول الاعياد tblHolidays فى حالة ان تاريخ العيد او العطلة الرسمية يساوى قيمة المتغير iDate والذى يتم اسناد تورايخ البدء والانتهاء للحلقة التكرارية اليه وفى حالة ان القيمة العددية للمتغير isHoliday =0 اى انه لا يوجد اى تاريخ لاى عطلة فى الجدول مسبقا تتساوى مع التاريخ الحالى فى حلقة التكرار وفى هذه الحالة باستخدام قاعدة IF يتم الحاق التاريخ الى الجدول tblDay طبعا ان كانت القيمة العددية للمتغير isHoliday >0 هذا معناه ان ان التاريخ الحالى فى الحلقة يتساوى مع احد التواريخ فى جدول الاعياد tblHolidays وسوف يتم تجاهل الالحاق لهذا التاريخ وتستمر الحلقة حتى تنتهى من عملها الفكرة أعجبتنى جدا وأكثر ما أعجبنى طريقة أستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr فى كتابة استعلام الالحاق داخل محرر الأكواد تم رفع المرفق بعد التعديل للكود .. مثال-(2).mdb

بارك الله

خلاص .. آخر نسخة 🙂 ، هذه النسخة تم فيها معالجة وضوح/جودة الطابعة فهذا الإعداد كان يؤثر على سمك البراويز، والحمد لله. DrawLines_05.accdb

كما خمنت 🙂

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

تفضل أخي test1.accdb

حسب ماذكره صاحب الفيديو بأن الروبوت لايدعم 45 دولة من بينها مصر والسعودية والبحرين وغيرها ولا اعلم ماهو السبب في ذلك

اخي وليد المصرى 1 اسف علي التأخير تفضل تطابق ارقام.xlsm هذا الكود المستخدم Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim m As Integer m = 7 Do While Cells(m, "b") & Cells(m, "h") <> "" If Cells(m, "b") & Cells(m, "h") >= 1 Then Application.ScreenUpdating = False ' Cells(m, "g") = _ "=IF(RC[-5]&RC[1]="""",""No "",IF(RC[-5]-RC[1],""Can Extension"",""DONE""))" Cells(m, "g") = Cells(m, "g").Value Else Cells(m, "K") = "" End If m = m + 1 Loop Application.ScreenUpdating = True End Sub

ربما البحث بشرط او اكثر.xlsx

السلام عليكم اساتذتى وزملائى الكرام مرفق الى حضرتكم برنامج لادارة الموارد البشرية للاسف انا لا اجيد كتابة المواضيع (سامحوني على هذا) لكن احب اولا ان اشكر كل من قدم لى المساعدة والنصح والارشاد حتى يخرج البرنامج بهذا الشكل خاصة استاذى الجليل @jjafferr وايضا @ابو جودي وايضا @Eng.Qassim @Moosak @ابوخليل والكثير من الاستاذة الاجلاء حفظهم الله لا استطيع ان اتذكرهم الان سائل المولى عز وجل ان يزيدهم من علمهم ويبارك فى صحتهم هم وزويهم واصحابهم وجميع المسلمين ناتي للبرنامج البرنامج فيه الكثير من الامور التى يصعب علي تسجيلها كلها هنا مثل نظام صلاحية المستخدمين (هو موجود لكن هناك الكثير من النماذج لم اقم باضافتها لاني انا المستخدم الوحيد للبرنامج فتكاسلت عن ظبطها لجميع النماذج) ايضا 1- تسجيل بيانات الموظفين (بيانات كاملة وشامله لاغلب ما يمكن ان يتطلب* 2-نظام الحضور والانصراف للموظفين وترحيلها 3-نظام تحضير وتجهيز الرواتب 4- طباعة ورقة الحضور للموظفين اليومي ....... الكثير الكثير من الاستعلامات الخاصه مثل الاستعلام عن حضور وانصراف و اضافى الموظفين و البحث عن الموظفين والتسجيل لهم غياب مرضى او اجازة عمرة او حج ..... الخ سوف اضع بعض الصور للبرنامج وقوائهم قائمة التكوين والاعدادات قائمة الاجراءات قائمة الاستعلامات هذا كل ما يمكن ان اذكره والباقى على المحتاجين للبرنامج استكشاف البرنامج والادوات الموجودة فيه ملاحظه : قمت بازالة لوجو الشركة عندي كل ما عليك وضع شعار الشركة او المؤسسة عندك فى التقارير ايضا (اكيد هيكون هناك بعض الاخطأ فى البرنامج لم اقم باصلاحها لانى توقفت عن استخدام البرنامج من فتره طوووويله ^_^ بسبب وجود جهاز للبصمه وتم الاستغناء عن نظام الحضور والانصراف فى البرنامج لكن باقى الامور ان شاء الله تعمل جيدا واذا كان هناك اى اصلاحات مطلوبه واستطيع ان اصلحها انا فى الخدمه واذا لم يكن فى امكاني فسوف اطلب المساعدة من اساتذتى الكرام حفظهم الله) كل ما احتاجه منكم دعوة لى فى ظهر الغيب ولاهلى وان تدعو لامي ان يغفر لها ويرحمها 😢 ولكم جزيل الشكر والعرفان . HR-OmarDahy.rar Key.rar

أخي أنا حصلت عندي برنامج أقساط يمكن ينفعك ووافني بالردBou-Tariq Installments Program1.rarBou-Tariq Installments Program1.rarBou-Tariq Installments Program1.rarBou-Tariq Installments Program1.rar Bou-Tariq Installments Program1.rar

هههههه اصبت استاذ قاسم والبركة فيكم وفي الشباب الموجودين احنا راحت علينا وللاسف قمنا نلعب في الوقت الضائع تحياتي للجميع

السلام عليكم ورحمة الله جرب هذا الملف اختبار.xls