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

السلام عليكم .. الاخوة الاعزاء ما رأيكم أن نأخذ القائمة المختصرة الى المستوى التالى ؟ بدأ استاذنا جعفر @jjafferr السلسلة بهذا الموضوع الشامل الوافى ثم قمت بعمل تطبيقات عليه فى هذا الموضوع : المستوى التالى الذى اتكلم عنه هو كيف تجعل القائمة المختصرة تعمل بطريقة ديناميكية و أن تكون متعددة المستويات مثل التالى : اذا كان الموضوع هيضيف جديد لما قد قيل اتركوا تعليقكم وان شاء الله ابدأ تجهيز الموضوع فى اقرب وقت متاح . فى انتظار آرائكم .. دمتم بخير

In cell B7 =TRIM(MID(SUBSTITUTE($A7, "-", REPT(" ", 100)), 100*COLUMNS($B1:B1) - 99, 100)) In cell C7 =TRIM(MID(SUBSTITUTE($A7, "-", REPT(" ", 100)), 100*COLUMNS($B1:C1) - 99, 100)) In cell E7 =TRIM(MID(SUBSTITUTE($A7, "-", REPT(" ", 100)), 100*COLUMNS($B1:D1) - 99, 100)) In cell F7 =SUBSTITUTE(TRIM(MID(SUBSTITUTE($A7, "-", REPT(" ", 100)), 100*COLUMNS($B1:E1) - 99, 100)),".pdf","") But using the code is easier and cleaner and you ust get the values

Sub Test() Dim v, r As Long, i As Long, m As Long m = Cells(Rows.Count, 1).End(xlUp).Row Range("B7:F" & m).NumberFormat = "@" For r = 7 To m v = Split(Replace(Cells(r, 1).Value, ".pdf", ""), "-") For i = 0 To 3 If i > 1 Then Cells(r, i + 3).Value2 = CStr(v(i)) Else Cells(r, i + 2).Value = CStr(v(i)) Next i Next r End Sub

السلام عليكم ورحمة الله تعالى وبركاته الشرح الاتى لا يخص الأكسس بصفة خاصة ولكن لحماية حذف القاعدة او اى ملف داخل مجلد او المجلد الذى يحتوى قاعدة البيانات بالخطأ اولا نقوم بعمل مجلد جديد ونعطيه الاسم الذى نريد على سبيل المثال نضع مجلد جديد داخل القطاع D ونعطى المجلد اسم BackDB نقوم بتحديد المسار ونقوم بنسخه فيكون D:\Test\BackDB ولو كان اسم المجلد من مقطعين مثل Back DB سوف يكون المسار نسخ المسار الى ملف نصى ونقوم بتعديله ليكون D:\Test\Back_DB بعد ذلك نقوم بفتح موجه الاومر DOS ونقوم بكتابة او لصق الامر الاتى cacls D:\Test\BackDB /P everyone:n ولو اسم المجلد من مقطعين يكون cacls D:\Test\Back_DB /P everyone:n ثم نضغط على المقتاح Enter من لوحة المقاتيح ثم نضغط على المفتاح Y من لوحة المفاتيح كما هو موضح فى الصورة بعد ذلك نغلق موجه الاوامر DOS ونذهب الى المجلد ونقوم بالضغط عليه كليك يمين ونختار Properties تظهر لنا النافذة الاتية نحدد التبويب Security ثم نضغط بعد ذلك على Advanced كما هو موضع بالصورة ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالتحديد اولا كما هو فى الخطوة رقم 1 بالصورة ثم بعد ذلك كما هو بالخطوة رقم 2 نقوم بالضغط على Edit ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالضعط على Show Advanced Permissions ثم بعد ذلك تظهر لنا النافذة الاتية 1- فى الـ Type نختار Allow 2- فى اختيارات الـ Permissions نقوم بإزالة التأشير من على الاتى Delete Delete Subfolders and files لتصبح الاعدادت كما بالشكل الاتى ثم نضغط OK الان انسخ قاعدة البيانات داخل المجلد او اى ملفات تخاف من فقدانها جرب حذف الملفات لن يتم حذفها حاول حذف القاعدة كذلك لن يتم حذفها كذلك اقتح القاعدة واضف اليها بيانات او عدل او احذف منها اى بيانات سوف تعمل القاعدة بشكل طبيعى جدا لو اردت حذف المجلد او اى شئ بداخلة فقط استخدم الامر الاتى فى موجه اوامر الـ DOS cacls D:\Test\BackDB /P everyone:f وبعد حذف ما تريد يمكنك اعادة الخطوات ان اردت ارجاع الحماية مرة اخرى انتهى الشرح دمتم فى امان الله...

أخي الكريم السلام عليكم ورحمة الله وبركاته فكرت بعمود مساعد وأضفت عموداً للتاريخ المتأخر تكتبه يدوياً ، فكرة العمود أنك إن كتبت في كل خلية مقابلة للدالة حرفاً أو رقماً ((استخدمت رقم 8)) تعتبر الدفعة مسددة في حينها وإن لم تكتب وتركتها فارغة ستبقى هذه الدفعة متأخرة وستضاف قيم المتأخرات إلى خلية جمع المتأخرات والله أعلم. إن كان التحصيل في حينه ضع هذا الرقم في الخلية وإلا فاتركها فارغة سواء كان العميل 100 أو 200 أو مهما كان والسلام عليكم. _للارسال (3).xlsm

السلام عليكم تفضل يا اخى اذا اردت التعديل على المعادلة الموجودة بالملف اظعط على Ctrl+Shift+Enter بعد التعديل عليها Time Attendance Details Report 15022022_125100.xls

الحمد لله الذي بنعمته تتم الصالحات آمين وإياكم.

السلام عليكم ورحمة الله اخيرا تم اجراء التعديلات اللازمة لشيت كنترول الصف الثانى التجارى ارجو مراجعة الملف و ابداء الملاحظات و ان شاء الله اى تعديلات مطلوبة ارجو ذكرها و الله ولى التوفيق اليكم الملف 996653921_.xlsm

السلام عليكم .. الاخوة الافاضل الموضوع اليوم بسيط وسريع ويتحدث عن طريقة عمل قوائم مختصرة منبثقة من الازرار مثل الصورة التالية : الفكرة كلها ان عندى نموذج به الكثير من الازرار فبحثت عن طرق لاختصار الاوامر كلها فى زر او اثنين وبالتالى وصلت الى الفكرة التالية. اول خطوة عمل موديول جديد به الكود التالى : Sub MyMenu2() Dim Mnu As CommandBar, Itm As CommandBarControl Set Mnu = CommandBars.Add("", MsoBarPopUp, , True) Set Itm = Mnu.Controls.Add: Itm.Caption = "Export To PDF": Itm.OnAction = "amr3" Set Itm = Mnu.Controls.Add: Itm.Caption = "Export To Excel": Itm.OnAction = "amr4" Mnu.ShowPopup End Sub القائمة السابقة فيها امرين 2 فقط ويمكن زيادتها كما تريد بتكرار السطور وتغيير الاسماء , بالنسبة لAmr1 فى نهاية الجملة هو الامر المطلوب تنفيذه وسيتضح الموضوع من المثال المرفق . الخطوة الثانية : فى النموذج المطلوب تنفيذ الفكرة عليه , خلف زر الامر يتم وضع كود استدعاء للكود السابق كالتالى : Private Sub Command0_Click() MyMenu2 End Sub والنتيجة عند الضغط على الزر تنبثق القائمة كما فى الصورة السابقة . ملاحظات : قمت باضافة خيار آخر لاظهار القائمة وهو عن طريق الضغط على زر الفأرة الايسر مع زر الشفت فى نفس الوقت وستظهر القائمة ايضاً . يمكن تطبيق الطريقة فى التقارير والنماذج مع الاحتفاظ بالقائمة المختصرة الافتراضية الخاصة بزر الفأرة الأيمن وبالتالى سيصبح عند قائمتين مختصرتين اذا اردت الابقاء على الافتراضية . يجب تفعيل المكتبات الموجودة بالصورة حتى لا تواجه مشاكل . اترككم مع المثال لمزيد من التوضيح .. دمتم بخير Amr Magic Button.accdb

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد مكتبة باركود barcodex.ocx تتوافق مع اوفيس 64 وشكرا لكم

تفضل .................. jo.accdb

صحيح اني ما استعمل Adobe Acrobat Reader ، ولكني استخدم Foxit PDF Reader والظاهر انهم الاثنين يؤدون العمل ، ويسمحون بإظهار الملف في المتصفح في النموذج . جعفر

ان شاء الله خيــــــــر بشراكم

ايه ياعم بنبيع فجل , كده كده هيبقى بأذن الله بعد الموضوع اللى قلتلك عليه نخلص ونفوق بقى

وعليكم السلام ههههههههه شوق ولا تدوق

ايوه كده ورينا الابدعات بهذه الطريقه اقدر اختصر مساحات كثيره للقوائم والازار فى انتظار الطريقه بارك الله فيك وجعله فى ميزان حسناتك

جميلة جدا فكره رائعه بانتظار ابداعاتك اخي عمر وفقك الله

اجعل مصدر البيانات لحقل عدد الخدمات = Sum(iif([عدد الفحوصات]=-1;1;0)) وفي حدث عند النقر على عدد الفحوصات اعمل: Me.Refresh

استخدم هذا الكود عند حدث بعد التغيير في الكمبو المتعدد لديك ... Me.TextBox = Me.CompoBox_name.ItemsSelected.Count

بحسب فهمي للسؤال ضع عند حدث النقر الفحوصات

I already did. Review the previous post

السلام عليكم أخي الكريم @lionheart أرجو الاطلاع على رابط الموضوع التالي والمتعلق بالموضوع ذاته إذا الخلية في A تساوي الخلية في B امسح ما في الخلية A حيث أن طلبه لا يتوقف على خلية محددة I19 بل العمود في الجدول انطلاقاً من هذه الخلية وهذه الخلية المذكورة أعلاه تعتمد على تاريخ متأخر علماً أن التواريخ التي وضعها ستكتب آلياً أثناء كتابة بيانات العميل إذ لم أجد مجالاً لهذا التاريخ إلا من خلال عمود مساعد ...يذكر فيه هل تم دفع القسط في حينه وقد كان مسجلاً عنده أن القسط يتم دفعه آلياً مجرد مرور التاريخ المراد دفعه به وهذا خطأ ... وفي ردي الأخير عليه وضعت له عموداً يثبت فيه أن الدفعة قد سددت أو يترك مكانها فارغاً لتوضع قيمة الدفعة في المتأخرات وتجمع من خلالها. فإن أردت وضع كود لذلك يمكنك أخذ مداخلتي بعين الاعتبار وتعديل الكود على هذا الأساس. تقبل تحياتي العطرة والسلام عليكم.

زادك الله فضلا شكرا لك

@ابوخليل اخي ابو خليل انتظرني لحين عودتي للمنزل ان شاء الله سأقوم بعمل موضوع فيه طلبك، قمت ببرمجتة بلغة NET. وقمت بربطه بالاكسس.

ممتاز باش مهندس ،،، بارك الله فيك مشكور بحجم السماء 🌹

ما شاء الله بارك الله معادلات رائعة جداً أيضاً. أحسنتم بارك الله بكم

السلام عليكم ورحمة الله وبركاته كود رائع جزاكم الله خيراً.

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

إمضِ قُدما باش مهندس عمر .. 👍🏻🙂 أحييك على هذه الأفكار ✌🏻️

اتفضل test.accdb

الف شكر عمل رائع جزاك الله خير

تفضل أخي الكريم. 0.0_3rEd.0_3rEd!attachment!0_مواد دراسية (1).xlsx

تفضل المخزن.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل Time Attendance Details Report 15022022_125100.xls

وعليكم السلام 🙂 بالاضافة الى فتح ملف pdf خارج الاكسس ، يمكننا فتح الملف داخل نموذج الاكسس ، ويكون اسرع في التحميل: . و جعفر

ألف شكرا أستاذنا مع تحياتي

السلام عليكم اتفضل استاذ احمد @Ahmed_J تم التعديل فقد كنت مستعجل عند المشاركه الاولى للنزول للعمل واستخدمت الموديول فحدث آخر لذلك لم يعمل وجزاه الله خيرا معلمنا العزيز جعفر 💐🌹 تم تعديل التقرير الثالث rpt_Ev3 بالتوفيق 1468.1.Lines in Report2.accdb

Sub Test() Dim ws As Worksheet, sh As Worksheet, r As Range, d As Object, i As Long Application.ScreenUpdating = False Set ws = Sheets(1): Set sh = Sheets(2) Set d = CreateObject("Scripting.Dictionary") With ws Set r = .Range("B4:BF" & .Cells(Rows.Count, 3).End(xlUp).Row) For Each r In Intersect(r, r.Offset(1, 2)) If r.Value <> "" Then i = r.Row d(.Cells(i, 2) & .Cells(i, 3) & r) = Array(.Cells(i, 2), .Cells(i, 3), r) End If Next r End With With sh .Range("C3:BE15").ClearContents .Range("BK1").Resize(d.Count, 3) = Application.Transpose(Application.Transpose(d.Items)) .Range("BN1:BN" & d.Count).Formula = "=BL1&BM1" With .Range("C3:BE15") .Formula = "=IFERROR(INDEX($BK:$BK,MATCH($B3&C$2,$BN:$BN,0)),"""")" .Value = .Value End With .Columns("BK:BN").ClearContents End With Application.ScreenUpdating = True End Sub

عند كلمة function اكتب قبلها PtrSafe function وعند كلمة long اكتب بعدها longPtr وراح يعمل معك إن شاء الله

Select the cells that have the Hijri dates which are D18 & E18 and right-click to select Format Cells From Number tab select Date and from Calendar type select "Hijri" and check the option (input dates according to selected calendar) that's all Maybe you need to double click the cells D18 and E18 to recalculate the formulas

السلام عليكم 🙂 انا كنت عامل موضوع موسع عن القائمة المختصرة هنا: . ولكن استخدامك القائمة بهذه الطريقة على الازرار ، يجعل موضوعك مميز 🙂 شكرا على هذه الافكار 🙂 جعفر

The code will work only if you change any cell in column T manually and the code will not be triggered when copying more than one cell Try deleting the first line in the code

السلام عليكم ورحمة الله وبركاتة برنامج بسيط لطباعة الباركود على ورق a4 لتحميل البرنامج رابط الفيديو

حبايب اسهل طريقة لعمل progress bar تحياتي ان شاء الله يفيدكم progress bar.rar

تم الوصول للحل بفضل الله وهو الضغط على CTRL + SHIFT + ENTER وذلك للدخول كمسئول Administrator بمعنى + CTRL + SHIFT + ENTER كل الشكر والتقدير لاستاذنا الغالي @kanory والأستاذ @حسين العربى

بارك الله فيك استاذ عصام وزادك الله من فضله

كل ما فى الموضوع جعلت (taxt_kod) (Control Source) وليس (taxt_kod=) وكذلك(Barcod Type) (Code128) وليس (Code39)

انا انزلت الملف من الرابط اعلاه ، ووضعت بعض ملفات pdf حسب الاسماء الموجودة في البرنامج ، واشتغلت الملفات 🙂 ولا يوجد عندي Acrobat Reader في الكمبيوتر 🙂 جعفر