برنامج مكتبة

أخي أبو هادي ...

كم أنا مستحي من طيب كرمك ومن نبل مساعدتك .. أدعو الله في ظهر الغيب أن يسكنك منازل الأنبياء والشهداء والصديقين لما تتصدق علينا مما وهبك الله من علمه ..

كانت تغييراتك جدا ناجحة ومفيدة وقمت بدوري بإجراء بعض التعديلات والتصليحات ولكنني أواجه بعض النقاط التي لم أتمكن منها وهي كالتالي :-

أولا : في نموذج الإعادة.. (Return)

أ) قمت مشكورا بالعملية الحسابية في حقل (Return_Date) على أساس الغرامة تكون بعد (due_date) مباشرة فهل بالإمكان أن الحقل يحسب بعد (due_date ) + 3 أو أربع أيام ثم يبدأ بفرض الغرامة ..

ب) في حالة عدم الدفع مباشرة يتم الضغط على الزر الأخضر والذي بدوره يفتح نموذج الدفع المؤجل .. في هذه الحاله أريد في نموذج الإستعارة (Borrow) تتم العملية بحيث أنه إذا لم يتم الدفع لأكثر من ثلاثة أرصدة لن يسمح له بإستعارة أي كتاب (حاولت أن أعمل ذلك في حقل (AccNo) في نموذج الإستعارة ولكن لم تنجح ..

مرفق الملف بعد التعديلات

library_2000.zip

السلام عليكم

أخي الوارث .. أعتقد أنك أرفقت نسخة قديمة . :)

عموما قمت بالتعديل للفقرة (أ) وتركت الفقرة (ب) حتى ترفق النسخة الأخيرة .

تحياتي .

library_97.zip

أخي وعزيزي أبو هادي ...

الفقرة (أ) عملت بنجاح ، وعذري لأرفاقي النسخة القديمة ، مرفق لك النسخة الحديثة لعمل الفقرة (ب) ولك كافة الصلاحية في كيفية عملها .. أأمل أن تعطيني رأيك في النسخة الحديثة ...

شاكرا سلفا كافة جهودك المضنية ولمتابعتك لموضوعي هذا والفضل أولا وأخيرا يعود لدعمك الفني الكبير ..

شكرا ولك الملف الحديث ...

تحياتي

library_2003.zip

السلام عليكم

أخي الوارث .. أنا آسف لم أفهم جيدا المطلوب ولكني قمت بتعديل في دالة DCount آمل أن تشرح لي بأكثر تفصيلا .

تحياتي .

library_97.zip

أخي أبو هادي ...

شكرا على التواصل الدائم وعلى التعديلات الجميلة .. ما أريده التالي :

عندما يستعير شخص كتاب ويكون الإرجاع مترتبة عليه غرامات ، لذا فعلى المستعير دفع ذلك المبلغ ، ولكن ما يحصل أنه ليس لدى المستعير مبلغ في تلك اللحظة ، لذا سوف يتم تسجيل المبلغ عليه في نموذج (Payment) كمبلغ مرحلّ عند الضغط على زر (If Not Paid Click Here) من خلال نموذج (Return).

في هذه الحالة أريد .. أنه عندما يكون على ذلك المستعير ثلاث حالات غير مدفوعة لا يستطيع إستعارة أي كتاب من خلال نموذج (Borrow).

كما هو الحال عندما يكون عدد الكتب المستعارة ثلاث كتب لا يستطيع خلالها إستعارة أي كتاب.

أتمنى أن يكون الشرح واضحا ، ...

تحياتي

السلام عليكم

إذن أخي الوارث يبقى الوضع على ما هو عليه ولا داعي لإرفاق ملف جديد فقط أزل السطر الثاني من هذا الكود :

m = DCount("[Acc_No]", "Payment", "[Member_ID]=" & Me.MemberName.Column(0) & " and " & _

                                  "[Acc_No]=" & Me.AccNo & " and " & _

                                  "[Paid]=0")

تحياتي .

عزيزي وأخي أبو هادي ...

جميل ما تصنعه وأنت الأجمل .. شكرا على التعديل الجميل ...

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

السلام عليكم

أخي الوارث .. الملف بعد التعديل .. آمل أن يكون موافق للمطلوب .

تحياتي .

library_97.zip

السلام عليكم

أخي الوارث .. للإحتياط بدل هذا الكود :

  With Form_Payment.Payment_Child.Form

    .Acc_No = Me.Acc_No

    .Credit_Price = Me.Penalty

    .Payment_Date = Me.Return_Date

  End With

بهذا الكود بإضافة سطرين جديدين :

  With Form_Payment.Payment_Child.Form

    DoCmd.GoToControl .Name

    DoCmd.GoToRecord , , acNewRec

    .Acc_No = Me.Acc_No

    .Credit_Price = Me.Penalty

    .Payment_Date = Me.Return_Date

  End With

تحياتي .

السلام عليكم ورحمة الله وبركاته

أخي الأستاذ/ أبو هادي

لقد كلفني الأخ العزيز/ الوارث بنقل تحياته إليك وإفادتك بأنه حالياً يقضي إجازته في ربوع صلاله الجميله ولذلك فهو لم يطلع على التعديل الأخير الذي أجريته لكونه بعيد عن الكمبيوتر

وعليه سوف يقوم بإنزال الملف فور عودته وإفادتك ان شاء الله.

ولك كل التقدير والتحيه.

مخلصكم

ابن مسقط

السلام عليكم

شكرا لك أخي ابن مسقط

وإجازة سعيدة لأخي الوارث .

صلالة زرتها منذ سنوات واحتجت للوصول إليها بالسيارة على ما أتذكر 30 ساعة وأقمت فيها 3 أيام ومع ذلك لم أتمكن من رؤية معالمها حيث كان الضباب كثيفا ومتواصلا فعدنا بعدها ولسان حالنا يقول (وكأنك يا بو زيد ما غزيت) .

تحياتي .

رغم أنني لم أطلع على أي من الملفات المرفقة في هذا الموضوع إلا أنني أحببت أن أن أكتب بصدق هذه الكلمات:

أخي أبو هادي للمنتدى نكهة خاصة بوجودك ولا يهون جميع الأخوة.

اخي ابو هادي ياليت تنزل البرنامج على اكسس 2000

وماعرفت ادخل على البرنامج وشو اسم المستخدم وكلمه المرور

السلام عليكم

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

أخي سحاب حتى أنا لا أعرف اسم المستخدم ولا كلمة السر ، فقط ادخل البرنامج وأنت ضاغط على الـ Shift .

تحياتي .

أخي وأستاذي / أبو هادي

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

قمت بإضافة السطرين ولكن المشكلة قائمة ، قد يكون المشكلة في الربط لا غير ..

شاكرا جهودك المضنية ووقتك النفيس ولك تحياتي

أخي أبن مسقط ...

لك فائق تحيتي وتقديري وشاكرا جهودك ومتابعتك

تحياتي

الأخ الأستاذ المزيني

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

ولك تحياتي

أخي سحاب ..

شكرا لمتابعتك المستمرة ...

رغم أن البرنامج مفتوح للجميع للأستفادة منه وذلك كما ذكر أستاذي أبو هادي بالضغط على زر شفت عند الفتح ، إلا أن رغبتك في معرفة الرقم السري سيكون لك ذلك ... الرقم السري إما (اسم المستحدم،الرقم السري) ..(test,test) أو (lib,lib).

لك تحياتي

أستاذي أبو هادي ...

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

تحياتي

السلام عليكم

أخي الوارث .. الأمر هين .

أنت جعلت مصدر البيانات لنموذج الـ Payment جدول الأعضاء ، والحل هو جعل هذا النموذج بدون مصدر البتة وكذلك كائناته غير منضمة .

تحياتي .

أستاذي أبو هادي ...

ومن البلية ما يضحك .. هذا المثل ينطبق عليّ ، الأمر هين وحار به عقلي وعند حله تبين مدى معرفتي الضئيلة جدا ...

لا ينفك لساني إلا بالدعاء لكم ومتضرعا في خفية الليل أن يزيدك علما وينتفع به قلوب عباده ، أسكنك الله روضات جنانه ورحم الله أبويك ...

عزيزي أبو هادي .. شكرا لكل لحظة قضيتها معي وكل عسر يسرته لي وأدعوا الله أن يكتب هذه اللحظات بدرجات أخرويه تثقل بها موازينك الخيرة ..

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

لك تحيتي وشكري وتقديري ..

مع محبتي

عمل روعه قمه جميل

وفقكم الله

والله انتوا خليتوتنا نطمع فيكم

اتمنى لو حولتوا البرنامج الى عربي ويزيد الخير خيرين

وسامحوني على طلبي

عزيزي سحاب ..

شكرا على مديحك ...

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

دعاؤكم لنا بالتوفيق ..

تحياتي

السلام عليكم

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

وتمنياتي لكم رحلة موفقة وأن تعود لنا بالسلامة إن شاء الله تعالى .

أنا تحت أمركم من أي مكان كان وفي أي وقت .

تحياتي .

لم اتمكن من فك الملف

وشكرا

عزيزي ...

أتمنى أن تستطيع انزال الملف من الرابط التالي

Program

تفضل ابن مسقط مشكورا بوضع وصلة لتنزيل البرنامج أأمل أن يعمل معك

شكرا

الوارث

عزيزي ...

أتمنى أن تستطيع انزال الملف من الرابط التالي

Program

تفضل ابن مسقط مشكورا بوضع وصلة لتنزيل البرنامج أأمل أن يعمل معك

شكرا

الوارث