مرحبا
الحقيقه هذا برنامج مكتبة عملتها انا بمساعدة هذا المنتدى الرائع ...
فليستفيد الكل منه ... هذا وصلت تحميل له ...
http://www.wow4arab.com/osama/main11.zip
واذا كان احد جزاه الله خير يعمل التقارير للبرنامج ... مثل تقارير
الكتب والاعضاء ... الخ .. فجزاه الله خير ...
والسلام عليكم ورحمة الله ...
اقتباسالحقيقه هذا برنامج مكتبة عملتها انا بمساعدة هذا المنتدى الرائع ...
الحقيقة أنت اللي رائع ... البرنامج لم أتصفحة كله ولكن شكلة أعجبني جدا ولكن أردت التأكد من قسم البحث هل يعمل معك جيدا .
عموما فكرته جميله وبرنامج مفيد . بارك الله فيك
أشرف خليل
الله يسلمك ... هذا من لطفك ...
اليوم لقيت في مشكله فياليت تساعدني نحله ...
لم تضيف كتاب او عضو ... ابغى على طول يطلع الرقم الجديد
ضمن الارقام ... مدري يمكن عن طريق زر تحديث للنموذج ...
وفي بعد مشكله ثانيه ... لم تدخل رقم مثل رقم 55 والرقم
مش موجود ضمن القائمة ... ابغاه يقول ... ان الرقم الي ادخلته
مش ضمن القائمه حاوله مره اخرى
انا بحاول وياليت ... الكل يحاول ...
وشكرا
هلا man برنامج حلو ومتعوب عليه...تسلم والله...
وعجبنى فيه خاصية الدخول كمدير برقم سرى فياريت تشرح كيف عملت خاصية الرقم السرى ...انا عندى برنامج خاص بى وابغى اضيف فيه هذه الخاصية بحيث محد يقدر يدخله غيرى.......
تحياتى............
الأخ الكريم man
بالنسبة للسؤال الأول /
ضع في حدث بعد الخروج من كتابة اسم الكتاب وكذلك الحال بالنسبة للعضو
Me.Refresh Me.[اسم مربع التحرير والسرد].Requery
أما بالنسبة للسؤال الثاني /
فضع في حدث عند عدم الوجود في القائمة الإجراء التالي
MsgBox "الرقم الذي أدخلته غير صحيح ... حاول مرة أخرى" Response = acDataErrContinue Me.no.SetFocus
بالمناسبة ظهرت لي مشكلة عند إضافة كتاب وهي عدم وجود المفتاح الأساسي فأضفته فانتهت المشكلة
مرحبا ...
حركة الباس ورد ... بسيطه جدا من الممكن ان تنسخها من نفس البرنامج الي عندك
الاشياء الي لازم تنسخها هي
انسخ جدول
pass
ونسخ الناذج التالية
pass1
pass4
ولتغيير كلمة السر انسخ
changepass
وطبعا لا تنسى تدخل على صفحة البرمجة لكل نموذج وتغيير اسماء النماذج
وانتهينا
لا تنسى ان كلمة السر 111
مشكور اخ احمد .... راح اجرب واشوف
اما عن النقطه الاخيره فمافهمت ياليت تشرح علشان اعدل في البرنامج عندي ...
وباي
ومع السلامة
اقتباسالرسالة الأصلية كتبت بواسطة أحمد الحربيالأخ الكريم man
بالنسبة للسؤال الأول /
ضع في حدث بعد الخروج من كتابة اسم الكتاب وكذلك الحال بالنسبة للعضو
Me.Refresh Me.[اسم مربع التحرير والسرد].Requery
أما بالنسبة للسؤال الثاني /
فضع في حدث عند عدم الوجود في القائمة الإجراء التالي
MsgBox "الرقم الذي أدخلته غير صحيح ... حاول مرة أخرى" Response = acDataErrContinue Me.no.SetFocusبالمناسبة ظهرت لي مشكلة عند إضافة كتاب وهي عدم وجود المفتاح الأساسي فأضفته فانتهت المشكلة
ما نفعت الحركة ....
باي
أخي man /
جربتها قبل أن أكتبها لك
إعادة كتابة الكود
ضع في حدث بعد الخروج من كتابة اسم الكتاب وكذلك الحال بالنسبة للعضو
Me.Refresh
Me.[اسم مربع التحرير والسرد].Requery
أما بالنسبة للسؤال الثاني /
فضع في حدث عند عدم الوجود في القائمة الإجراء التالي
MsgBox "الرقم الذي أدخلته غير صحيح ... حاول مرة أخرى"
Response = acDataErrContinue
Me.no.SetFocus
النقطة الأخيرة وهي عندما أردت إضافة كتاب ظهرت رسالة خطأ مفادها أن المفتاح الفهرس خالي
تحياتي
مشكور اخى man .
وياريت من الاخ احمد الحربى يرفق البرنامج بعد اجراء التعديلات عليه..
تحياتى لكما...
مشكور يالحربى بس ياريت تتأكد من رابط التحميل لانه لم يعمل عندى..
تحياتى...
أرجو أن يعمل هذا الرابط
شغال 100%
تحياتى......
مرحبا شباب
اضفت الاشياء الي عملها الاخ احمد .... وهذا الوصله
http://www.wow4arab.com/osama/main13.zip
وعلى فكره انا اشتغل الان على تعديل قسم الاإعارة ... وان شاء الله
إذا انتهى راح انزله هنا .... وانت بعد إذا قدرتوا تعملوا شيء
لا تنسون تنزيله هنا ...
وباي
ونحن بالانتظار اخى man ..والى مزيد من الابداعات....
بالتوفيق....
هذا الموضوع مغلق.