ابوخليل

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

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

السلام عليكم جرب : قم بتخفيض أمان الماكرو في اكسس في الجهاز الجديد

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

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

تمام ارفع تعديلك لنستفيد ، ونحاول نحقق طلبك

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

انا كتبت لك الصيغة واظهرت لك رسالة حتى ترى النتيجة وللتطبيق فمثلا في الاستعلام اذا اعتبرنا حقل القيمة اسمه total imonths:[total]\30 idays : [total] Mod 30 dayess.mdb

تفضل على السريع يمكنك بناء تقاريرك على الجدول tbl1 db4.mdb

وعليكم السلام Dim i1, i2 As Double Dim i3 i1 = 129 \ 30 i2 = 129 Mod 30 i3 = i1 & "أشهر" & " " & "و" & " " & i2 & "أيام" MsgBox i3

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

عرض وترتيب جميل وايقونات اجمل جزاك الله خيرا وزادك علما ونفعا .

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

الطريقة الثانية : بدون تغيير في عناصر النموذج و لكن ستواجه مشكلة الحفظ في حدث ما قبل التحديث للنموذج وهذا يستلزم معالجته بطريقة اخرى لأن الطريقة الثانية هذه تستلزم تحديث النموذج وأنت جعلت حقل الفرع مطلوب Private Sub idate_AfterUpdate() On Error GoTo i_err Me.Refresh i_err: If Err.Number = 3022 Then 'Or Err.Number = 2115 Response = acDataErrContinue Beep MsgBox "التاريخ مكرر" Undo End If End Sub مساعدة2.rar

صحيح اخي احمد .... اوقات الواحد يحاول يعدلها في راسه وما تتعدلش دعنا ننزل على رغبة الأخ مصطفى اولا حقل التاريخ مرتبط بحقل هو بالاصل مفتاح يعني ماراح يسمح بالتكرار فيمكننا معالجته بأكثر من طريقة الطريقة الاولى : ادخال التاريخ في حقل غير منضم فإن قبله اكسس يتم نقله الى الفورم وتسجيله في الجدول وإلا يتم الغاء العملية Dim x As Boolean On Error Resume Next x = DLookup("[تاريخ الدفعة]", "[تسجيل دفعات الصرف]", "[تاريخ الدفعة]=#" & Me.idate & "#") If x = True Then DoCmd.CancelEvent MsgBox "التاريخ مكرر" Exit Sub Else End If مساعدة.rar