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

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

السلام عليكم أخي الكريم تفضل الحل بالمرفق خيثر.rar

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

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

السلام عليكم أستاذى بن عليه أثناء تجربتى لمرفق حضرتك وجدت الآتى : اذا وضعت مكونات العدد 100 ( 15 و 5 و 50 و 30 ) مثلا فى ال 4 صفوف و حذفت الكلمات الصف أ و الصف ب ...... الخ التى بأول كل صف فان الكود لا يعطى شيئا هذا دفعنى للعمل على الكود و تعديله بالكيفية الآتيه : الاستغناء عن كل التسميات فى المرفق والتى تزيد من بطء الكود و التعويض عنها بنطاقات فى الكود نفسه وهذا من شأنه اعطاء الكود مرونة وسرعة . الى جانب تعديلات أخرى بسيطة فى موضع ظهور النتائج Sub TEST2() ' Find every combination H.ben & Mokhtar 5/1/2015 Dim i As Integer Dim Adrs1 As String, Adrs2 As String, Adrs3 As String, Adrs4 As String Dim C1 As Range, C2 As Range, C3 As Range, C4 As Range, MyCel As Range Dim Rng1 As Range, Rng2 As Range, Rng3 As Range, Rng4 As Range i = 16 Set MyCel = Sheets("Sheet1").Range("E12") Set Rng1 = Sheets("Sheet1").Range(Range("B3"), Cells(3, Cells(3, Columns.Count).End(xlToLeft).Column)) Set Rng2 = Sheets("Sheet1").Range(Range("B5"), Cells(5, Cells(5, Columns.Count).End(xlToLeft).Column)) Set Rng3 = Sheets("Sheet1").Range(Range("B7"), Cells(7, Cells(7, Columns.Count).End(xlToLeft).Column)) Set Rng4 = Sheets("Sheet1").Range(Range("B9"), Cells(9, Cells(9, Columns.Count).End(xlToLeft).Column)) On Error Resume Next With Application .ScreenUpdating = False: .DisplayAlerts = False: .Calculation = xlCalculationManual End With Sheets("Sheet1").Range(Cells(16, 2), Cells(Rows.Count, 6)).ClearContents For Each C1 In Rng1 Adrs1 = C1.Address For Each C2 In Rng2 Adrs2 = C2.Address For Each C3 In Rng3 Adrs3 = C3.Address For Each C4 In Rng4 Adrs4 = C4.Address If C1 + C2 + C3 + C4 = MyCel Then Cells(i, 2) = i - 15 Cells(i, 3) = Adrs1 Cells(i, 4) = Adrs2 Cells(i, 5) = Adrs3 Cells(i, 6) = Adrs4 i = i + 1 End If Next Next Next Next On Error GoTo 0 Set MyCel = Nothing Set Rng1 = Nothing Set Rng2 = Nothing Set Rng3 = Nothing Set Rng4 = Nothing With Application .ScreenUpdating = True: .DisplayAlerts = True: .Calculation = xlCalculationAutomatic End With End Sub تحياتى لك من قلبى سيدى الفاضل الخلوق . و السلام عليكم Find every combination H.ben & Mokhtar.rar

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

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

اليك هذا الملف عساه المطلوب test salim.rar

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

السلام عليكم ورحمة الله وبركاته الاصدار الرابع : فورم اضافة وبحث وتعديل مرن مع استعراض الصور (تحكم كامل بالصورة ) المرفق 2003 فورم ادخال و تعديل مرن مع الصور.rar http://www.officena.net/team/khboor/kh_image/p86.png هام جدا بتاريخ ( 14 / 6 / 2023 ) لكي يعمل الفورم جيدا بدون اخطاء لابد من عمل الاتي 1- UnRegister MSCOMCT2.OCX ازاله تسجيل الملف MSCOMCT2.OCX تشغيل الامر cmd كمسئول ثم كتابه الأمر التالي لو كان الويندوز ٦٤ بت regsvr32 /u C:\Windows\SysWOW64\MSCOMCT2.OCX او regsvr32 /u C:\Windows\System32\MSCOMCT2.OCX لو كان الويندوز ٣٢ ثم بفك الضغط عن الملف المرفق بأسم MSCOMCT2.OCX ونقوم بنسخه الي المسار التالي ويندوز٦٤ بت C:\Windows\SysWOW64 ويندوز ٣٢ بت C:\Windows\System32 2- Register MSCOMCT2.OCX ثم نقوم بعمل ريجستر للملف الذي نسخناه في الويندوز عن طريق هذا الأمر ويندوز ٦٤ regsvr32 C:\Windows\SysWOW64\MSCOMCT2.OCX ويندوز ٣٢ regsvr32 C:\Windows\Sys\MSCOMCT2.OCX MSCOMCT2.zip

كثيرا ما ننسي اضافة شيء و نتذكره بعد ارسال البريد مباشرة و نسرع بعمل استدعاء للبريد المرسل Recall بينما هناك حل جميل لم أعرفه من قبل و هو يؤدي الي تأخير ارسال البريد لعدد من الدقائق تحددها أنت و يتم تنفيذه من خلال قواعد الارسال الالية Rules and Alerts و حقيقة لم يسبق لى تطبيق القواعد على البريد المرسل و انما استخدمها بكثافة على البريد القادم و يتم ذلك من خلال البدء بانشاء قاعدة جديدة ثم Next و اختيار الخيار التالي كما فى الرسم و تحديد عدد الدقائق و لكن قد تكون فى حاجة الى ارسال رسائل فورية فى بعض الاحيان لذا يمكنك اجراء استثناءات كأن يكون البريد مرسل الى شخص او عدة اشخاص او يكون به كلمة معينة و عن نفسي افضل ان يكون الاستثناء ان يكون البريد مصنف كبريد هام، و ذلك كما هو موضح بالشاشة التالية تختار importance ثم تحدد القيمة ثم اختيار التالي و الاغلاق و هكذا تبقي الرسالة فى صندوق الارسال outbox لمدة دقيقتان قبل أن يتم ارسالها هذا ما لم تكن مصنفة كرسالة مهمة

اســم المنتج سعر المنتج عددالمنتج سعر البيع عدد البيع عددالباقى المكسب مكسب الصيانه شراء من الزباين الثمن التقسيط اسم المشترى المبلغ دفع الباقى

السلام عليكم ورحمة الله تم إضافة كود يقوم بإدارج "فاصل الصفحات" بعد كل محافظة مستعينا بالعمود C (عمود مساعد)... تم إدراج عدة تسميات لنطاقات معينة لتسهيل عملية الكود... بن علية صفحات الطباعة.rar

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

شكرا على التوضيح سأحاول في المرات القادمة تلافي هذا الإشكال

لا ليست مثل بعضها فالحروف تختلف بالطبع مثل حرف e بالإنجليزية أما في الفرنسية هو é ويختلف تنفيذ ذلك حسب إعدادات لغة الويندوز الذي تعمل عليه القاعدة بعد إذن أخي أبو رحيل.. تفضل أخي نبيل المرفق بتنسيق 2003 mouwazaf - C--edit.rar

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

اخى الحبيب اهلا بيك فى جامعه اوفيسنا بما انك مهتم بالسودكو زى بهديك ملف عندى من احد المواقع الاجنبيه جرب الملف ربما يعجبك بس اهم شئ تكون حريف تقبل تحياتى -------------------------------------------------------------------- SuDoku.zip

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

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

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

أشكرك من أعماق قلبي أستاذ سعيد دائما تثري أي موضوع تتواجد به وفقك الله وأحسن اليك .

تفضل اخي الكريم في حدث بعد التحديث للحقل name تم وضع هذا الكود Me.d = Nz(DCount("name", "stu", "name=forms!ÌÏæá1!name"), 0) المرفق .. بالتوفيق oth.rar

السلام عليكم ورحمة الله أخي الكريم، تقوم بالعملية حسب المراحل التالية: 1- تحدد النطاق A1:D100 2- من التبويب "بيانات DATA" نختار الخاصية "التحقق من الصحة Data Validation" 3- نختار الميزة "مخصص Personalize" وندخل المعادلة التالية : =SUM($A1:$D1)<=$E$1 4- نوافق على التعديل... كل هذا تجده مطبقا في الملف المرفق... بن علية DD.rar

جرب هذا الملف التنسيق الشرطي salim.rar

وصلتني على البريد افتح الاوت لوك الخاص بك وحاول تجربة الاختصارات التالية: •Ctrl+R : الرد على بريد الكتروني •Alt+R : الرد على الكل في البريد الإلكتروني أو قم بالتبديل إلى طريقة عرض تقويم أسبوع العمل •Alt+W : إعادة توجيه البريد الإلكتروني أو قم بالتبديل إلى عرض التقويم الاسبوعي •Ctrl+M : F9 لإرسال/تلقي جميع المراسلات •Alt+S : أرسل بريد الكتروني •Ctrl+G للانتقال الى أي تاريخ في التقويم » الانتقال الي تاريخ « : فتح مربع يمكنك أيضا التبديل بين البريد والتقويم والاتصالات والعناصر الأخرى في "جزء التنقل" عن طريق Ctrl + 1, 2, 3, 4, 5 . جرب الأرقام كل على حدة

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

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

جزاك الله خيرا أخي الفاضل الصقر ( حسام ) بعض ماعندكم أحبك الله الذي أحببتني فيه

انا لا استطيع الا ان اقول لك جزاك الله خيرا "اشكرك بشدة"

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

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

وعليكم السلام.. طبيعي أن تظهر لك رسالة خطأ لأن حقل المعرف أصبح فارغا بعد الحذف، في حين أن شرط الكود هو فتح النموذج حسب حقل المعرف ما رأيك أخي أن تستخدم هذا الكود في زر (حذف)؟ ملحوظة هامة.. يفضل تسمية الحقول والكائنات بالإنجليزية وليست بالعربية وبدون مسافات If MsgBox("هل أنت متأكد من حذف العميل" & " : " & [Nom] & " ", vbOKCancel + vbCritical, "تنبيه") = vbOK Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.OpenForm "نموذج1" DoCmd.Close acForm, "نموذج2", acSaveYes Else: Exit Sub: End If

استخدم أداة الFormat Painter بعد تحديد التنسيق على أول خانتين التنسيق الشرطى2.rar

بارك الله فيك أخي الغالي مختار أخي الكريم أبو حماده جرب الكود بهذا الشكل Private Sub TextBox1_Change() If Me.TextBox1.Text = "سبحان الله" Then Command1.Enabled = True Else Command1.Enabled = False End If End Sub تقبل تحياتي

السلام عليكم ورحمة الله وبركاته أستاذنا الحبيب محمد طاهر .. لفتةٌ طيبةٌ وجّهتم عنايتكم من خلالها لإخوة كرام طالما اجتهدوا وبذلوا قصارى جهودهم لإيصال المعلومة الصحيحة والنصح الجميل مترافقين بحلم وأناة ولين جانبٍ إنهما أخوينا الكريمين ياسر خليل أبو البراء وأبو خليل المحترمين اللهم اجعلهما أخلاء متقين آمين.شكراً لكل من ساهم برفع سويةِ منتدانا وألّف إليه قلوباً تهفو إلى علمٍ ناصعٍ ومحبةٍ فياضةٍ والسلام عليكم.

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

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

السي أبو رحيل ... جرب هذا التعديل المخصص mouwazaf.rar

على العموم تم حل المشكلة بحمد الله بعد تبديل حرف E من الفرنسية إلى الإنجليزية E في مسميات الحقول وللعلم أخي الفاضل تم تعديل حقل الرتبة في التقرير وجعله نص، واستبدال نوع مصدر الصف لحقل الرتبة Grad إلى مربع قائمة وعنصر تحكمه إلى مربع تحرير وسرد.. وذلك لتعرف ما تم إجراءه على مثالك.. تحياتي mouwazaf - C--edit.rar

السلام عليكم ورحمة الله المعادلة تجعلها بالشكل التالي: =SUM($A1:$D1)>=$E$1 ثم تسحبها على النطاق الذي تريد... بن علية

اخي الغالي ما اشرت اليه ما هو الا اقواس يتم وضعها في اغلب الاحيان لضم كلمة المرور داخلها مثلا الباسوورد كدا Password:="01097192367" دا الطبيعي في كتابة كلمة المرور في اغلب الاحيان يتم كتابتها بين قوسين والاضمن لعدم وجود اخطاء طيب لما نعرفها كمتغير لو كتبناها كدا زي ما عرفناها Dim strPassword As String strPassword = "01097192367" Password:="strPassword" كدا خطأ لانه هيتعامل كانه نص عادي يبقي لازم يخرج بره الاقواس زي كدا Password:="" & strPassword & "" وصلت حافظنا على تواجد الاقواس مع ادراج قيمة المتغير بينهم وللعلم تعمل احيانا هكذا ولكن لست اضمنها في معظم الحالات Password:=strPassword اما اذا كنت تريد تطبيق ما تريده يبقي هكذا Dim NAME As String NAME = Text5.Text YXL.Workbooks.Open App.Path & "/aseel.xlsx", UpdateLinks:=0, Password:="" & NAME & "" او هكذا YXL.Workbooks.Open App.Path & "/aseel.xlsx", UpdateLinks:=0, Password:=NAME ياريت المعلومة تكون وصلت او هكذا اذا كان هذا ما تقصد Dim NAME As String NAME = Text5.Text YXL.Workbooks.Open App.Path & "/" & NAME, UpdateLinks:=0, Password:="" & Text6.text & "" او هكذا YXL.Workbooks.Open App.Path & "/" & NAME , UpdateLinks:=0, Password:=Text6.text

Sub MokhtarSquare2() Application.ScreenUpdating = False With Cells .RowHeight = 6.694 .ColumnWidth = 1 End With Application.ScreenUpdating = True End Sub جعل عرض كل الأعمدة = 2.17 و ارتفاع كل الصفوف = 18 هذه الأرقام تجعل كل خلايا الشيت تبدو مربعة الشكل بنسبة كبيرة جدا وهو ما تريده و تقريبا تقدر تقول كل 1 نقطة فى عرض العمود = 5.694 فى ارتفاع الصف جرب الكود السابق ستجد أن كل خلايا الشيت مربعة الشكل زود الزوم ستجد أيضا الخلايا مربعة الشكل و الله أعلى وأعلم

بالشكل ده Private Sub TextBox1_Change() If Me.TextBox1.Text = "سبحان الله" Then Command1.Enabled = True End Sub

تم التعدبل حسب الرعبة ترتيب لكل صف salim 3.rar

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

وتقدر تعمل الكود التالي (انا طابعه هنا مباشرة دون تجربته ، فقد يكون فيه خطأ ما ) بدل الاستعلام: set rst=me.recordsetclone rst.movelast:rst.movefirst RC=rst.recordcount for i=1 to RC rst.edit rst!commprint=0 rst.update rst.movenext next i rst.close: set rst=nothing جعفر

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

وهذه طريقة اخرى مع مثال من استاذنا أبوخليل http://www.officena.net/ib/index.php?showtopic=60383 جعفر

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