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

السلام عليكم وإثراء للموضوع ، فاليكم هذه المعلومة (مع انها متأخرة بعض الشيء) : برامج mdb يوجد بها كلمة السر ، فمن السهل استخراجه ، لأننا نتكلم عن محرك MDB والذي اسمه JET وهو معمول من اوائل التسعينات ، وكلمة السر بداخله ، ولكن من الصعب استخراج كلمة السر من برامج accdb ، لأن محركه الجديد ACE ، يشفر بطريقة معقدة بينما في برنامج الواجهة (سواء MDB او ACCDB) والذي كان مرتبط ببرنامج الخلفية (الذي عليه كلمة السر) ، فكلمة السر تكون موجودة في الجدول MsysObjects في برنامج الواجهة ، وبدون تشفير وهذه اسهل واسرع طريقة للحصول عليها جعفر

وعليكم السلام 1. عندك مجموعة اختيارات ، منها: vbBlack vbRed vbGreen vbYellow vbBlue vbMagenta vbCyan vbWhite 2. او استخدام الامر RGB: R = Red G = Green B = Black وهو عبارة عن خلط هذه الالوان الثلاث للحصول على 16 مليون لون ، والكود هكذا: me.TS.backcolor= RGB(0,0,0) 'اسود ومن هذا الرابط مثلا ، تستطيعين معرفة خلطة جميع الالوان تقريبا http://www.rapidtables.com/web/color/RGB_Color.htm 3. واذا كانت عندك خلفيه في برمجة صفحات الانترنت ، فتستطيعين استخدام Hex Code (للأكسس 2007 فما فوق) ، والوانه كذلك موجود في الرابط اعلاه ، مثل #FF0000 للون الاحمر وعلى هذه الاساس ، طلبك يكون: if me.MS>=85 and me.MS<=135 then me.MS.backcolor=vbGreen end if جعفر

وعليكم السلام أخونا وحبيبنا الغالي ابوخليل يمكن الحصول عليها ، وهناك العديد من البرامج اللي تعمل هذا الشيء ، لكن هذه برامج عامة تستخدم الطرق التقليدية في محاولات مقارنة كلمة السر ، والطرق الشهيرة هي: Dictionary Attack Brute-Force Attack Xieve Attack Known Password/Part Attack Previous Passwords Attack وكل نوع من هذه البرامج يشتغل بطريقة تختلف عن الأخرى ، ولكنها جميعا تحاول بزيادة/تغيير حرف/رقم/إشارة على الرقم/الكلمة اللي تم تجربتها ، وانا اعتقد بأن جميع الشباب اللي شاركوا في هذا الموضوع وحاولوا استخراج كلمة السر ، استخدموا احد البرامج التي تستعمل الطرق اعلاه ، والدليل ان طريقة أخونا شفان اخذت اكثر من 21 ساعة من المحاولات ، وكذلك في اعتقادي بأنهم لم يتمكنوا من معرفة كلمة السر ، لأن أخونا سلمان كان مستخدم حروف عربية في كلمة السر ، بينما معظم برامج مقارنة كلمة السر لا تحتوي على حروف عربية او ان كلمة السر كانت اطول من 14 رقم وحرف: والسبب اني اكرر تسميتهم "برامج مقارنة" كلمة السر ، وذلك لأنها لا تستخرج كلمة السر مشفرة او بدون تشفير ، وإنما هي تحاول معرفة كلمة السر جعفر

شكرا على المداخلة أخي سلمان بس لوسمحت تخبرنا هذه المعلومة (وما نريد نعرف كلمة السر) ، حتى يكتمل الموضوع: -ماذا كان طول كلمة السر (عدد الاحرف والكلمات) -وهل كان فيها حروف عربية؟ جعفر

السلام عليكم حياكم الله أخوتي الكرام هذه طريقة أخرى أسهل بدون استعمال استعلام و تلبي المطلوب: If Me.crt = "الكل" Then DoCmd.OpenReport "tbl", acViewPreview Else DoCmd.OpenReport "tbl", acViewPreview, , "country = '" & Me.crt & "'" End If عواصم الدول العربية.rar

نعم هكذا Like IIf(Len([Forms]![frm_Rooms_Available]![Room_Number] & "")=0,"*", "*" & [Forms]![frm_Rooms_Available]![Room_Number] & "*") ولكن يجب الانتباه الى ان استخدام الامر Like ، يجب ان يكون فقط عندما نريد جزء من الكلمة ، وليس الكلمة كاملة جعفر

بارك الله لك أستاذ ياسر طريقة أخرى لتنفيذ المطلوب وبنفس عدد سطور الكود (٦ سطور) وفقنا الله جميعا لكل ما يحب ويرضى

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

الحمد لله الذي لولاه ما جرى قلم, و لا تكلم لسان, و الصلاة و السلام على سيدنا محمد (صلى الله عليه و سلم) كان أفصح الناس لساناً و أوضحهم بياناً. من دواعي سروري أن أشرح هذا الموضوع الهام في علم التكنولوجيا, و أرجو من الله تعالى أن يحوز على اعجابكم, و هو شرح لأهم برنامج من برامج الاوفيس برنامج (مايكروسوفت أكسيس 2013). و اهدي هذا العمل الى والداي رحمهم الله و تغمدهم برحمته أرجو منكم الدعاء لهما. منهاج مايكروسوفت أكسيس 2013 و هو منهاج خاص من شركة مايكروسوفت و يغطي خاصة منهاج الفحص الخاص بشهادة MOS (Microsoft Office Specialist) مع ملاحظة أن المنهاج ليس ترجمة بل شرح خاص حسب خبرتي الخاصة بهذا البرنامج. سأقوم بنشر هذا الكتاب على مراحل ستكون عبارة عن مجموعة دروس مصممة بنوعين من الملفات: الملف الأول ملف عرض تقديمي بوربوينت. الملف الثاني ملف من نوع PDF. مدعومين بالصور كأمثلة شرح عن كل فكرة. و سيتم نشر كل خمس أيام درس. و بعد اكتمال جميع الدروس سيتم نشر ملف خاص يحتوي على مثال متكامل يشرح كيفية بناء و إنشاء قاعدة بيانات متكاملة أبدأ فيها من مرحلة التحليل الى مرحلة التصميم النهائية بالتفصيل. أي ملاحظة أو استفسار لديكم الرجاء مراسلتي على بريدي الخاص abdotarakji@gmail.com. -----------------------------------------------------------------------------------------------

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

الاخوة الزملاء اليكم لعبة لاطفالكم لتركيب الصور اسحب الصورة من اعلى وركبها فى المستطيل على الشمال مثل الصورة الموجودة على اليمين http://www.mediafire.com/file/5mw2cimz853rn00/تحريك+وتركيب+صورة.rar تحريك وتركيب صورة.rar

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

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

الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل

شككككرا أستاذ محمد حطيت كود اللون تحت MS="" ومسحتها ورجعت حطيتها قبل الكويري واشتغل يعطيك العافيه :)

اتفضلى جربى الكود بهذه الطريقة على زر جديد ضيفى هذا الكود MS.BackColor = vbWhite MS.ForeColor = vbBlack Me.Requery

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

الكود اعتقد راح يظبط بهذا الشكل If Me!TS = "قبل الفطور" And Me![MS] >= 0 And Me![MS] <= 84 Then MS.BackColor = vbYellow ElseIf Me!TS = "قبل الفطور" And Me![MS] >= 85 And Me![MS] <= 125 Then Me.MS.BackColor = vbGreen ElseIf Me!TS = "قبل الفطور" And Me![MS] >= 126 Then MS.BackColor = vbRed MS.ForeColor = vbWhite End If

تفضل اخي الكريم 22.rar سبقتني للخير استاذ محمد

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

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية " E3 " =LOOKUP(2;1/(متابعة!$B$3:$B$7=C3);متابعة!$C$3:$C$7) ثم اسحب نزولا

أدعو الله تعالى له بالرحمة ولكم بالصبر والاحتساب.

الله عليك اخي الخبير / صالح حمادي خبير يضع لمسات خبرته بارك الله فيك استادنا / عبد الفتاح يعجبني اسلوبك وتفكيرك في حل مشاكل اكسس لا يصدر الا من خبير معلمنا / جعفر هكدا مداعبة الخبراء تأتي بالثمار الله يفتح عليكم ويبارك في علمكم

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

شكرا لمرورك الكريم أستاذ أحمد الفضل لله العلي العظيم

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

جزيت خير - خير ان شاء الله

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

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

اخواني الافاضل الاستاد / جعفر الاستاد / عبد الفتاح لي وجهة نظر متواضعة في مثال خبيرنا الاستاد / جعفر انا اعتبر نفسي مبتدأ واروح وين في موسوعة كبيرة مثل اخونا واستادنا / جعفر واستادنا / عبد الفتاح لقد استخدمت استعلام واحد فقط واضفت كلمة all للجدول الموجود وحصلت علي المطلوب بابسط الطرق . هل انا علي صواب ام انني مخطئ ارجو من اخواني تصحيح ما قمت به chang all.rar

بارك الله فيك أستاذي الكبير محمد صالح على حلولك الرائعة ، والله لقد دبت الروح في المنتدى بعد عودتك إليه سؤال لما استخدمت الحلقات التكرارية في كودك الأخير .. في حين يمكن عدم استخدامها بهذا الشكل Sub AddKasr() Dim c As Long c = Cells(Rows.Count, "AR").End(xlUp).Row With Range("AN8:AN" & c) .ClearContents .Value = Range("AR8:AR" & c).Value End With MsgBox "OK" End Sub

سر على بركة الله

هذه الطريقة لا تغير أيقونة البرنامج الخارجية.

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

شكرا أخي عبد الفتاح ولكني لم اكن متوقع انك راح تفتح موضوع جديد له جعفر

نعم انا فكرت في الموضوع ، ولكن لم احصل على الوقت لعمل هذا ، ولم افكر كيف اريد ان تكون النتائج

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

سجل قضايا.rar

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

السلام عليكم هههههه ، ببساطة ، هذه الهواتف اللي عندي وعندنا تلفونين غير ، وسأجري التجربة عليهم كذلك ان شاء الله جعفر

Option Explicit Sub Test() 'متغيرات Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long 'اسم شيت المصدر واسم الخليه الاولى منه arr = Sheets("Sheet1").Range("A3").CurrentRegion.Value 'الأعمدة المطلوب الترحيل إليها cr = Array(3, 5, 9) 'أرقام الأعمدة المطلوب ترحيلها For Each i In Array(2, 6, 10) 'اسم شيت الهدف ورقم صف صفحة الهدف Sheets("Sheet2").Cells(4, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i End Sub سحر الاكواد

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

يا سلام عليك استاذنا جزئية هامة جدا في الوقت الحالي

السلام عليكم ورحمة الله اخى الكريم تم عمل المطلوب ما عدا فرز وترتيب الاعمدة بسبب دمج الخلايا اليك الملف New Microsoft Excel Worksheet.rar

وعليكم السلام تفضلي أختي: الزر موجود في النموذج Form1 ، اولا تأكدي ان تغير الحدث من Private الى Public Public Sub cmd_A_Click() MsgBox "Run A" End Sub ثم من اي مكان او اي نموذج ، ناديه هكذا: Call Form_Form1.cmd_A_Click جعفر

الاخ اسامة وعليكم السلام ورحمة الله وبركاتة انا شايف الصورة جزئين يمين وشمال بفاصل فى الوسط هل انت طالب ان الكرة تتحرك لتسلسل الارقام من 1 الى 8 وما علاقة حرف n r

استاذ @سلمان الشهراني تحيبة طيبة ان شاء الله انا ممكن اساعد حضرتك ممكن تراسلنى على الخاص

ماهى كلمة السر؟

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

السلام عليكم ورحمة الله * بالنسبة للسؤال الأول تقوم أولا بتقسيم الملف الخاص بك إلى مقاطع sections، وهنا إلى نهاية الصفحة(أو السطر أو الفقرة أو ...) التي تريد أن تفتح بعذها مقطعا جديدا (أي صفحة جديدة) ثم تقتح قائمة "ملف Fichier File" ثم في نافذة "إعدادات الصفحة Mise en page" تختار في "معاينة Aperçu" (وتجدها بأسفل النافذة على اليسار) وتختار Appliquer à في الإطار الذي أسفله "من هذه النقطة A partir de ce point" ثم الموافقة... وستفتح صفحة جديدة (أو بالأحرى مقطع جديد) وتكمل مع باقي الملف إلى نهايته.... ثم تختار المقطع الذي تريد بوضع مشيرة الفأرة Curseur في إحدى صفحاته (أو فقراته أو أسطره أو عند كلمة منه أو أمام أي حرف منه) وتقوم بالتنسيق الذي تريده (مثلا إطار صفحاته) على هذا المقطع بفتح أمر "تنسيق Format" ونختار "حدود وتضليل Bordures et Trames" ونطبق "إطار الصفحة Bordure de page" ونختار "تطبيق على Appliquer à" ونطبق على "هذا المقطع A cette section" وهكذا على باقي المقاطع الأخرى... أرجو أني قد وفقت في شرحي... * بالنسبة للسؤال الثاني : نعم يمكن جدا كتابة نصف صفحة باستعمال الأعمدة Colonnes والنصف الآخر بكتابة عادية ولذلك نكتب النص كله كتابة عادية ثم نختار (تحديد Selectionner) الجزء الذي نريد كتابته بتنسيق الأعمدة ونختار من قائمة الاختيارات "تنسيق Format" الأمر أعمدة Colonnes وتختار عدد الأعمدة الذي تريد ثم الموافقة (بالنسبة لتنسيق الأعمدة يمكن استعمال اختصارات شريط الأدوات Barres d'outils) وسيتحول الجزء الذي تم تحديده إلى تنسيق الأعمدة والباقي يبقى عاديا... والله أعلم