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

السلام عليكم وإثراء للموضوع ، فاليكم هذه المعلومة (مع انها متأخرة بعض الشيء) : برامج 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 @عبد الفتاح كيرة

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم 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

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

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

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

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

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

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

شككككرا أستاذ محمد حطيت كود اللون تحت 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 سبقتني للخير استاذ محمد

تفضل اخي الكريم stu1.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

سجل قضايا.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 سحر الاكواد

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

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

السلام عليكم قبل ان ابدأ ، الاكسس وكما قال اخي أوس sandanet ، هو قاعدة بيانات ، وعلشان اكون اكثر دقة: فهو برنامج واجهة فقط ، بينما برنامج الجداول هو JET (للأكسس قبل 2007) والذي يستخدمه الوندوز في عمله ، ثم تحول البرنامج بإسم ACE (للاكسس 2007 فمافوق) ، JET او ACE هو محرك الجداول و SQL الاستعلام ، بينما الاكسس هو واجهة وبرمجية VBA ، JET او ACE و VBA ، عندهم الادوات للتخاطب مع البرامج الاخرى في الوندوز ، كُلٌ حسب تخصصه ، مما يجعل الاكسس برنامج فريد من نوعه ، كبرنامج وجداول وتخاطب انا بدأت كلامي بالتخصيص: هواتف الآن ومنها الاندرويد ، تعمل مثل ما شرحت لك اعلاه وبدون الحاجة الى برامج وسيطة لربطها وعملها مع الوندوز ، بينما انت تتكلم عن الحقبة ماقبل ، وبعض الهواتف منها فيها مودم للإتصال بالانترنت ، ومنها تريد ربطها بالوندوز. نعم ممكن عمل ما تريد ، ولكن الاسهل لك ان تخطو الخطوة التالية ، بالهواتف الجديدة والرابط الذي ارفقته لا يعمل !! جعفر

وعليكم السلام تفضلي أختي: الزر موجود في النموذج 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) وسيتحول الجزء الذي تم تحديده إلى تنسيق الأعمدة والباقي يبقى عاديا... والله أعلم