AbuuAhmed

حياك الله أخي المهندس قاسم الحقيقة هو لا يحتاج إلى أي دالة أخرى ، والغريب أن مصدر الاستعلام القيم فيها رقمية ولكنها تتحول في هذا الاستعلام إلى نصية!! لم أعرف السبب. والحل الأمثل أن يذهب لخصائص العمود أو الأصح العمودين ويجعل تنسيقهما 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

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

ما شاء الله ، هذا المثال به فكرة جديدة تماما بالنسبة لي ، مثال جامد ، شكرا لكم.

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

يبدو لم تتمكن من الوصول إلى نافذة Immediate آخر محاولاتي ، بدل آخر سطرين بالتالي: paath = Replace(Me.city.Column(2), """", "") xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1))

لا ، أحتاج قيمته استخدم هذا السطر Debug.print paath بعد السطر التي أتيت به وانسخ القيمة من نافذة Immediate Window

إذا الموضوع يخص أرقام لوحات السيارات بالسعودية ، فهذا كود من أحد برامجي القديمة. Function GetPlateNo(ByVal EngNo As String) As String Dim E, A E = Array("A", "B", "D", "E", "G", "H", "J", "K", "L", "N", "R", "S", "T", "U", "V", "X", "Z") A = Array("ا", "ب", "د", "ع", "ق", "هـ", "ي", "ك", "ل", "ن", "ر", "س", "ط", "و", "ي", "ص", "م") Dim L As Integer Dim S As Byte Dim ArbNo As String Dim LftNo As String If Len(EngNo) = 8 Then LftNo = Left(EngNo, 4) EngNo = Right(EngNo, 3) End If If Len(EngNo) <> 3 Then GetPlateNo = EngNo Exit Function End If For L = 3 To 1 Step -1 For S = 1 To 17 If Mid(EngNo, L, 1) = E(S - 1) Then ArbNo = ArbNo & " " & A(S - 1) Exit For End If Next S Next L GetPlateNo = Trim(LftNo & " " & ArbNo) End Function