الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج محاسبة بسيط جدا هدية عيد الفطر لأعضاء الأكسيس الكرام ولكن

مغلق
بدأه etqan54 في 23 أكتوبر 2006 · 10 رد · 3,872 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

إخوانى الكرام كل عام وأنتم بخير

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

( نوضح اكثر ) القيود المركبة هى التى تتكون من مجموعة من البنود فى الجانب المدين يقابلها مجموعة من البنود فى الجانب الدائن

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

ملحوظة مهمة جدا هذا الكنترول مهم جدا لكى ينبه المحاسب او مدخل البيانات على الخلل فى القيد كى يصححه قبل ان ينتقل بين السجلات

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

أتمنى أن ينتفع به وأتمنى من الله سبحانه وتعالى أن يوفق المبدعين من الوصول الى الخلل والعيب الذى فشلت فى التوصل اليه وإصلاحه

G.ledgerold.rar

#2

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

#3

جزاك الله خير الجزاء على إهتمامك وكل عام وانت الله أقرب

#4

جزاك الله كل الخير وكل عام وأنت بألف خير

تم تعديل هذه المشاركة بواسطة fehme في 26 أكتوبر 2006 في 04:06

#5

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

#6

أخي الكريم

كل عام وأنت بخير وتقبل الله منا ومنكم صالح الأعمال

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

أما الحل:

فيتمثل في استبدال السطر التالي بما سيليه:

TotalCredit <> TotalDebit

CCur(TotalCredit) <> CCur(TotalDebit)

مع يقيني بأنه سيظهر لك مشكلة أخرى بسيطة يمكنك حلها بكل يسر فقط هل ستكتشفها؟

#7

أخى الكريم شكر الله لك إهتمامك وردك الجميل

بالنسبة لمقترحك وضع القيد داخل دالة وإستدعائها وقت الحاجة فأتمنى إرفاق مثال للدالة المقترحة

أما بالنسبة لمقترحك لحل مشكلة البرنامج إستبدال السطر فقد ظهرت مشكلة جديدة وهى عدم فاعلية أزرار التحكم فى حالة عدم وجود بيانات وظهور رسالة بذلك وقد قمت بتجربة وضع شرط آخر وهو إضافة 0 <> للسطر المفترح ولكن لم تفلح فهل تكمل لى ما بدأته وجزاك الله خيرا كثيرا

#8

كل عام وانتم بالف خير

مششششششششششششششششكووووووووووووووورر على البرنامج

#9

البرنامج بعد التعديل والتأخر في الرد بسبب الإنشغال وبالتوفيق.

G_2_.ledgerold.rar

#10
المزيني كتب:
البرنامج بعد التعديل والتأخر في الرد بسبب الإنشغال وبالتوفيق.

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

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

أخوك

إبراهيم

#11

لقد وقعت في خطأ خطير ! ولا أدري كيف حصل ذلك ؟! الكبر شين...

ماعليك إلا أن تفتح الوحدة النمطية المسماة UTILITY ثم تنتقل إلى الدالة المسماة comp وتستبدل السطر التالي بما يليه:

If CCur(TotalCredit) <> CCur(TotalDebit) Then

If CCur(vrbCredit) <> CCur(vrbDebit) Then

وأمر آخر لاعلاقة له بالمشكلة فقط قم بإزالة السطرالتالي فلاداعي لوجوده:

MsgBox "TotalCredit" & TotalCredit & " " & "TotalDebit  " & TotalDebit

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…