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

السلام عليكم و رحمة الله وبركاته مقدمة لفهم الفكرة اليومين دوول بعمل جدول حصص لمدرستى و شكل توزيع المدرسين فى الجدول بيكون بالشكل ده : فى الحصة المنفردة بيكون بالشكل ده : محمد فى الخلية B2 مثلا فى الحصة المشتركة بيكون بالشكل ده : محمد + محمود فى الخلية B3 مثلا وعشان أحسب عدد حصص محمد فى الخليتين بالدالة COUNTIF كان الناتج 1 فقط ليه الناتج كان 1 مش 2 شفتوا شفتوا حتى الاكسل اللى أكل دماغنا جاى على المدرس و حسب له 1 مش 2 على الرغم من أن الاستاذ محمد الغلبان شغال فى حصتين الاولى لوحده والتانية مشتركة مع الاستاذ محمود طبعا أنا مدرس زى الأستاذ محمد فوجب عليا أن أنصره على الاكسل الظالم أحيانا وأرجع له حقه فكانت هذه الدالة المستحدثة عشان تدى الأستاذ محمد حقه وتحسب له كام حصة اشتغل فيها هذا المعلم **************** اسم الدالة : MokhtarCountif تشبه الدالة COUNTIF فى العمل مع الفارق الفارق أن دالتى تبحث عن النص حتى ان كان النص كلمة من مجموعة كلمات بالخلية تتكون الدالة من عدد 2 باراميتر : MyVal نوعه String و AddressRange نوعه Range والناتج نوعه Long Option Explicit Function MokhtarCountif(MyVal As String, AddressRange As Range) As Long ' Author : Mokhtar ' Release : 2 - 10 - 2016 ' The MokhtarCountif function counts the number of a single criterion within a cell or range Of cells ' Name Required/Optional Data Type Description ' MyVal Required String The criteria in the form of a number, expression, or text. ' AddressRange Required Range The cell or range of cells which you want to count within. ' Return Value : Long '---------------------------------------------------------------------------------------------------- Dim C As Range, Total As Long, Arr() As String, j As Integer Application.Volatile True For Each C In AddressRange.Cells Arr = Split(C, " ") For j = LBound(Arr) To UBound(Arr) If Arr(j) = MyVal Then On Error Resume Next Total = Total + 1 On Error GoTo 0 End If Next j Next C MokhtarCountif = Total End Function أتمنى أن تنال الدالة اعجابكم و منتظر ملاحظاتكم مع تحياتى MokhtarCountif udf.rar

بارك الله فيك اخي مختار لكن انت ظلمت الاكسل (حيث انه يمكنه فعل ذلك من خلال هذه المعادلة) =SUMPRODUCT((LEN($B$4:$I$10)-LEN(SUBSTITUTE($B$4:$I$10,$M$4,"")))/LEN($M$4)) أو هذه( لا تحسب تكرار الاسم في نفس الخلية الا مرة واحدة) =COUNTIF($B$4:$I$10,"*"&$M$4&"*")

وعليكم السلام تفضل اخوي سعيد لاحظ المفاتيح في الجدول الوسيط ستعمل الأوامر في الكود عند النقر على الزر ولكن الجدول لن يسمح بتكرار شخص ضمن مجموعة واحدة ايضا فائدة اخرى وهي لن يتم الالحاق لو نسي المستخدم اختيار مجموعة Groups2.rar

اجرب ولي عودة

Private Sub Command2_Click() Me.Text0 = Date End Sub

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

ما شاء الله . عمل رائع شكرا لك أستاذ مختار على هذا المجهود وبما أنك تقوم بإعداد الجداول المدرسية فأحببت أن أوجهك لبرنامج شهير يقوم بهذا العمل aSc تجده هنا http://www.up-00.com/?SNZA أو هنا http://www.mrkzgulf.com/do.php?id=427367 تحياتي

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

بارك الله فيك أخي العزيز مختار دالة رائعة من أروع شخص .. تقبل وافر تقديري واحترامي

حياك الله اخي الكريم وصدقني كنت افكر الموضوع مجرد sendkey اثناء مداخلتي الاولى . ولكن لم ينجح الامر فهداني الله ان انقر على الزر مرار فنجحت وهنا خطر ببالي تكرار الامر وبوضع الرقم 2 وفعلا وفقنا الله فله الحمد وجل الثناء

السلام عليكم ورحمة الله وبركاته ... طابت اوقاتكم اخواني الكرام . احاول انشاء مجموعات بحيث يصبح بإمكاني اضافة اكثر من شخص لمجموعة معينة وكذلك الشخص ممكن يكون مضاف بأكثر من مجموعة. الطريقة مشابهه تماما لفكرة انشاء القروبات في تطبيق الواتس اب . المرفق يحتوي على ثلاث جداول .. tbl_contacts وهو جدول جهات الاتصال tbl_FavMain وهو جدول المجموعات . tbl_Favconn وهو جدول الربط بينهما .. يوجد نموذج وحيد ... frm_Groups . ====================== عند فتح النموذج احدد اكثر من اسم واضيفه ويقبل الإضافة .. ولكن عند المحاولة مرة اخرى يرفض . حيث يجب اغلاق النموذج ومن ثم فتحه.... واحيان اخرى لايقبل الإضافة . وهذا هو الكود المستخدم : Dim rs As DAO.Recordset Set rs = Me.RecordsetClone If Not (rs.EOF And rs.BOF) Then Do Until rs.EOF If rs!Cont_Selct = True Then DoCmd.SetWarnings False DoCmd.RunSQL "insert into tbl_favconn (fav_name,cont_id) values('" & Me.txtGroupSrch & "','" & rs!Cont_id & "' )" DoCmd.SetWarnings True rs.Edit rs!Cont_Selct = False rs.Update End If rs.MoveNext Loop MsgBox "done" rs.Close Set rs = Nothing End If End Sub ارجو التجربه ولو فيه اقتراح اخر وشكرا مقدما . Groups.rar

ظهر مشكل erreur lors de l'évaluation de la contrainte check لم أتمكن من إرفاق الملف لأن حجمه كبير لكن هذا مثال منه Nouveau dossier compressé.zip

والله يا اخي سعيد انا متلك افضل جمل SQL اشعر انها اسهل و اسرع

وهذا الاقتراح Private Sub CmdAddtoGroup_Click() DoCmd.RunSQL "insert into tbl_FavConn(Cont_id,Fav_Name) select Cont_id, [forms]![frm_Groups]![txtGroupSrch] from tbl_Contacts where Cont_Selct=true" End Sub بالتوفيق

هلا بك استاذ سعيد اولا خليني اوضح المشكلة وبعدين الاقتراح هنا If Not (rs.EOF And rs.BOF) Then اشترطت ان الريكوردست ليست بوضع النهاية ولا بالبداية وهنا الشرط يتحقق بالجملة التالية Do Until rs.EOF ....... rs.MoveNext Loop فالجملة السابقة سببت حتما السجلات في وضع النهاية وهنا لن يتم المرور على الكود الحل : ضع السطر التالي وهو وضع السجلات في البدء دائما ليصبح الكود Private Sub CmdAddtoGroup_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.MoveFirst If Not (rs.EOF And rs.BOF) Then Do Until rs.EOF If rs!Cont_Selct = True Then DoCmd.SetWarnings False DoCmd.RunSQL "insert into tbl_favconn (fav_name,cont_id) values('" & Me.txtGroupSrch & "','" & rs!Cont_id & "' )" DoCmd.SetWarnings True rs.Edit rs!Cont_Selct = False rs.Update End If rs.MoveNext Loop MsgBox "done" rs.Close Set rs = Nothing End If End Sub بالتوفيق

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

شكرا جدا على المتابعه استاذ رمهان ولك جزيل الشكر والتقدير انا نجحت معايا بالكود تبع حضرتك + انا ضيفت الكود االلى ف السطر التاني فقط دا الكود كامل عشان لو احد قابلة نفس المشكلة بعدين SendKeys ("%{TAB 2}"), True SendKeys ("{NUMLOCK}"), True

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

كيف ننشأ زر كهذا

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

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

السلام عليكم أستاذ رمهان السلام عليكم اخ وائل ان شاء الله وجدت الحل الذي لا يؤثر على برنامجك لكن الذي اطلبه اما ان تستبدل جدول الفوائد القديم بجدول الفوائد بالبرنامج المرفق واضمن لك انه لن يؤثر على برنامجك فهو مصمم بنفس الطريقة مع بعض التعديلات والتي لن تلاحضها اثناء العمل او ان تنقل بقية الجداول والنماذج من البرنامج القديم الى البرنامج المرفق والله الموفق Database1.rar

متى واين يتم الفتح ؟ عند بدء البرنامج ؟ او كشرط عند النقر على زر ؟ او اثناء العمل والبرنامج مفتوح ؟

نعم

و عليكم السلام ورحمة الله وبركاته انشئ وحدة نمطية جديدة انسخ اليها Public Function RunForm() Dim RunSunDayForm As String RunSunDayForm = Format(Now(), "dddd") If RunSunDayForm = ("SunDay") Then 'Call your codehere DoCmd.OpenForm "form2" End If End Function Form2 هم اسم النموذج الذي نريد ان يفتح كل يوم احد ثم وفي حدث عند التحميل للنموذج الافتتاحي ( او نموذج رئيسي ) انسخ Private Sub Form_Load() Call RunForm End Sub

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

وعليكم السلام تفضل السيارة عليها حظر.rar

دالة جميلة ممتعة وهي تغني عن البحث في النت يا ليتك تمتعنا بالمزيد من صواعق علومك في الاكسل باركك الله للابد

السلام عليكم ورحمة الله وبركاته أقدم لكم كود يمكنك من الدخول إلى حسابك على الفيس بوك بمعلومية اسم المستخدم وكلمة السر. في الملف المرفق كل ما عليك هو أن تقوم بإدخال اسم المستخدم (الإيميل) في الخلية D10 ، وكلمة المرور في الخلية D11 ، ثم تنقر على زر الأمر Login Facebook للمزيد حول الكود المستخدم والملف المرفق قم بزيارة الرابط التالي رابط الموضوع من هنا

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

حياك الله اخي الاستاذ حلبي 1. يعيد رقم السجل الحالي فعند فتح النموذج عرفت عدد السجلات وبالطبع اي رقم سجل اكبر من عدد السجلات القديم فهو سجل جديد 2. هذه خاصية للنموذج وهي عبارة عم مجموعة سجلات النموذج وهي من نوع الكائن recordset 3. تعيد عدد سجلات النموذج وهي خاصية للكائن recordsetclone فكاني اقول عدد سجلات النموذج

الاخ وائل بصراحة وبامانة لم اكن اعرف ان لك مواضيع سابقة ومن سنوات حول هذا الامر ومشاركة بعض الاساتذه واسمح لي ان ابدي رايي بكل شفافية بانك في وصف المشكلة لم توفق او سرد الشرح المنتدى يجب ان تختلف طريقة شرح المشكلة . فطريقتك تنفع لو كنت طالب برنامج ولكن اعتقد الاساتذة في المنتدى يريدون المشكلة الفنية او المطلوب بلغة الاكسس ومثل مانقول "كلمة ورد غطاها " الاخ والاستاذ حسام وجهة نظره صحيحة في انه يجب اعادة بناء الجداول ولكن انا ساستمر بسياسة المنتديات وساحاول قدر الامكان المضي قدما بنفس عملك السابق ولو انه متعب ومرهق لذلك هنا لدي استفسارات ( ارجو الرد لكل نقطة ): 1. هل الفوائد محصورة بسبع تفرعات حيث ان عدد الجداول لديك وحسب فهمي توحي بذلك 2. ضع مثالا كاملا شامل للنتائج المرجوه : مثلا تدخل كذا سجل في الجدول foaid وبكلمات المراد البحث عنها . ثم تذكر كلمة البحث ثم تضع نتائج البحث المرجوه كان تقول يظهر لي الجملة هذه من الجدول هذا وتظهر الجملة هذه من الجدول هذا وهكذا هذا وعندما نحقق المطلوب باذن الله نرى كيف يمكن اعادة تصميم الجداول بالشكل الذي يهدينا له رب العالمين تحياتي

مرحبا توجد أكثر من طريقة ' طريقة 1 Dim Ctrl As Control For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = Format(Ctrl, "#,##0") Next Ctrl '"****************************************************************************** ' طريقة 2 For i = 1 To 20 Me.Controls("TextBox" & i) = Format(Me.Controls("TextBox" & i), "#,##0") Next

بسم الله والصلاة والسلام على خير خلق الله السلام عليكم ورحمة الله بالملف المرفق معادلة لاستخراج اسم الملف بدون اكواد وفي المثال العملي اسم الملف عبارة عن الشهر ثم شرطه ثم السنه ومن خلال الفورمات السابق تم استخراج عدد ايام الشهر وفقا للشهر والسنة, يمكن استخدام هذه المعادلات في الملفات المرتبطة بالشهر والسنه كملفات الرواتب الشهرية خصوصا المرتبات المرتبطة بعدد ايام كل شهر على حده . برجاء من له سؤال او تصويب ان لا يبخل به علينا ليستفيد الجميع. سبحانك اللهم وبحمدك لا اله الا انت Feb-2016.zip

تلبية لرغبتكم و رغبة اخي ابو البراء الملف يالمعادلات Officena 9-2016 salim.rar

تفضل New Microsoft Access Database (4).rar

اخي ابو نادر طلبك في اول مشاركة اختلف عن اخر مشاركة فهل ياترى تعيد المطلوب بالمختصر المفيد وحبذا مرفق وبه المطلوب تحياتي

تفضل اخي العزيز 33a.rar

دائما روعة أخى الحبيب / ياسر جزيت خير الجزاء على الأعمال الرائعة التى تقدمها تقبل تحياتى

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

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