AbuuAhmed

بأثر رجعي ، السلام عليكم 🙂 سأعود إن شاء الله ... لماذا بعض المرفقات لا تظهر عدد الإنزالات؟!!

كما العنوان ، رسم Lines و Borders/Frames لتقارير الأكسس ، نسخة أولى تجريبية أنا مجهد وسأعود الليلة أو غدا للكتابة عن بعض التفاصيل وحيثيات التصميم والعراك مع برمجة المثال. اكتبوا ملاحظاتكم وطلب خاص مني وبشكل مؤقت ، لا ترفعوا نسخا معدلة ، فقط ضعوا ملاحظاتكم. وشكرا لكم. من ميزات المثال: أنه لا يجبر المبرمج على استخدام الرسم على كل حقول التقرير. أنه يتعامل مع عرض الخط/الإطار حسب الخصائص. أنه يتعامل مع لون الخط/الإطار حسب الخصائص. ومن عيوبه: قد يكون بطيئا عند كثرة البيانات وعدد الصفحات لفتح التقرير مرتين لزوم الحصول على بعض بيانات النسيق. عندي أفكار أخرى سأؤجلها حتى أرى مثال الأخ العزيز جعفر فقد أكتفي أو أقوم ببعض التحسينات بالاستفادة من مثاله. ملاحظات: العمل في هذا المثال أضافت إلي معلومات جديدة لأول مرة وهذا طبيعي فلم تكن لي حاجة بها قبل هذا المثال. DrawLinesAndBoxes4AccessReports_01.accdb

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

حياك الله أخي @rockjone33 ، أذا قصدك تنكت معي لازم تكتب لي فوقها "نكتة" عشان أفهما وأضحك معك ، أنا فهمي ثقيل وخايف الناس تستثقل دمي 🙂 على كل حال ، لمن يتابعني وتعود على ردودي: عندما أكتب من "حفظي" أقصد فيها أني بعيد عن الأكسس ومحرر الفيجوال ، فربما يكون هناك خطأ املائي أو خطأ مطبعي أو خطأ في ترتيب المدخلات ، باختصار أن الحل غير مؤكد 100% ويحتاج إلى مراجعة من السائل والرجوع بمشاركة جديدة يخبرنا فيها عن النتيجة. وأحيانا يكون الحل سليم ولكن تبقى هناك مفاجآت مثل تأثير نوع القيمة المدخلة وتأثيرها على الدالة .. وهكذا. تحياتي لكم جميعا.

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

هذه العبارة غير واضحة عموما تستطيع أن تستخدم دالة Replace لإزالة أصفار الوقت سأكتب لك المعادلة من حفظي كالآتي: myDate = Replace(myDate," 00:00:00","")

عساك ع القوة أخي سامي ، اقترح أن تجعل اسم الملف كالتالي: Format(Now(), "yyyy-mm-dd hh-nn-ss") وهذا يساعد على إعادة ترتيتب الملفات بالاسم تصاعديا أو تنازليا بشكل صحيح حيث ستتابع الملفات وكأنك رتبتها بالتاريخ والوقت.

نتائج البحث عن "شجرة" في منتدى الأكسس Searched for 'شجرة' in موضوعات (officena.net)

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

أمثلة جيدة ولكن ينقصها نسبة بعض الأكواد إلى أصحابها.

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

حياك الله أخي مشكلتك في استعلام Bilan_Stock وفي عمود Stock_Entrée وفي استخدام دالة CInt ، فأنت تستخدم دالة نطاقها أصغر من نطاق الحقول ، والحل بإزالتها ولا حاجة لاستخدام دالة بديلة.

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

تحتاج أن تقرأ عن أنواع الحقول/المتغيرات ونطاقاتها. المتغير الذي تستخدمه نوعه Integer وهذا نطاقه الأعلى. تحتاج إلى تبديله إلى نوع Long.

لم أفتح المرفق وحسب فهمي بشكل سريع ربما أنت تحتاج استخدام خاصية Hide Duplicates من خصائص الحقل.

وكذلك نبارك لزميلنا @Ahmed.IQ حصوله على لقب "خبير" وعساكم ع القوة.

نبارك للزملاء حصولهم على رتبة "خبير" ودعواتي لهم بالموفقية

قد تكون قاعدة البيانات مصممة بإصدار أحدث من إصدار الأكسس لديك.

حياك الله أخي أنا نسفت العمل السابق وبدأت من جديد أنا قمت بتعديلات كثيرة في الفاتورة ، انسى كل تفاصيل برنامجك واعتبر أن المرفق مثالا للفاتورة فقط جرب الفاتورة بشكل مركز وارجع لي بملاحظاتك. تحديثات_04.accdb

Sub GetLastThursdayInRajab1999() Dim CurCal As VbCalendar, Days As Long CurCal = Calendar Calendar = vbCalGreg Days = DateSerial(1999, 12, 31) Calendar = vbCalHijri Do While Month(Days) <> 7 Days = Days - 28 Loop Days = DateSerial(Year(Days), 8, 0) Do While Weekday(Days) <> vbThursday Days = Days - 1 Loop Calendar = vbCalGreg Debug.Print CDate(Days) Calendar = CurCal End Sub

04/11/1999 26/07/1420 هجري و أم القرى. هل هذا المطلوب أم تريده بكود برمجي؟ 🙂

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

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

محاولة لعمل بعض السيطرة على نموذج الفاتورة ، ويمكن تطويرها لاحقا. بشرط حذف القيم الافتراضية صفر (0) للحقول في الجدولين فاتورة والحركة. تحديثات2_03.accdb

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