jjafferr

نعم هكذا 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) جعفر

اختي لقد فتحتي موضوع جديد وارفقتي قاعدة البيانات هناك ، وهذا كان الحل: جعفر

وعليكم السلام تفضلي: If Val(Me.sds1) = Me.User_ID And Val(Me.sds2) = Me.User_Phone And Me.sds3 = Me.User_Email Then جعفر

وعليكم السلام Option Group عبارة عن عمل لمجموعة ومجرد برواز خارجي ، والمجموعة لا يكون لها اسم داخل Option Group ، وانما لها رقم ، والرقم هذا يُعطى لحقل Option Group ، مثلا اعملي Option Group بإسم opt_Test ، وبدون اي شيء داخلها ، يعني اول ما تعمليه في النموذج ، ثم يسألك الاكسس عن اشياء اخرى ، اضغطي على الزر Esc من الكيبورد ، ثم من تصميم النموذج اختيار مثلا: Toggle Button او Check Box او Option Button واعمليه داخل Option Group ، حيث سترين ان لونه صار اسود ، مما يعني انك تستطيعين عمله هناك ، الآن اصبح عندك Option Group والذي هو برواز ، وداخله كائن Option Button وفي آخر اعداداته هناك اختيار Option value وهنا تستطيعين اعطاء رقم مميز لكل كائن ، وهنا تستطيعين ان تعملي Copy/Paste لهذا الكائن واعطاء كل منهم اسمه ورقمه المميز ، والى هنا وينتهي دور هذه الكائنات ، الآن اعملي حدث على نقر opt_Test ، واكتبي فيه: Select case me.opt_Test case 1 msgbox "تم النقر على الزر رقم 1" case 2 msgbox "تم النقر على الزر رقم 2" End select او if me.opt_Test= 1 then msgbox "تم النقر على الزر رقم 1" elseif me.opt_Test= 2 then msgbox "تم النقر على الزر رقم 2" End if جعفر

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