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

سأكشف لكم عن سر 👀 كنت قد بدأت منذ عدة أيام بإنشاء طريقة تساعد على عمل قوائم مختصرة للنماذج ، ولكنها أخذت مني وقتاً وجهداً كبيرين ، وتوقفت عند مرحلة إعادة تجميع الأفكار 😇 💡 قريباً النسخة الأولى 💡

السلام عليكم ورحمة الله وبركاته السادة اعضاء المنتدى والخبراء الكرام أثناء بحثي في الإنترنت وجدت بعض النماذج للأزار تبديل (Toggle Button) حديثة فأردت مشاركتها معكم لكي تعم الاستفادة لعل أحدهم ينتفع بها. وشكرا جزيلا لكم 1.rar 2.rar

1- انشاء شرط الريبون فقط نسخ فورم (Ribbon_menu1 ) مصمم وجاهز 2- من اداة تعطي كامل الشاشة مع اظهار شريط الويندوز ويمكن تغير مقاس بما تراه مناسب كان بالجنب او اعلى او اسفل مثل ما تستخدم الريبون بضبط 😏 -يكون كعداد لتعديل مقاس حجم الشاشة ================================ ابتعدة عن نموذج التنقل وكود تغير الارتفاع بسبب Flash Query! بطريقة بسيطة كنت برفع مكتبة لانشاء XML Ribbon وصعبة للبعض كتابة كود الزر للتشغيل بدوال مو داخل الزر وبعد بعضهم يستخدم docmd.openForm ,,,,, Hid ?! للتحكم وتشغيل الكود ويتطلب للتشغيل Ribbon العناصر الاربعة 😇 -tablet -Form -Function -micro لتشغيل وتعامل مع Ribbon صادفة قناة يبيع برنامج صممة بالفيجوال لاضافة واستخدام Ribbon الى اكسس وبسهولة مع مرفق فجبة لكم نفس النتيجة 😇😂 Ezy وتحكم سهل وخفيف ومريح وقابل للتخصيص وتصميم اشرايكم ❤️🌹 Ribbon_Ezy_with_Full_Contol.rar

جزاك الله خير Speed Test

MonthName: Format([تاريخ الغياب], "mmmm") Year: Year([تاريخ الغياب])

اسم القائمةالمختصره هو cop وهنا شرح كامل للموضوع

تم عملها برمجيا كاي قائمة مختصرة لكن في القاعدة التي ارفقتها تم استيرادها بدون اوامر البرمجة الخاصة بها يمكن اضافة وتعديل القائمة حسب الرغبة كالتالي: Sub CustomizeShortcutMenu() Dim cb As CommandBar Dim ctl As CommandBarControl ' الوصول إلى القائمة المختصرة الموجودة Set cb = Application.CommandBars("cop") ' إضافة عنصر جديد إلى القائمة المختصرة Set ctl = cb.Controls.Add(Type:=msoControlButton, Temporary:=True) With ctl .Caption = "New Menu Item" .OnAction = "MyCustomFunction" End With End Sub ' دالة مخصصة Sub MyCustomFunction() MsgBox "This is a custom function!" End Sub

عزيزي جو تمت مناقشة الموضوع في هذه المشاركة

عزيزى الفاضل شكرا

السلام عليكم ورحمة الله أخي الكريم شامل .. كنت قد بحثت في مشروع سابق لي عن هذه الفكرة وأتقنتها وهذه هي خلاصة تجربتي في البحث الشامل في النموذج بطريقتين . تفضل نموذج بحث شامل 1.accdb نموذج بحث شامل 2.rar

الاستاذ الفاضل / احمد كثيرا كنت ارى المثال الاول على اليوتيوب فى بعض البرامج واقول كيف يتم ذلك فى اكسس مثال جميل جدا جزاك الله كل خير وجعله فى ميزان حسناتك

تفضل جرب هدا Private Sub b_recup_Click() Dim Cnt As VbMsgBoxResult Dim sht As Worksheet, tbl As ListObject, tblRow As ListRow Set sht = Sheets("تصدير بيانات اكسيل") Set tbl = sht.ListObjects("Table1") Cnt = MsgBox(" تــرحيل البيانات ؟", vbYesNo, sht.Name): If Cnt <> vbYes Then Exit Sub With tbl.DataBodyRange If .Rows.Count > 1 Then .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete End If End With tbl.DataBodyRange.Rows(1).ClearContents Set tblRow = tbl.ListRows.Add tblRow.Range.Resize(Me.ListBox1.ListCount) = Me.ListBox1.List sht.[b2] = Format(DateAdd("d", -1, CDate(Me.DateMini.Value)), "dd/mm/yyyy") sht.[C2] = ("رصيد المدة"): sht.[F2] = ("بيان رصيد أول مدة بتاريخ هذا اليوم") sht.[G2] = Text_count: sht.[I2] = Text_count With sht.Cells(sht.Rows.Count, 6).End(xlUp).Offset(1) .Value = "الإجمالي" .Offset(, 1) = Me.TextBox3.Value .Offset(, 2) = Me.TextBox2.Value .Offset(, 3) = Me.TextBox1.Value End With MsgBox "تم نرحيــل البيانات بنجاح" Unload Me On Error Resume Next Set Rng = sht.Range("A1").CurrentRegion sht.PageSetup.PrintArea = Rng.Address sht.PrintPreview ' answer = MsgBox("طباعــة التقرير ؟", vbQuestion + vbYesNo + vbDefaultButton2, "تأكـــيد") ' If answer = vbYes Then sht.PrintOut End Sub تمت اظافة اكواد تصدير الملف بصيغة Word, Excel, PDF في الملف المرفق Copy of كشف حساب عميل & كارت صنف V5.xlsm

وعليكم السلام ورحمة الله وبركاته المثال رقم 2 جميل جدا .. شكرا جزيلا لك

Private Sub b_recup_Click() On Error Resume Next Dim Y As Date Dim X As Integer Set fS = Sheets("تصدير بيانات اكسيل") fS.Rows("3:3999").Select Selection.Delete Shift:=xlUp fS.[a2:m3999].ClearContents r1 = Text_count.Value Sheet3.Range("a2:m3999").ClearContents hrd1 = Array("رصيد اول مدة") fS.[c2].Resize(1, 1) = hrd1 fS.Range("f2") = ("بيان رصيد اول مدة بتاريخ هذا اليوم") fS.Range("g2") = Text_count fS.Range("i2") = Text_count fS.Range("b2") = Format(DateAdd("d", -1, CDate(Me.DateMini.Value)), "dd/mm/yyyy") a = Me.ListBox1.List fS.[A3].Resize(UBound(a) + 1, UBound(a, 2) + 1) = a c = 0 For c = 1 To Irow fS.Cells(1, c) = Range(NomTableau).Offset(-1).Item(1, c) Next Ligs = fS.Range("A" & Rows.Count).End(xlUp)(2).Row fS.Range("f" & Ligs) = ("اجمالى") fS.Range("g" & Ligs) = TextBox3 fS.Range("h" & Ligs) = TextBox2 fS.Range("i" & Ligs) = TextBox1 ' f2.Cells.EntireColumn.AutoFit fS.Columns(13).ClearContents MsgBox "تم تصدير البيانات بنجاح" Unload Me Set Rng = fS.Range("A1").CurrentRegion fS.PageSetup.PrintArea = Rng.Address fS.PrintPreview fS.Zoom End Sub تم عمل المطلوب جرب هذا الكود

تم إصلاح بعض الأخطاء البرمجية ( تحسين أداء ) ، وإضافة ميزة التعرف على لغة أوفيس ( عربي - إنجليزي ) فقط . بحيث :- يتم التعرف على اللغة في واجهة أوفيس للمستخدم بحيث تظهر أسماء أنواع الحقول باللغة الإنجليزية إذا كان إصدار أوفيس باللغة الإنجليزية ، وخلاف ذلك تظهر القائمة المنسدلة لأنواع الحقول باللغة العربية . TBL Maker.accdb

In sheet [Template] put the formula in cell C3 =INDEX(Support!A:A,MATCH(Criteria,Support!B:B,0))

السلام عليكم تفضل المرفق وقد تم الغاء العمود تنبية للوصول بسن المعاش 2.xlsm

السلام عليكم أخي الكريم سؤالك غير واضح في أي شييت تريد كتابة رقم الخافلة مثلا عندك شيت Support به بيانات مجمعة يمكنك استخدامها أنظر في المعادلة مثلا التي وضعتها لك بشيت Template بالخلية D1 DataSchool July 8.xlsx

السلام عليكم تفضل المرفق إن شاء الله يكون هو المطلوب بيانات الموظفين.xlsx

السلام عليكم تفضل الحل بالأكواد تضع كافة الملفات في مجلد (فولدر واحد) وتضع معهم هذا الملف suppliers.xlsm المرفق تفتخه وتضغط الزر ، يبدأ في عمل التالي فتح الملفات الواحد تلو الأخر استدعاء البيانات من الملف المفتوخ ونسخها للملف الأصلي غلق الملف المفتوخ ثم تكرار الخطوات الثلاثة ختي نهاية الملفات في الفولدر مهما كان عدد الملفات suppliers.xlsm

برنامج الموارد البشرية HR "مفتوح المصدر" يحتوى على التالي : -بيانات الموظف . -الإجازات . - الأذنونات . - تسجيل الحضور يدوياً . - الخصومات . - السلف . - المكافأت . - تقيييم الموظف . - ساعات إضافية . - تقارير. - متابعة الحضور والانصراف . - تسجل الحضور والانصراف بشكل آلي . - تسجل الحضور بشكل يدوي . وخيارات أخرى . وهذا البرامج من تطويري وجدت جداوله في موقع خارجي . لا تنسونا من خالص الدعاء ،،، HR.rar

ولا زالت الإبداعات مستمرة .. 🙂 وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb

السلام عليكم ورحمة الله تفضل الحل بمعادلة في الملف المرفق... new (1).xlsx