اذهب الي المحتوي
أوفيسنا

نجوم المشاركات

  1. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      8

    • Posts

      11,622


  2. محي الدين ابو البشر
  3. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      3

    • Posts

      11,621


  4. Moosak

    Moosak

    أوفيسنا


    • نقاط

      3

    • Posts

      1,823


Popular Content

Showing content with the highest reputation on 24 مار, 2022 in مشاركات

  1. السلام عليكم ورحمة الله وبركاته سبق وان عملت امثلة وبرامج مصغرة ومختصرة للمبيعات والمشتريات ، ويمكن من خلال البحث في المنتدى تجدونها .وهذا العمل يختلف نوعا ما عن ما سبق . يسعدني ان ارفق اخر تطوير لعمليات البيع والشراء والمخازن ومنهجي الدائم في جميع مشاريعي هو استخدام الجدول الواحد في هذا العمل المرفق تم تحقيق التالي : 1- العمل المرفق هو زبدة النظام وان شئت نسميه المحرك الأساسي ، ويمكن ان يبنى عليه جميع التقارير التي تخطر على البال بلا استثناء 2- يشتمل على عمليات البيع وعمليات الشراء واختيار المخزن المناسب 3- يشتمل على عمليات المرتجع من المبيع او المشتريات على فرضية ان مرتجع البيع هو في الحقيقة شراء والعكس صحيح 4- امكانية البيع والشراء بالنقد والآجل 5- احتساب الضريبة في المبيعات . فقط 6- عملية تسجيل الاصناف بطريقة احترافية 7- استخراج ارصدة الاصناف حسب المخازن عند كل حركة 8- سهولة في الاستخدام ( جميع عملياتك بنقرة واحدة ) 9- المخرجات لم اعملها وانما تركتها لكم .. علما انه يمكن استخراج : - ارصدة المواد - الدائن والمدين والأرباح - الكاش والآجل للجميع او حسب كل عميل وأشياء اخرى يمكن استخراجها ستكتشفونها عند فحص وتجربة المثال اتمنى ان تجدوا فيه الفائدة .. ولا تنسوني من دعوة صالحة بظهر الغيب buyAsale1.rar
    8 points
  2. 3 points
  3. mohamed_omar@ Sub test2() Dim i, ii As Long With Sheet1 For i = 4 To .Range("a10000").End(xlUp).Row For ii = 1 To 4 If .Cells(i, ii).Value < Sheet1.Cells(3, ii) Then .Cells(i, ii).Interior.Color = vbRed Else .Cells(i, ii).Interior.Color = vbWhite End If Next Next End With End Sub نفس الكود ولكن
    3 points
  4. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته.. اقدم لكم اداة من برمجتي المتواضعة لتحويل اكواد الـ SQL الى VBA قبل كل شي، الاداة حصراً للمبرمجين الذين يستخدمون الكود في الادراج والتعديل والحذف وليس للأشخاص الذين يستخدمون الواجهة الرسومية للأكسس الخالية من الكود ماهي فائدة الأداة ولماذا استخدمها؟ حسناً، لو كان لدينا جدول اسمة tbl_movementes يقوم بتسجيل جميع الحركات التي تحدث ( اضافة , تعديل , حذف ) وهذا الجدول احتاجه في كثير من النماذج، فهل من المعقول ان اقوم بكتابة عبارة INSERT INTO في كل نموذج ؟ اكيد لا، سأقوم بكتابة Sub واقوم بإستدعاءه كل مرة اريد ان اضيف بها بيانات الى الجدول واختصاراً للوقت الطويل والأخطاء التي ربما ستحدث اثناء عملية التحويل، قمت بكتابة اداة تقوم بهذا الغرض الاداة وضيفتها فقط ( Insert , Update ) صورة الاداة: لنطبق على عملية اضافة بيانات جديد: 1- قم بفتح 2- ثم قم بأختيار الجدول الذي تريده، وقم بإدراج جميع الحقول، كما في الصورة 3- من النافذة العليا اختر النافذة تصميم وقم بتعديل نوع الاستعلام الى استعلام إلحاق وثم بإختيار نفس الجدول لكي يقوم بألحاق البيانات به. الآن لنرى النتيجة 3- الان قم بعرض اكواد الـ SQL 4- قم بنسخ جميع الاكواد كما في الصورة الاتية 5- الان قم بفتح الاداة، واختر النوع Insert، ثم الصق اكواد الـ SQL في مربع النص SQL 6- قبل عملية التحويل قم بإلغاء الأعمدة التي لا ترغب بها من القائمة على اليمين ( Column Remove ) مثلا سأقوم بألغاء العمود IsDeleted وذلك بالضغط على اسم العمود رسالة تخبرك بتأكيد عملية حذف العمود 7- اضغط على الزر Convert 8- تم تحويل الكود ونسخه، الان قم بلصقه في الأكسس واستخدمه الاستخدام النتيجة، تم ادراج البيانات بالجدول لنطبق على عملية تعديل البيانات: نفس الخطوات القديمة فقط من الاداة اختر نوع الاستعلام Update من المعروف ان عملية تعديل البيانات تتطلب معيار للتعديل WHERE COLUMN NAME = Number لذلك عندما نقوم بإنشاء الاستعلام نقوم بوضع عمود المعيار اخر عمود في الاستعلام هكذا من لديه ملاحظات أو اضافات تعطى للبرمج حصراً أحرم تعديل البرنامج بأحد ادوات الهندسة العكسية او نسبه لأي شخص تمت البرمجة حصرياً لمنتدى أوفسينا، اهداء الى معلمي العزيز @jjafferr تحياتي للجميع. SQL-VBA.rar
    2 points
  5. تاسلام عليكم تغيير خلفيه النموذج بالاختيار من مربع تحرير وسرد alisstart.rar
    2 points
  6. جزيل الشكر والامتنان استاذنا الفاضل ..بارك الله فيك وجعله بميزان حسناتك
    1 point
  7. هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم http://codevba.com/ وهذه صورة لشريط الاكواد وهذه هو الملف codevba.zip وشكرا لاستاذنا جعفر على ادراج الرابط لكي لا يخالف الملكية الفكرية
    1 point
  8. أهلا أخي عمر .. ضع هذا الكود على زر واحد .. فسيقوم بنسخ السجلات كلها ولصقها كسجلات جديدة : Me.AllowAdditions = False DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Me.AllowAdditions = True DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste أما إذا كنت تريد نسخ ولصق السجل الذي تتقف عليه فضع الكود كما يلي : DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste الشغل كله على هذا الزر 🙂 مراجعة فواتير العلاج الشهرى المزمن - Copy.rar
    1 point
  9. السلام عليكم أخي الكريم هذا حل يمكنك تطويره ليناسب عملك طبعاً بإضافة أعمدة مساعدة يمكنك إخفاؤها emploi 24-03-2022.xls
    1 point
  10. أو أذا أحببت أيضاً Private Sub Worksheet_Change(ByVal Target As Range) Dim i, ii As Long If Not Intersect(Target, Me.Range("A4:D" & Me.Range("a10000").End(xlUp).Row)) Is Nothing Then If Target.Value < Me.Cells(3, Target.Column) Then Target.Interior.Color = vbRed Else Target.Interior.Color = vbWhite End If End If End Sub
    1 point
  11. فكرة اكثر من رائعة شكرا لك اخي الكريم استمر في تقديم عطائك
    1 point
  12. من عينيه 🙂 مع تحسين بسيط لشكل الصور .. بس فيه مشكلة بسيطة أنه ملفات ال PDF ما يتم عرض صورة مصغرة لها ولكن تفتح عادي كرابط 🙂 تفضل : Req_Link_img.accdb
    1 point
  13. محاولة متواضعة ارجوا ان تكون مفيدة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lr As Long lr = sheet1.Range("a10000").End(xlUp).Row For i = 4 To lr If sheet1.Cells(i, 2).Value < sheet1.Range("b3") Then sheet1.Cells(i, 2).Interior.Color = vbRed Else sheet1.Cells(i, 2).Interior.Color = vbWhite End If Next For i = 4 To lr If sheet1.Cells(i, 3).Value < sheet1.Range("c3") Then sheet1.Cells(i, 3).Interior.Color = vbRed Else sheet1.Cells(i, 3).Interior.Color = vbWhite End If Next For i = 4 To lr If sheet1.Cells(i, 4).Value < sheet1.Range("d3") Then sheet1.Cells(i, 4).Interior.Color = vbRed Else sheet1.Cells(i, 4).Interior.Color = vbWhite End If Next For i = 4 To lr If sheet1.Cells(i, 5).Value < sheet1.Range("e3") Then sheet1.Cells(i, 5).Interior.Color = vbRed Else sheet1.Cells(i, 5).Interior.Color = vbWhite End If Next End Sub درجات طلبه.xlsm
    1 point
  14. أهلا أخي نبيل .. 🙂 طريقة الحساب معقدة جدا .. والشرح لم يوصل الفكرة .. 😅 ولكن لي محاولة 🙂 هل هذا يفي بالغرض ؟ nabilali.accdb
    1 point
  15. السلام عليكم بالإذن ممكن خيار آخر C2=CHOOSE(A2,8.33,9.09,10,11.11)*B2 وفاء 2021.xlsx
    1 point
  16. السلام عليكم ورحمة الله وبركاته 💐 أرجو أن يكون الحل مناسباً =IF(A2=4;B2*11.11;IF(A2=3;B2*10;IF(A2=2;B2*9.09;IF(A2=1;B2*8.33)))) وفاء 2021.xlsx
    1 point
  17. مثل ما اخبرتك ، انا لا افهم فرنسي ، فإذا تحب تنتظر ممكن احد الشباب اللي يعرف فرنسي ممكن يساعدك 🙂 ولكن ، ما يضرك ان تجرب ما اقترحته عليك 🙂 وتم تعديل اسم الموضوع ليجذب الشباب 🙂 جعفر
    1 point
×
×
  • اضف...

Important Information