AbuuAhmed

هذه العبارة غير واضحة عموما تستطيع أن تستخدم دالة 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. يمنع منعا باتا توجيه السؤال إلى شخص بعينه لان هذا قد يدفع الآخرين إلى عدم الإجابة، والهدف هو التفاعل من الجميع.

الحل بالكود توزيع الايام مع الشهور_01.xlsm

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

مع الإعتذار للزملاء الذين سبقوني جرب المرفق ، عما أن الكود موجود في النموذج الفرعي. تحديثات2_02.rar

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

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