Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابوخليل

Officena Team
  • Content Count

    9,130
  • Joined

  • Last visited

  • Days Won

    116

ابوخليل last won the day on January 19

ابوخليل had the most liked content!

Community Reputation

3,772 Excellent

About ابوخليل

  • Rank
    فريق الموقع

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    طالب علم
  • Location
    القصيم
  • Interests
    التصميم والبرمجة

Recent Profile Visitors

10,720 profile views
  1. اخي الحبيب اذا انت تريد تخلص عملك على اي طريقة المهم انه يخلص فمشي افكارك ولا تسأل احد اما اذا تريد تزيد خبرتك وتحترف وتخرج عمل احترافي فيجب عليك الاستماع لنصائح الخبراء وتطبقها
  2. وعليكم السلام اختنا الكريمة الموضوع مكانه قسم الاكسل وليس هنا .. هناك ستجدين المساعدة من الأعضاء والخبراء صحيح انه يمكن تطبيق مشروع على أكسل وفي الوقت نفسه يمكن تطبيقه على أكسس الا ان الفرق شاسع في بيئة العمل بين كل منهما . ان اردت الانتقال الى اكسس وتطبيق مشروعك عليه يجب عليك التقيد بالتالي : 1- البداية من الصفر في تعلم اكسس 2- نسيان بيئة اكسل .
  3. السلام عليكم جرب : قم بتخفيض أمان الماكرو في اكسس في الجهاز الجديد
  4. اهلا وسهلا اخي ناقل ، شرفت بمرورك وانا مثلك حاولت كثيرا ويبدو ان الرقم 52 عامل عصيان مدني ، لاني اذا غيرت في البيانات بالزيادة او النقص عمل الكود على اكمل وجه ولكن غير مقبول ان اضيف لجان وهمية او معلمين لذا تصرفت في الايام وجعلتها احد عشر يوما فعمل الكود بدون اي ملاحظات اخي هاني انظر مطلوبك في الاستعلامات الجدولية داخل المثال db4_1.mdb
  5. الاصناف كلها الرئيسية والفرعية بجدول واحد وترصد فيه كل ما يخص الصنف من سعر البيع والشراء والخصومات ان وجدت ونحو ذلك من البيانات الثابته او شبه الثابتة الارصدة يمكنك الاطلاع عليها من فورم واحد والافضل يظهر لك رصيد الصنف في فورم البيع والشراء بمعنى ان جميع النماذج اللي انت عاملها عاملة زحمة وما لهاش داعي
  6. تمام ارفع تعديلك لنستفيد ، ونحاول نحقق طلبك
  7. انا لم افتح المرفق ولكن بالنسبة للاصناف يجب تسجيل الاصناف حسب انواعها في الجدول فمثلا اسمنت السويس يجب تسجل كل نوع كصنف لوحده فتكون المحصلة اربعة او خمسة اصناف تخص اسمنت السويس وكل نوع منها له باركود خاص به ويجمعها جميعا باركود واحد البعض يعمل عمودين للباركود خاص وعام والبعض الآخر يعمل عمود واحد ويجعل رقم الباركود قابل للتجميع مثلا يخصص الارقام الخمسة من اليسار لصنف معين والاختلاف يكون في الرقم السادس الى اليمين حسب الانواع المندرجة تحت هذا الصنف .
  8. انا كتبت لك الصيغة واظهرت لك رسالة حتى ترى النتيجة وللتطبيق فمثلا في الاستعلام اذا اعتبرنا حقل القيمة اسمه total imonths:[total]\30 idays : [total] Mod 30 dayess.mdb
  9. تفضل على السريع يمكنك بناء تقاريرك على الجدول tbl1 db4.mdb
  10. وعليكم السلام Dim i1, i2 As Double Dim i3 i1 = 129 \ 30 i2 = 129 Mod 30 i3 = i1 & "أشهر" & " " & "و" & " " & i2 & "أيام" MsgBox i3
  11. جزاك الله خيرا ابا معاذ واجهتني ملاحظات بسيطة على بعض الفورمات عند الفتح وعند الخروج من البرنامج وقمت بالتعديل عليها هي بسيطة جدا ولكن المبتدىء او من لا يعرف اكسس سيقف حائرا جنتى محمد صيام.rar
  12. عرض وترتيب جميل وايقونات اجمل جزاك الله خيرا وزادك علما ونفعا .
  13. اقرب طريقة هو ان تجعل الكود يأخذ التاريخ من حقل في الجدول بدلا من كتابته داخل الكود وكل الذي عليك عمله هو لتمكين الصلاحية : زيادة التاريخ في حقل الجدول بحيث يكون اكبر من اليوم الحالي والعكس صحيح وخذ باعتبارك انه من يمكنه فتح قاعدة الجداول سيتمكن من التغيير ايضا ايضا يوجد حلول اخرى كثيرة للتحكم بصلاحيات المستخدمين
  14. الطريقة الثانية : بدون تغيير في عناصر النموذج و لكن ستواجه مشكلة الحفظ في حدث ما قبل التحديث للنموذج وهذا يستلزم معالجته بطريقة اخرى لأن الطريقة الثانية هذه تستلزم تحديث النموذج وأنت جعلت حقل الفرع مطلوب 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
  15. صحيح اخي احمد .... اوقات الواحد يحاول يعدلها في راسه وما تتعدلش دعنا ننزل على رغبة الأخ مصطفى اولا حقل التاريخ مرتبط بحقل هو بالاصل مفتاح يعني ماراح يسمح بالتكرار فيمكننا معالجته بأكثر من طريقة الطريقة الاولى : ادخال التاريخ في حقل غير منضم فإن قبله اكسس يتم نقله الى الفورم وتسجيله في الجدول وإلا يتم الغاء العملية 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
×
×
  • Create New...