jjafferr

وعليكم السلام 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 جعفر

وعليكم السلام هذا لأنك لم تتبعي الخطوات التي شرحتها لك لقد ظلّلتها لك باللون الاحمر هنا:

انا جمعت الطرق الثلاث مع بعض ، وبدون وجود سجل فاضي في جدول الدول . جعفر 638.1.All.accdb.zip

تفضل ، وان شاء الله يكون طلبك لأني ما فهمت قصدك في "كشف دوري" : اولا يجب تغيير اسم الحقل Filter ، لأن هذه من الكلمات الخاصة بالاكسس ، فغيرتها الى filter1 . ولأن السجل موجود في قسم Detail من التقرير ، فعملت الكود التالي لهذا القسم في حدث "التنسيق" ، لكي يُظهر ويخفي السجلات حسب حالت الحقل filter1 : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Nz(Me.filter1, 0) = -1 Then Me.Section(acDetail).Visible = True Else Me.Section(acDetail).Visible = False End If End Sub جعفر 627.1.car n new2.accdb.zip

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

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

السلام عليكم وهذه طريقة اخرى ، بدل ان نستخدم كلمة ALL ، نجعل الحقل فارغ ، وعليه نخبر الاستعلام بإعطاؤنا جميع السجلات: . هذا الكود: IIf(Len([Forms]![frm_Rooms_Available]![Room_Number] & "")=0,[Room_No],[Forms]![frm_Rooms_Available]![Room_Number]) وهذه الفقرة من هذه المشاركة: جعفر

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

1. لا اتذكر ، ولكني على ما اعتقد ، بأن رتبتك سترتقي للمرحلة التاليه ، وعندها ستتوفر الخدمة ، 2. تم عمل الازم.

نعم يوجد ، ولكن ليس للأعضاء الجدد يجب ان تصل مشاركاتك الى رقم معين ، فتتفعّل هذه الخاصية تلقائيا جعفر

تفضلي أختي هذا مثالك بعد التغيير ، ولكن الملف بصيغة 7z ، فرجاء تغيير اسمه بعد انزاله ، ملفك حجمه بعد الضغط يصل الى 8MB فلم استطع رفعه إلا بهذه الصيغة ، ونصيجة اختي ، لا تحفظي الصور داخل قاعدة البيانات ، بل احفظيها في مجلد خارج البرنامج ، مع عمل رابط بين الصورة والسجل ، والمنتدى مليئ بالامثلة على ذلك جعفر 636.‏‏DBSystem 99999998 - نسخة (2).accdb.zip

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

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

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

حياك الله رجاء فتح موضوع جديد لسؤالك الجديد ، فقوانين المنتدى لا تسمح بأكثر من سؤال في موضوع جعفر

تفضل تابع الارقام بالتسلسل ، مع البرنامج . جعفر 638.All.mdb.zip

حياك الله أخوي طارق هدفنا احنا الاثنين واحد ، وهو الوصول الى النتيجة المطلوبة ان شاء الله 1. طيب ، هذه الخانة اصلا موجودة في الاستعلام 1234 ، وتم إضافتها للتقرير ، 2. اذا كان نعم ، تريد ان تُظهر الحقل نعم/لا فقط ، او تريد إظهار السجل بالكامل ، واذا كان لا ، تريد ان إخفاء الحقل نعم/لا فقط ، او تريد إخفاء السجل بالكامل ، . جعفر

تفضلي Private Sub amr9_Click() 'If Me.sds1.Text = Me.User_ID And Me.sds2.Text = Me.User_Phone And Me.sds3.Text = Me.User_Email Then If Val(Me.sds1) = Me.User_ID And Val(Me.sds2) = Me.User_Phone And Me.sds3 = Me.User_Email Then DoCmd.OpenForm "New password", acNormal Else ms$ = "The data dose't match" ti$ = "Make sure your data" re = MsgBox(ms$, 0, ti$) End If End Sub والنتيجة . جعفر

وهو يحسب 6 مسافات مع + 1 اللي في كودنا هو 7 بالعربي (من اليمين الى اليسار) ، حسابك صحيح ، ولكن واقعا الجمله من اليسار الى اليمين ، وبالطريقة هذه ، فالقوس في ملاحظتك سيكون بالمقلوب (يعني فاتح لليمين) ، بينما كلامنا عن القوس الثاني اللي فاتح لليسار جعفر

النتائج تطلع عندنا صحيحة بالكود: A: Mid([f5],InStr([f5],"{")+1,InStr([f5],"}")-7) بس السؤال هو: اللي بين القوسين فقط ، لوسمحت نحن لا نريد معادلة ثانية ، مجرد السؤال لماذا 7 بدل 1 !! جعفر

حياالله اختي العمل والكود تمام ، لكن كان يجب ان تغيري اسم option group من frame151 الى opt_Test جعفر

هلا اخوي شفان هكذا هي القيمة الصحيحة: Area:{ ...... } واستخدمت المعادلة التالية لقراءة آخر قوس: InStr([f5],"}")-7 الكلام انه يجب ان يكون الرقم في المعادلة 1 بدل 7 ، ولكن الرقم 1 لا يعطي النتائج الصحيحة جعفر

تفضل ياسيدي بس لا تسال ليش 7 ، لأني ما عندي لك جواب المفروض يكون 1 ، بس ما اعطى الجواب الصحيح ، ولكن 7 اعطى الجواب الصحيح A: Mid([f5],InStr([f5],"{")+1,InStr([f5],"}")-7) جعفر