Bluemind

اخوي سؤالك مو واضح ياليت توضح، جميع النماذج المستمره تكون اعمده من اعلى الى اسفل !!!!! وياليت ترفق قاعده البيانات

حياك الله هذي الجمل اسمها لغه جمل Sql هذا علم لوحده مثله مثل الفيجول بيسك .... طبعا تستطيع استخدامها في اكسس و اوراكل وحتى لغات برمجه الانترنت بامكانك البحث عنها في قوقل باكتابه sql

اخوي جرب هذا الحل افتح صفحه انترنت ثم من قاءمه ادوات او Tools روح على خيارت الانترنت ثم اختر تاب الامنيه ثم اختر Local Intranet ثم اختر Sites ثم اختر Advanced او متقدمه ثم اكتب في حقل Add this web site to the zoneالتالي: domain.com.* بعدين Add ثم ok ثم ok ثمok بعدين اعد تشغيل الجهاز و ان شاء الله تنحل

اخوي شوف المرفق ثالث اعلى راتب حسب ما فهمت من سؤالك طبعا انا استخدمت جمله Sql التاليه: SELECT TOP 1 Salary FROM المهندسين WHERE (((Salary) In ( SELECT TOP 3 Salary FROM المهندسين ORDER BY Salary desc))) ORDER BY Salary; طبعا تقدار تغير في TOP 3 الى TOP 4 لايجاد رابعا اعلى راتب وهكذا..... طبعا انتبه للفراغات بين الكلمات و الاملاء لانه ضروري في جمل Sql اكيد رايح اضحك بس العلم مافيه عيب باقي سؤالك مو مفهوم gladiator2.rar

تفضل اخوي مرفقك بعد التعديل عليه رايح تحصل الاجابه في الاستعلام "معلومات ثاني اعلى مرتب للمهندسين" طبعا هو يعتمد على الاستعلام "ثاني اعلى مرتب" بالنسبه لباقي الاستعلامات ، انا شايف استعلام اعلى راتب بس ، مافيه شي ثاني عن ثاني اعلى راتب. على العموم شوف جمله Sql الموجوده في استعلام "ثاني اعلى مرتب" لان الحل فيها gladiator2.rar

اخوي عملتلك مثال على طلبك طبعا بستخدام استعلامين لعرض النتيجه شغل الاستعلام الثاني Second max Salary او ارفق قاعده البيانات للتطبيق عليها 2nd_salary.rar

اخوي من قائمه ادراج اختر رمز او Symbol ثم من خط اختر ثاني اختيار "AGA Arabesque" انزل تحت شوي رايح تحصل هذا الرمز و رموز اخرى

العفو...... هذا رابط تحميل للبرنامج مع العلم انه تم الانتهاء فقط من قائمتين فقط http://www.4shared.com/file/44412449/37bed...-FURNITURE.html طبعا كلمه المرور للقائمه Suppliers هي:12345 ارجوا ارسال كامه مرور لوضعها محل الاولى على الخاص او على ايميلي ghost22666@hotmail.com باقي القوائم رايح اشتغل عليها قريب اذا عندك ملاحظات على البرنامج قولي لي عليها.

تفضل اخوي http://www.4shared.com/file/44270194/97ac0e0/Liberary.html

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

اخوي سؤالك غامض ارجوا التوضيح هل تقصد تلوين صفوف معينه في حاله تحقق شرط معين او ماذا؟؟!! اذا الجواب نعم من التقرير اذهب الى حقل الصف المراد تلوينه ثم من قائمه تنسيق او Format اختر تنسيق شرطي او Conditional formatting(طبعا يحق لك عمل 3 شروط فقط) اختر الشرط الاول حسب ما تريد ثم اعمل التنسيق الي تراه مناسب

اخوي هل تقصد نسخه تجريبيه Trial version؟؟!!! اذا نعم، يوجد كود(moduls) و نماذج لعمل ذالك ، مثال عليها : بعد ثلاثين يوم كمثال تنتهي صلاحيات المستخدم ولا يستطيع عمل اي شي الى بتسجيل المنتج(مفتاح تشغيل او كراك). ولكن لا استطيع ارفاقها في المنتدى لاسباب شخصيه. راسلني على الايميل. هذا امر ما تقدر تتحكم فيه بامكانك عمل نموذج ابتدائي(مؤقت) عند مجرد فتح القاعده وتذكر فيه اسم مبرمج القاعده او مصممها وكذالك اي معلومات اخرى عنك وتضع حقوق النسخ لك، مثل مو صاير في نظام الويندوز بعدين تقفل قاعده البيانات وتعطل مفتاح Shift مثل ما شرحت لك سابقا. اذا تبغى مثال عليها ارفق قاعده بيانات لتطبيق ذالك

حياك الله بالنسبه للخطأ فهو لعدم تغير نوع مصدر البيانات من جدول/استعلام الى Value List (ثاني خيار ) تروح على خصائص الكومبو بوكس و من نوع مصدر البيانات رايح تحصله جدول/استعلام اختر ثاني قيمه وهي Value List اما بالنسبه بالنسبه للكود ما فهمت سؤالك؟؟ ارجوا التوضيح

اخوي اشرف في جدول هذا الحقل اذهب الى تصميم الجدول ثم في حقل Auto number روح تحت على Format ثم اكتب 00000 او حسب الاصفار الي تبغى بعدين حفظ وارجع على الجدول في وضع العرض وجرب تضيف سجل جديد ورايح تشوف النتيجه

السلام عليكم اخوي الحين نضع الكود التالي في حدث الزر الموجود في نموذج بحث(طبعا لابد من تعديل الملاحظات السابق ذكرها) من حدث زر الامر نروح على حدث عند النقر ونكتب الكود التالي: كود Private Sub Command8_Click() Select Case Me.Combo2 Case "صادر" If IsNull(Me.Combo2) Then MsgBox "الرجاء الاختيار من القائمة", vbOKOnly, "معلومات مطلوبه" Me.Combo2.SetFocus ElseIf IsNull(Me.Text0) Then MsgBox "الرجاء ادخال رقم المعاملةالصادرة", vbOKOnly, " معلومات مطلوبه" Me.Text0.SetFocus ElseIf DCount("*", "بحث في الصادر") = 0 Then MsgBox "لاتوجد نتائج للبحث!! الرجاء المحاوله مره اخرى", vbOKOnly, "نتائج البحث" Else DoCmd.OpenForm "بحث الصادر" End If Case Else If IsNull(Me.Combo2) Then MsgBox "الرجاء الاختيار من القائمة ", vbOKOnly, " معلومات مطلوبه" Me.Combo2.SetFocus ElseIf IsNull(Me.Text0) Then MsgBox "الرجاء ادخال رقم المعاملةالوارده ", vbOKOnly, "معلومات مطلوبه" Me.Text0.SetFocus ElseIf DCount("*", "بحث في الوارد") = 0 Then MsgBox "لاتوجد نتائج للبحث!! الرجاء المحاوله مره اخرى", vbOKOnly, " نتائج البحث" Else DoCmd.OpenForm "بحث الوارد" End If End Select End Sub طبعا اسم زر الامر هو 'Command8' فاذا كان اسمه غير الاسم الموجود عندك ارجوا تغيره في الكود او في خصائص الزر طبعا نحفظ الشغل كله ونروح على عرض النموذج وجرب البحث ان شاء الله المره الجايه رايح اشرح كود الفيجول بيسك بالتفصيل و ارجو التطبيق و ارفق قاعده البيانات بالتوفيق

اخوي هذا شي طبيعي انه مايشتغل انا مثل ماقلتلك اول الكوديين الي فوق متزامنين مع بعض يعني يشتغلو مع بعض

ارفق قاعده البيانات على مركز تحميل وضع الرابط هنا

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

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

ارفقي قاعده البيانات رجاء

لا ابد اخوي ابو فهد لاتعب ولا شي تفضل الرابط هذا : http://file8.9q9q.net/Download/46413494/--...--2003.rar.html هذا ياخذك الى مركز تحميل ملفات الصراحه انا عندي ملفات الرار شغاله و مافيها اي مشكله و اشوف الناس حايسين فيها. اتوقع المشكله من نسخه برنامج رار صاير فيها شي في الاجهزه عندكم اي خدمه انا بالخدمه

اي اكيد اخوي اكسس ما يسمحلك بالصق الى بتعديل الاسم وفائده النسخ واللصق هي توفير الوقت كلامك صحيح ، انا الغلطان المفروض اشرحها بالعربي بس التعبير في بعض الاحيان يخوني و انا متعود على القوائم الانجليزيه. انا شفت مثالك المرفق بس مو كذا انا ممكن اني غلطت وقلتلك مصدر البيانات، وهو اصلا اسمه مصدر الصف. هذا سلمك الله تحصله من خصائص "مربع التحرير و السرد"--> بيانات--> مصدر الصف تنسخ "صادر";"وارد" وتسويل لها لصق وعند تشغيل النموذج رايح تحصلها فوق بعض اي قائمه منسدله هذي الجداول مالها دخل في الموضوع المقصد من "صادر";"وارد" هي القيم التي يحتوي عليها مربع التحرير و السرد فاعند تشغيل النموذج و بغيت تسوي بحث في جدول الصادر مثلا ، فانك تختار كلمه "صادر "من مربع التحرير و كذالك وارد و الغرض منها هو فتح نموذج "بحث الصادر" الي نسخناه ولصقناه من شوي. و في حاله وارد فان اكسس يقوم بفتح نموذج "بحث الوارد"(طبعا انت استعجلت شوي في السؤال عنها لان هناك كود فيجول بيسك سوف اشرحه تحت) اخوي هذي ما تفرق سميه اي اسم تبغى بس انت رايح تشير اليه في كود الفيجول بيسك كما في الشرح بالسفل، وانا احب تسميه الادوات مثل مربع النص و مربع التحرير و السرد ... ان تكون بالغه الانجليزيه لتسهل استخدامها في كود الفيجول بيسك. مثال ذالك هو Text0 بدل من مربع نص0 و Combo2 بدل من مربع تحرير وسرد 2 . هذي لا تستعجل على رزقك الشرح لسا ما انتهى هذا رايح نسوي فيه كود فيجول بيسك كلامك صحيح اخوي و انا الغلطان لان ما ترجمتها صحيح بس على اساس النسخه انجليزي وكان الي في بالي هو فرز الصحيح انك تعملها في معايير

اخوي الكود الاول يعمل على تعطيل مفاتح Shift و لا يسمح للمستخدم باستخدام مفتاح Shift حاول تطبيق ذالك بدون الكود الثاني. النتيجه لا يستطيع المستخدم استخدام Shift وهذا الي نبغاه حتى لا يستطيع احد الدخول و العبث بالقاعده. الى هنا الامور تمام. انت كا مبرمج او مصمم لهذه القاعده تحتاج تعديل شي على قاعده البيانات هذي، وشلون ترجع مفتاح شفت للعمل مره ثانيه ومفاتح شفت معطل!!! الكود الثاني الموجود في الزر او الملصق الذي عندما تضغط عليه يطلبك كلمه مرور لاعاده مفتاح Shift للعمل ، يعمل على اعاده تشغيل مفتاح Shift مره ثانيه، و النتيجه : تقدار تفتح قاعده البيانات و تعدل عليها. بعد ذالك تريد ان تعطل مفتاح Shift من جديد !! الحل انك تغلق قاعده البيانات ثم تعيد فتحها مره ثانيه ثم تضغط على الزر او الملصق وعند ظهور مربع الحوار الي يطلبك كلمه المرور، تقوم بادخال كلمه مرور خاطئه اكثر من 3 مرات حتى يتم الخروج من قاعده البيانات تلقائيا لعدم صحه كلمه المرور. حاول فتح قاعده البيانات من جديد عن طريق مفتاح Shift ، هل يشتغل معاك او لا ؟؟؟!!! انتظر الاجابه منك!!! و اذا فيه اي استفسار انا حاضر

تفضلوا هذا رابط لحل المشكله http://www.officena.net/ib/index.php?showtopic=22063&hl=

وضحت الفكره الى الان Customers Menu خلصت