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

السلام عليكم اخي العزيز @عماد محمد عبد العزيز اسهل طريقة هي عمل ذلك عن طريق التنسيق الشرطي ضع الكود التالي في التعبير DCount("[M P R]";"[ben]";"[M P R] = [Person in charge] ")>=2 تفضل الملف بعد التعديل تحياتي PRODUCT.rar

السلام عليكم إذا كنت تقصد دمج المراسلات إكسيل - وورد، بالنسبة للتاريخ تضيف إلى كود الحقل الخاص بالتاريخ (في ملف الوورد المعني بدمج المراسلات) العبارة \@ "dd MM yyyy"...

جرب هذا السبب في Module1 من بعد Dim KH_Test As Boolean New_folder.rar

وعليكم السلام -تفضل حافز 2العملاء.xlsx

اولاً يجب ازالة دمج الحلايا (علة العلل لكل معادلة او كود) من الصفحة P الأعمدة 1و 2 و 3 ثانياً أنت لم تذكر للاكسل عن اية سنة تريد جمع ايام اشهر جانفي لذلك قام البرنامج بجمع الايام عن كل اشهر جانفي لكل السنوات تم معالجة الامر REpport.rar

يجب وضع Unload Me ثم MAINFORM.Show شاهد المرفق Formssss.xlsm

طريقة عمل تراجع عن الامر المنفذ عن طريق كود مثل ( ctrl+z) هذا الكود كتبه احد اباطرة VBA عام 2005 Mr.Jan Karel Pieterse لنشاهد المرفقات Undo_Handler.xls

جرب هذا الملف ATM_BANK.xlsx

الأمر بسيط جدا فقط عليك اضافة أخرى End If

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

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

السلام عليكم أستاذ جعفر موضوع في قمة الروعة ملاحظة صغيرة في الكود الموضوع بالأعلى : هناك بعض المتغيرات غير مصرح بها مع أنها موجودة في المرفق لكن من يريد تطبيق الكود بشكل مباشر من المشاركة سوف يظهر له خطأ. Public Const msoBarPopup = 5 Public Const msoControlButton = 1 Public Const msoControlEdit = 2 Public Const msoControlComboBox = 4 Public Const msoButtonUp = 0 Public Const msoButtonDown = -1 أخيرا لي الشرف العظيم أن أقوم بتثبيت هذا الموضوع

اهلا بك اخ كريم فى المنتدى تفضل 10101g0101.xlsx

السلام عليكم 🙂 هناك الكثير من الميزات/الاوامر التي يعطينا برنامج الاكسس ، والتي يمكن ان نعمل لها بديل ، ولكن يكون هناك فرق في سرعة تنفيذ كودنا مقارنة مع الكود الاصل من الاكسس !! مثل القائمة المختصرة التي تظهر لنا بالنقر على زر الفأرة الايمن ، والتي بها يمكننا ان نستغني عن الكثير الاوامر ، مثل الفرز والتصفية بأنواعه ، ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) : و . ويضطر المبرمج ان يعوض بقية الاوامر في القائمة ، بمجموعة من الازرار ، او بطرق مختلفة !! ----------------------------------------------------------------------------------------------- الاكسس يسمح لنا ان نعمل قوائم مختصرة Shortcut Menu والتابعة لمجموعة CommandBars ، حسب احتياجنا ، ونختار ما نضعه فيها 🙂 هناك 3 انواع من هذه القوائم : الثابته ، والمؤقته ، والمؤقته التي تحتاج الى كود. الثابته: وهي التي عندما نعملها ، تصبح مستقله عن الكود ، وتُحفظ وتبقى في قاعدة البيانات بعد إغلاقها ، ويمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى ، بإستخدام : . ونختارها في النموذج : . او التقرير : . هذا مثال لعمل الكود الاساس لعمل قائمة قطع/نسخ/لصق : Option Compare Database Option Explicit Dim cmb As Object Dim cmbCtrl As Object Dim cmbName As String ' ' ' to use: ' Dim cbr As Commandbar ' Dim cbrButton as CommandbarControl ' ' we have to select in the References: ' Microsoft Office xx.x Object Library ' Public Function SCM_Copy(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy" CommandBars(cmbName).Delete If DeleteMe = True Then Exit Function If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb .Controls.Add msoControlButton, 21, , , False ' Cut .Controls.Add msoControlButton, 19, , , False ' Copy .Controls.Add msoControlButton, 22, , , False ' Paste End With Set cmb = Nothing End Function . وشرح الكود : 1. اسم القائمة المختصرة ، والتي سوف نختارها في النموذج او التقرير ، 2. هذه المجموعة الاساس منبثقة Popup ، 3. بينما هذه المجموعات عبارة عن ازرار Buttons ، وقد تكون قائمة منسدلة Combobox ، او نص Edit نُدخل فيه قيمة معينة للتصفية مثلا ، 4. هل هذه القائمة مؤقته ؟ False معناها ثابته وتُحفظ في قاعدة البيانات ، بينما True معناها انها مؤقته وتعمل لما ننادي الوحدة النمطية/الكود ، 5. هذه ارقام كل امر ، وملف الاكسل المرفق من مايكروسوفت فيه جدول يضم جميع ارقام الاوامر للاكسس 2010 () ، 6. اذا اردنا ان نحذف هذه القائمة ، فننادي الوحدة النمطية بضم True في امر المناداة المؤقته: ونستعمل True في مكان الرقم 4 اعلاه. وهي التي عندما نعملها ، لا تصبح مستقله عن الكود ، ولا تبقى في قاعدة البيانات بعد إغلاقها ، ولا يمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى (كما هو الحال مع القائمة الثابته) ، ويجب ان نستخدم "حدث فتح" النموذج/التقرير لعملها واستخدامها في النموذج/التقرير ، و "حدث اغلاق" النموذج/التقرير لحذفها ، طيب ، خلونا نعمل هذه القائمة : Public Function SCM_Copy_Sort(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy_Sort" CommandBars(cmbName).Delete If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb Set cmbCtrl = .Controls.Add(msoControlButton, 21, , , False) ' Cut cmbCtrl.Caption = "Cut..." cmbCtrl.FaceId = 21 Set cmbCtrl = .Controls.Add(msoControlButton, 19, , , False) ' Copy cmbCtrl.Caption = "Copy..." cmbCtrl.FaceId = 19 Set cmbCtrl = .Controls.Add(msoControlButton, 22, , , False) ' Paste cmbCtrl.Caption = "Paste..." cmbCtrl.FaceId = 22 Set cmbCtrl = .Controls.Add(msoControlButton, 210, , , False) 'Sort Ascending cmbCtrl.BeginGroup = True cmbCtrl.Caption = "فرز تصاعدي..." cmbCtrl.FaceId = 210 Set cmbCtrl = .Controls.Add(msoControlButton, 211, , , False) 'Sort Decending cmbCtrl.Caption = "فرز تنازلي..." cmbCtrl.FaceId = 211 End With Set cmb = Nothing End Function . وشرح الكود: احنا توسعنا في الكود الاساسي ، واضفنا له : 1. تسمية اختيارية غير الافتراضية ، لاحظ في الصورة اعلاه اني استعملت الانجليزي والعربي ، 3. وهو لعمل خط فاصل في الصورة بين مجموعة قطع/نسخ/لصق ومجموعة فرز تصاعدي/تنازلي ، . 2. ممكن ان نبدل الصورة الافتراضية التي تيجي مع الرقم ، بتبديل هذا الرقم (لاحظ صورة الاسهم للتصاعدي/التنازلي) : . ومرفق ارقام جميع الصور الموجودة في الاكسس : . . . . . . . . . . . في قاعدة البيانات المرفقة myRight_Click.mdb ، بالاضافة الى القوائم الثابته اعلاه ، تم اضافة هذه القائمة ايضا : . والتقرير يحتوي على القائمة المؤقته التالية : . - ملف الاكسل myList.xlsx ، اخترت فيه اهم القوائم في وجهة نظري ، - ملف الاكسل AccessControls_2010.xlsx ، من مايكروسوفت ، يحتوي على جميع الاوامر 🙂 جعفر المصادر: http://dev-soln.com/access-shortcut-right-click-tool/ https://www.experts-exchange.com/articles/12904/Understanding-and-using-CommandBars-Part-II-Creating-your-own.html https://filedb.experts-exchange.com/incoming/2014/02_w06/833359/CommandBars-II.mdb https://www.experts-exchange.com/articles/18341/CommandBars-Part-III-Using-Built-in-Shortcut-Menus.html http://www.skrol29.com/us/vtools.php AccessControls_2010.xlsx myList.xlsx myRight_Click.zip

تفضل اخي الكريم _______Library -.rar تحياتي

المثال السابق يبحث في نفس النموذج واذا كنت تستخدم نموذج رئيسي ونموذج فرعي Dim myfilter As String myfilter = "[city]='" & [tx2] & "'" Me.tbl1.Form.Filter = myfilter Me.tbl1.Form.FilterOn = True المثال مرفق بحث2.accdb

جرب المرفق كود بسيط DoCmd.ApplyFilter , "[city]='" & [tx2] & "'" بحث.accdb

جرب هذا تعلم كيفية التعامل مع الاداة أداة FlexGrid

فعلا لسيادتكم عزيزى خالد سيسكو جزيل الشكر بارك الله فى علم حضرتك كود رائع تسلم تفضلوا بقبول فائق التقدير

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

أستاذ hamza su khateeb أين الضغط على الإعجاب ؟!💙

السلام عليكم يمكنك استخدام الكود التالي DoCmd.OpenReport "تقرير المصروفات", acViewPreview, , "Teacher = '" & Me.ZTeacher.Column(1) & "'" تحياتي

شكرا اخي احمد بدره شكرا اخي ابو طيبه

باسم الله ما شاء الله دائمًا تذلل كل الصعوبات بارك الله فيك

تفضبل اخي الكريم Private Sub Command41_Click() ' تفريغ مصدر النموذج الفرعي SourceObject Me.frm.SourceObject = "" ' اعلان عن متغيير عددي Dim FormCount As Integer Dim i As Integer 'سيكون المتغيير FormCount = عدد النماذج المفتوحة FormCount = Forms.Count ' عمل خلقة تكريرية For i = FormCount - 1 To 0 Step -1 ' استثناء نماذج محددة من الاغلاق وذلك بالشرط التالي ' اذا كان النموذح المفتوح غير النموذج frmHome login ونموذج If Forms(i).Name <> "frmHome" And Forms(i).Name <> "login" Then ' تنفيذ امر الاغلاق DoCmd.Close acForm, Forms(i).Name ' انهاء الشرط End If ' تشغيل الحلقة التكرارية Next i End Sub والله اعلم تحياتي

وعليكم السلام ورحمة الله وبركاته الحل الامثل لما ذكرت هو ان تكون قاعدة البيانات Sql Server وهناك شروحات كثيرة تفضل هذا موضوع لاستاذنا الفاضل @Elsayed Bn Gemy تحياتي

وعليكم السلام ورحمة الله وبركاته جرب استخدام دالة NZ كالتالي NZ(Text;0) وكما في مثالك اجمالي الدوام بالدقيقة: Nz(DateDiff("n";[وقت الدخول];[وقت الخروج]);0) ساعات العمل الفعلية: Nz([اجمالي الدوام بالدقيقة]/60;0) تحياتي

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

https://youtu.be/p1wFM0d-Ao4 رابط شرح الدرس الثانى من تعليم الاكسيل وفى المرفقات يوجد ملف الشرح الدرس 2 شرح الدالة IF.rar

شکرا لاستاذ صالح حمادي ذاك الطريقة يتم استخدامه اذا لم يكن الجدول المفروض يغير قيمة الافتراضية كمصدر النموذج اللي نعمل عليه وهذه طريقة يتم استخدامه في نموذج نفسه لجلسة واحدة فقط اي عند اغلاق النموذج راح يرجع لقيمته اافتراضي الاولى ' اذا كان حقل من نوع النصية ستستخدم هذا مثلا Me.Field1.DefaultValue = """" & Me.Field1.Value & """" ' اما اذا كان حقل من نوع الرقمي ستستخدم هذا 'Me.Field2.DefaultValue = "" & Me.Field2.Value & ""

أحسنت بارك الله فيك وزادك الله من فضله

السلام عليكم بعد اذن الأساتذة ,يمكنك تجربة هذا استاذى الكريم Uploading to Google drive using VBA?

جرب هذاه المعادلة =INDEX($B$3:$B$8,MOD(ROWS($A$1:A1),2)+1,)*1

السلام عليكم ورحمة الله تفضل الملف المرفق وفيد ما تريد بمعادلة صفيف... بن علية حاجي Book121.xlsx

وبما انك لم تقم برفع ملف فعليك بتحميل هذا البرنامج من النت وسيجلب لك كلمة السر ان شاء الله تفضل Passware Kit Enterprise Passware Kit Forensic 13.5

تفضل -تصبح المعادلة هكذا =IFERROR(IF(ROWS(A$1:A1)>COUNTIF(E$4:E$100,"<>"""),"",INDEX($D$4:$D$100,SMALL(IF(E$4:E$100<>"",IF(E$4:E$100<>"",ROW(E$4:E$100)-ROW(E$4)+1)),ROWS(A$1:A1)))),"") Fathi2.xlsx

وعليكم السلام -تفضل New Microsoft Excel Worksheet.xlsx

وجدت درس رائع يقوم بشرح اهم دوال برنامج الاكسل بطريقة سهلة وجميلة حيث يحتوى على شرح الدوال التالية SUM - RAND - RANDBETWEEN - SQRT - ABS - COUNT - COUNTA - COUNTBLANK - MAX - MIN DATE - TIME - DAY - MONTH - YEAR - HOUR - MINUTE - SECOND - ISNUMBER - ISTEXT رابط الدرس دوال برنامج Excel

بعد اذن حبيبي أحمد نعم ضع المعيار الذي تريد في مصدر مربع التحرير انظر المثال ... تجربة تختصر عدد التقارير1.rar

السلام عليكم لقد وجدت الحل المطلوب كاملاً من خلال الرابط الآتي http://allenbrowne.com/ser-62.html شكراً لكل من رغب بالمساعدة و الشكر الخاص للأستاذ @essam rabea

اهلا بك اخى ابراهيم فى المنتدى الرقم السرى موجود فى المشاركة الأولى للأستاذ عوض , صاحب الموضوع وهو : 301155 بارك الله فيك

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

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

اهلا بك اخ كريم فى المنتدى برنامج رائع بارك الله فيك وجزاك الله كل خير

أخى الكريم تمت الإجابة من قبل الأستاذ طارق محمود فى قسم الإكسيل

تفضل اخى الكريم والطباعة مضبوطة على الصفحة بدون اية اكواد أجندة محامى.xlsm

وهناك ايضا موضوع اخر فى المنتدى لطباعة عمود طويل فى صفحة واحدة وذلك عن كريق تقسيمه الى اعمدة صغيرة تفضل https://www.officena.net/ib/topic/85873-كيفية-طباعة-ورقتين-فى-ورقة-واحدة/?tab=comments#comment-544405 ويمكنك ايضا متابعة هذا ,اصبح لديك عدة اختيارات كما تشاء https://academy.hsoub.com/apps/productivity/office/microsoft-excel/تخصيص-خيارات-طباعة-أوراق-العمل-في-microsoft-excel-r71/

بسم الله الرحمان الرحيم اليوم لتحميل برنامج الدالفي على الموقع التالي أخوكم في الله المبرمج : مناد سفيان الجزائر.https://www.embarcadero.com/products/delphi

أخى الفاضل / ياسر الحافظ أرجو أن أراك يوميا.. لأنك ونعم الأخ

هذه العبارة أحزنتنى جدا .. لأنه من حقك .. أخى الفاضل / تـــــامر السلام عليكم تفضل أخى الفاضل تم تم التعديل المطلوب كما طلبتم ولكن .. ردكم على رسالتى بعمل مخالف تماما لما طلبتم من حيث الملف أو التطبيق .. البحث فى هذا المثال بحروف أو تطابق من العمود الأول لا تكل أو تمل من السؤال حتى نصل .. هذا من حقكم .. نحن معا.. Tamer 5.rar