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

أخي الفاضل : اخر الحركات حسب رقم 1 أم رقم 2 كم عدد الحركات التي تريدها ..... أخر 10 حركات مثلا ؟؟؟؟

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

بارك الله فيك اخي الكريم ... هذا اقل ما يمكن ان نقدمة لاعضاء هذا المنتدى الذي لازال ويقدم لنا العلم .... اسأل العظيم بمنه وكرمه ان يفك عنك كربتك ... امين يارب

والله ما عارف اشكرك كيف انت انسان بجد محترم وذوق {ربنا يبعد عنك انت وكل حبايبك جنده (كورونا) كما بعد بين المشرق والمغرب } بالله عليك ادعي لي ربنا يفك كربي

ممكن عملها ولكن لماذا لا نجعلها صلاحيات للاضافة والتعديل والحذف على مستوى النموذج ولكافة النماذج ويمكن مستقبلا اضافة نظام مستخدمين وربطها معا ولكن دعنا حاليا في الصلاحيات الثلاث بحيث يكون لدينا جدول ياخذ اسم النموذج بشكل تلقائي من جدول النظام المخفي MSysObjects وثلاث خانات اختيار اضافة تعديل حذف وبالتالي عند فتح النموذج يتم التأكد من هذة الخيارات الثلاث جرب الملف المرفق ربما يكون افضل من زر امر مع الشكر والتقدير لاستاذنا الفاضل @osama ababneh New Microsoft Access Database(2).accdb

تفضل ... شؤؤن_الموضفين.accdb

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

السلام عليكم ورحمة الله وبركاته من خلال متابعتي لأعمال هذا المنتدى الرائع والعريق لاحظت وللأسف أسماء أعضاء كرام غريبة ليست بالعربية ولا بالأعجمية وكنا قبل ذلك بمدة نصرّ على أن تكون الأسماء باللغة العربية لغة القرآن الكريم منبع اللغات ومرجعها .. فما رأيكم دام فضلكم ؟!... أقول ذلك بدافع محبتي لهذا المنتدى الكريم والقائمين عليه لما لهم من فضل علينا ولا يزالون هل ستعاودون الطلب من الأعضاء الكرام تعريب أسماء عضويتهم بدلاً من عجمة بعضها وغرابتها عن مجتمعنا أم أنكم ستتركون لكل منهم حرية التسمية كما هو موجود حالياً بالسوشالميديا .. مع الاعتذار الشديد إن كان في طرحي هذا تطفل أو تدخل في شؤون الآخرين والسلام عليكم ورحمة الله وبركاته. ملاحظة :لم أقم بعرض عينة من هذه الأسماء حرصاً على وشائج المحبة بينا كأعضاء تحت سقف هذا المنتدى الكريم.

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

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

تفضل لك ما طلبت New Microsoft Excel Worksheet1.xlsx

تفضل أخي listbox unique.xlsm

وهذا تطبيق كلام الاخ Barna test.accdb

وعليكم السلام-لا يمكن العمل على التخمين ونبهنا كثيراً ان لا تنجح اى مشاركة بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع النتائج المرجوة وذلك تجنباً لعدم اهدار وقت الأساتذة ووقت كل من يطلع على هذه المشاركة دون جدوى او اهمية

وعليكم السلام-لا يمكن العمل على التخمين ونبهنا كثيراً ان لا تنجح اى مشاركة بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع النتائج المرجوة وذلك تجنباً لعدم اهدار وقت الأساتذة ووقت كل من يطلع على هذه المشاركة دون جدوى او اهمية او عليك بإستخدام خاصية البحث بالمنتدى فقد تم تناول مواضيع مثل هذا الموضوع دمج بيانات الصفوف المتشابهة في صف واحد دمج الخلايا المتشابهة في نطاق وإلغاء الدمج

رائع كعادتك اخي محمد نور الموقع بعودتك 🌹

شوف يا ابا بسملة مع اني عملت نظام صلاحيات متكامل واستخدمه في برامجي لكن هذا الملف عجبني ببساطته وامكانية التعديل عليه بسهولة وسهولة ربطه في مع اي نظام مستخدمين جزاك الله خير اخي احمد وكذلك اخي العزيز ازهر 🌹

ربنا يفك كربك وكرب كل مكروب لا يعلم بكربته الا الله سبحانه وتعالى

المخفي هو الاساس والظاهر انت عملته ما حبيت احذفه ؟ ياليتنا من حجنا سالمين ***** كان الذنوب الى علينا خفيفات 😃😃 محبتي وتقديري لك اخي @ازهر عبد العزيز

هل هذا ماتقصده Function aboyaseen() DoCmd.OpenForm "FENABLE" End Function New Microsoft Access Database.accdb

بارك الله بك اخي أبو ياسين نعم بالتأكيد هو المطلوب شكراً جزيلاً

اتفضل لعله طلبك If Not IsNumeric(Mobile) Then MsgBox " فـضـلاً أدخـل أرقـام فـقـط ولـيـس حـر و ف ", vbInformation, " : خـطـاء " Cancel = True ElseIf Len(Mobile) <> 11 Then MsgBox " فـضـلاً أدخـل عـشـرة أرقـام فـقـط ولـيـس اقـل او اكـثـر ", vbExclamation, " : خـطـاء " Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل' End If 45.mdb

وعليكم السلام - بارك الله فيك استاذ محمد وهذا بالفعل الذى كان يتم التنبيه عليه سابقاً فى منتدانا الكريم ولكن الأن قد نرى ان هذا الأمر لا يقبله الكثير ويعتبره تدخل وتطفل على خصوصيته , ويرى ان يكون له الحرية الخاصة فى إختيار الإسم المناسب له لكى يظهر بالمنتدى ولا نستطيع ان نخبره على هذا الأمر بأن يغير اسم الظهور الى اللغة العربية كسابق عصره

هذه المعادلة =SUM($L$9:$L$1031)+SUM($G$9:$G$1031) أو واحدة من هاتين (حسب اعدادات الجهاز عندك( فاصلة أو فاصلة منقوطة) =SUM($L$9:$L$1031,$G$9:$G$1031) OR =SUM($L$9:$L$1031;$G$9:$G$1031)

وعليكم السلام اهلا بك اخ علاء ممكن مثال وبه بيانات عشوائية للتطبيق عليه

تفضل تم الحل بطريقتين بمعادلات المصفوفة (Ctrl+Shift+Enter) =IF(ROWS($L$3:L3)>COUNTA($B$3:$B$500),"",INDEX($B$3:$B$500,SMALL(IF($B$3:$B$500<>"",ROW($B$3:$B$500)-ROW($B$3)+1),ROWS($L$3:L3)))) وايضا بالكود .. حتى تختار المناسب لك من بين الحلين Sub Rectangle1_Click() On Error Resume Next Worksheets("Sheet1").Range("b3:c100").SpecialCells(xlCellTypeConstants).Copy Worksheets("Sheet1").Range("I3:I100") Application.CutCopyMode = False End Sub جلب بيانات عمود بدون فراغات.xlsm

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

وعليكم السلام-وذلك من خلال هذه المعادلة =YEAR(G4)-5 &"/"&MONTH(G4)&"/"&DAY(G4) تواتي 39.xlsx

تمام أحسنت استاذ منير عمل ممتاز , بالتوفيق دائماً مع مواصلة النجاح والإجتهاد الى الأمام دائماً دون توقف وواصل

بالتأكيد هدية مقبولة اخى الكريم -بارك الله فيك وجزاك الله كل خير

وعليكم السلام-كان عليك عمل بحث قبل طرح هذه المشاركة-تفضل برنامج مرتبات أبي الحسن لعام ٢٠١٩

الطلبات اصبحت كثيرة جدا يمكنك استخدام معادلة المصفوفة =IFERROR(INDEX($A$5:$A$14,SMALL(IF($E$5:$E$14=FALSE,ROW(A$5:A$14)-ROW(A$5)+1),ROWS($L$5:L5))),"") تواتي 37.xlsx

يمكنك استخدام معادلة المصفوفة لإيجاد أقل قيمة (Ctrl+Shift+Enter) =MIN(IF((ALL!$A:$A=$A2),ALL!$D:$D,"")) ولأكبر قيمة استخدام هذه المعادلة =MAX(IF((ALL!$A:$A=$A2),ALL!$F:$F,"")) AnnualVacation1.xlsx

اللهم آمين تزور بيته الحرام وتزور سيدنا محمد صلى الله عليه وسلم ......آمين يارب حبيبي يا حاج أحمد انت راجل محترم

رحنا نبي نخفف ذنوب علينا.......وجينا وعلينا كثرها عشر مرات 🤣🤣🤣

الاستاذ @ابو ياسين المشولي

بالتوفيق اخي

جرب المعادلة في مكان لا توحد في خلايا مدمجة (علة العلل بالنسبة للمعادلات) Long_Sum.xlsx

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

ربما هكذا Add_To_Sam_Self.xlsm

السلام عليكم اخى الحمدلله رب العالمين الذى بنعمته تتم الصالحات ووفقك لما تسعى اليه ارفق لك رد لمعلمتنا الغاليه زهره جزاها الله خيرا فالمشاركه ع الرابط التالى http://arabteam2000-forum.com/index.php?/topic/151888-تمت-الإجابة-مشكلة-انشاء-accde/&do=findComment&comment=762618 بالتوفيق

وعليكم السلام اخى قاسم عند الحاجه الى المكتبه والله اعلى واعلم اخى واستاذى محمد @Barna تم التجربه على نفس المثال المرفق منك وازاله الاشاره للمكتبه من الريفرنس والتغييرات التى تمت بالكود طبعا بعد الحصول على الارقام من ميكروسوفت msoFileDialogFilePicker = 3 من الرابط التالى https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogtype msoFileDialogViewList = 1 من الرابط التالى https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogview Private Sub btnLocateFile_Click() Dim varItem As Variant Dim strPath As String 'Dim objFilePicker As FileDialog تم تبديل هذا السطر بالتالى Dim objFilePicker As Object Dim db As Database Dim rst As DAO.Recordset Dim strUnitNumber As String Set db = CurrentDb() 'Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) تم تبديل هذا السطر بالتالى Set objFilePicker = Application.FileDialog(3) With objFilePicker 'Setup file dialog .AllowMultiSelect = False .ButtonName = "Select" '.InitialView = msoFileDialogViewList تم تبديل هذا السطر بالتالى .InitialView = 1 .title = "Select File" 'add filter for all files With .Filters .Clear .Add "All Files", "*.mdb,*.accdb,*.xlsx" End With .FilterIndex = 1 'disply dilog boxe .Show End With If objFilePicker.SelectedItems.Count > 0 Then m_strFileName = objFilePicker.SelectedItems(1) Me.txtImportFile = m_strFileName End If End Sub جزاك الله خيرا اخى واستاذى محمد وجمال وجعفر 💐 BA.mdb

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

عذرا استاذ عبد القدوس .. 129 مشاركة وعضو مميز .. ولا يكون لعنوان الموضوع قيمة او اهمية !!! نحن نقوم بالتعديل على العناوين _ للمشتركين الجدد _ ونلمح لهم اهمية اختيار العنوان المناسب الذي يصف الموضوع اغلب الاعضاء والخبراء هنا يعملون محتسبين .. يهمهم المصلحة والفائدة العامة المستقبلية في البحث حتى انت مستقبلا وبعد سنوات لو احتجت لهذا الموضوع لن تستطيع الوصول اليه آمل ان تقبل وبصدر رحب غلق الموضوع .

عليكم السلام ورحمة الله وبركاته خلية اسم الشهر في ورقة العمل J1 وفي الكود كانت I1 وتم تعديلها جرب هذا لعله يفي الغرض Payroll123-3-2020 - Copy.xlsm

متابعه مع اخى واستاذى العزيز @اشرف جزاه الله خيرا اخى @بلال اليامين بعد تحديد الجداول والضغط على موافق ثم الضغط على نتوورك مثل هذا المسار \\Ashraf\1اشرف\قاعدة بيانات شير واختيار الجهاز السيرفر والدخول على المجلد المتشير ثم دبل كليك على قاعد البيانات كده تم الربط بنجاح هل تقوم بالدخول على مسار السيرفر عالنتوورك للربط ام ماذا ؟

وعليكم السلام-يمكنك استخدام هذه المعادلة =SUMPRODUCT(($C$5:$C$956<>"الغاء")*($D$5:$D$956)) المجموع1.xlsx

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

لا أعتقد أن هذا نوع من الحماية وعلى أي حال لماذا لا نقوم بعمل ماكرو يقوم بإرجاع الملف إلى حالته بعد نسخه من ملف الأكروبات عن طريق تغيير ترتيب الأحرف .. أعتقد أن هذا الأمر ممكن .. وهذا مثال يمكنكم التعديل عليه: Sub Macro() 'الذهاب إلى أول المستند Selection.HomeKey Unit:=wdStory 'معرفة عدد الكلمات في المستند Set wdDTWC = Dialogs(wdDialogToolsWordCount) wdDTWC.Execute dlgwordcount$ = wdDTWC.Words 'تحديد كلمة كلمة For o = 1 To dlgwordcount$ Selection.Find.ClearFormatting With Selection.Find .Text = "<?*>" .MatchWildcards = True End With Selection.Find.Execute 'وضع الكلمات في متغيرات Dim x As String Dim s As String x = Len(Selection) s = Selection 'قلب الكلمة إلى وضعها الطبيعي For i = 0 To x - 1 Selection.TypeText Text:=Mid(s, (x - i), 1) Next Next End Sub

الاسم : محمد طاهر سنة الميلاد : 1968 م المهنة : مهندس مدني و أعمل فى مجال إدارة المشاريع الهندسية التعليم : بكارولويس هندسة مدنية 1991 - هندسة القاهرة ماجيستير إدارة مشروعات 1998 - هندسة القاهرة PMP 2008 RMP 2012 MVP 2010-2013 الحالة الاجتماعية : متزوج و رزقني الله ب 4 أطفال بلد الجنسية / بلد الاقامة : مصر / الامارات أقسام الاهتمام فى المنتدي : كل الأقسام - و بالذات الأكسيس و الإكسيل معلومات أخري : أحب الأكسس و أنشأت تطبيقات مختلفة له ، و أيضا أحب جدا الاكسيل و استخدام ال vba به . تتركز خبرتي فى مجال ادارة المشاريع عموما و مشاريع التشييد بصفة خاصة، و لدى خبرة عملية فى هذا المجال من حيث التطبيق و التدريب. أجيد إستخدام برامج ادارة المشروعات بالاضافة الي بعض البرامج الهندسبة و أستخدم بعض برامج الرسم و الجرافيك بصورة متوسطة. و لدي دراية بسيطة بتصميم الويب و لغاته . خبرتي فى المنتديات : عضو شرف و مشرف قسمي الأكسس و الأوفيس ( سابقا ) و مراقب سابق فى الفريق العربي للبرمجة و إفتتحت هذا الموقع رسميا فى فى الثاني من جمادي الأولي 1424 هـ الموافق أول يوليو 2003 مـ