اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. ضاحي الغريب

    ضاحي الغريب

    أوفيسنا


    • نقاط

      6

    • Posts

      2,282


  2. ابو ياسين المشولي

    • نقاط

      4

    • Posts

      1,746


  3. احمدزمان

    احمدزمان

    أوفيسنا


    • نقاط

      4

    • Posts

      4,385


  4. ابو يامن

    ابو يامن

    03 عضو مميز


    • نقاط

      4

    • Posts

      311


Popular Content

Showing content with the highest reputation on 27 فبر, 2018 in all areas

  1. في هذة الحالة اعمل مدويل جديد وانسخ فيه هذا Public dayli As Date Function Next_Seq(T As String) As String 'T = Type نوع السند 'A = بيع 'M = بيع اجل 'S = شراء نقدي 'G = شراء اجل 'K = مرتجع بيع 'B = مرتجع بيع اجل 'Y = مرتجع شراء نقدي 'P = مرتجع شراء اجل 'R = سند قبض 'U = سند صرف 'L = عرض سعر myGroup = "A = بيع" & vbCrLf & _ "M = بيع" & vbCrLf & _ "L = شراء" & vbCrLf & _ "S = شراء" & vbCrLf & _ "G = شراء" & vbCrLf & _ "B = مرتجع بيع" & vbCrLf & _ "K = مرتجع بيع اجل" & vbCrLf & _ "Y = مرتجع شراء نقدي" & vbCrLf & _ "P = مرتجع شراء اجل" & vbCrLf & _ "R = سند قبض" & vbCrLf & _ "U = سند صرف" If Len(T & "") = 0 Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او B او Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup Exit Function ElseIf T <> "A" And T <> "M" And T <> "S" And T <> "G" And T <> "K" And T <> "B" And T <> "Y" And T <> "P" And T <> "R" And T <> "U" And T <> "L" Then MsgBox "يجب ان يكون نوع السند" & vbCrLf & "A او M او S او G او K او Bاو Y او P او R او U اوL" & vbCrLf & vbCrLf & myGroup Exit Function Else Next_Seq = Nz(DMax("Mid([Rjmfatwra], 2)", "AfwtIar", "Mid([Rjmfatwra], 1, 1) = '" & T & "'"), 0) Next_Seq = T & Format(Next_Seq + 1, "00000") End If End Function وعند الاضافه استدعيه هكذا Me.[Rjmfatwra] = Next_Seq("A")
    2 points
  2. السلام عليكم أصدقاء المنتدى الكرام أقدم لكم ملف جاهز لتحويل التاريخ من الميلادى إلى التاريخ الهجرى ...أتمنى أن ينال إعجابكم بارك الله لكم جميعا برنامج تحويل التاريخ.xlsm
    1 point
  3. السلام عليكم ورحمة الله وبركاته مساء الخير أحبتي رواج مملكة الأكسس والوورد أعتذر عن انقطاعاتي الكثيرة وماذاك الا الانشغال مع جدتي شفاها الله وعافها ولا أراكم مكروها اليوم كُنت في محل نظارات وهو محل تابع لمؤسسة معروفة لها أكثر من فرع لاحظتهم يستخدمون برنامج في كل فروعهم فأردت أُشبِع فُضولي حيث سألت مدير الفرع عن البرنامج الذي يستخدموه فقال لي أنه برنامج مُصمم بالأكسيس فاستأذنته بالاطلاع للتأكد وفعلاً وجدته ملف أكسيس ولكن من صممه أبدع كثيراً في تصميمه حتى أني لم أتوقع حينها أنه بالأكسيس , الذي صَدمني أكثر هو أنه تم شراء البرنامج بقيمة 500 ألف ريال على حد قول مدير الفرع ولم أصدقه مبدأياً حتى استرسل وفٌصل في الموضوع إذ تم شراء نسخة لكل فرع ومازلت حقوق البرنامج للمُبرمج ولم تُعطى للمؤسسة !! الموضوع بِرمته رسالة لمن يستهين بالأكسيس : ) لكم وافر التقدير والاحترام ومساءكم سعادة ,, الموضوع منقول من منتدي مملكة الاكسس والورد
    1 point
  4. أخواني واخواتي أعضاء صرحنا العظيم اوفيسنا **************** وجد ان موضوع مستحقات نهاية الخدمة بالاخص في السعودية يشغل بال الكثيرون من المهتمين بالمجال نظرا لما فيه من حقوق واعباء ففكرت في عمل النموذج حتي لا تضيع الحقوق علي اصحابها نتيجة خطأ في تطبيق قاعدة في قانون العمل او لائحة الشركة راعيت في النموذج قوانين مكتب العمل التي نظمت حقوق العامل عند نهاية العقد او الاستغناء عنه او الاستقالة بحالتها المختلفة 1- اذا كانت فترة العامل اقل من سنتين 2- اذا كانت فترة العامل مابين السنتين والخمس سنوات 3- اذا كانت فترة العامل مابين 5 :10 سنوات 4- اذا كانت فترة العامل اكبر من عشر سنوات وكذلك في الادخال بما يتناسب مع سياسة الشركة اوعقد العامل مثال علي ذلك بدل السكن ( بعض الشركات لاتدخله) ضمن راتب المكافأة وشركات اخري تحسبه بما يقابل راتب شهرين عن سنة واخري تحسبه بما يقابل ثلاثة شهور وكذلك راعيت بدل الاجازة السنوية (30 يوم عن كل سنة لكامل الفترة ) او( 21 يوم للخمس سنوات الاولي ومازاد عنها 30 يوم ) طرق ادخال التاريخ عن طريق الفورم لعدم الاخطاء استخدام التقويم الميلادي او الهجري - ام القري في الحساب تم تخصيص ملاحظات تحت كل حساب يظهر العمليات والقوانين التي اتبعت في الحساب وتناولت الموضوع بفكرة جديدة *********** فورم اخري اسميته الادخال السريع ********************* لضمان عدم الاخطاء في الادخال حيث ان كل مرحلة في الفورم لابد من تعبئتها ليمكنك الانتقال للخطوة التالية الي جانب طباعة النموذج بشكله النهائي الشكل الاخير بعد معالجة المدخلات كالتالي انا جعلت موضوع الفورم جزء من قاعدة شئون الموظفيين الجديدة بشكل جديد ان شاء الله قريبا سوف يتم طرحها لكم وارفقت قوانين العمل حسب مكتب العمل السعودي لتكون مرجع في حالة عدم وجود مرجع ثابت او لائحة منظمة لذلك داخل الشركة ويمكنك الاطلاع علي شروط واحكام الحساب عند ضغطك علي خيار " أحكام حساب المستحقات باسفل الفورم ) كما ان بعض الشركات لاتقوم بابرام عقود للعمال فيكون المرجع الاساسي (قانون مكتب العمل ) أدعوا الله سبحانه وتعالي ان اكون وفقت في عملي هذا (( وَمَا أَسْأَلُكُمْ عَلَيْهِ مِنْ أَجْرٍ إِنْ أَجْرِيَ إِلَّا عَلَى رَبِّ الْعَالَمِينَ )) الشعراء/109. ولكنني اطمع بصالح دعائكم بظهر الغيب مستحقات نهاية الخدمة.rar
    1 point
  5. بسم الله الرحمان الرحيم السلام عليكم اصدقائي اعضاء منتدى اوفيسنا تم الانتهاء بحمد لله من قاعدة البيانات تم الاعتماد على الاكسيس كقاعدة البيانات لذى لن يكون هناك اي ثقل او ضغط على الاكسيل فواتير الشراء و فواتير البيع اضافة فاتورة بحث وتعديل او طباعة البحث عن الاصناف باستعمال خاصية النص التنبئي اتبعنا السعر الوسط للاصناف في حال توفر كميات مختلفة باسعار مختلفة في المخزون الاصناف الجديدة تدخل اوتوماتيكيا الى المخزن مباشرة من فاتورة الشراء و كذالك يتم تكويدها اوتوماتيكيا امكانية اضافة القيمة المضافة للفواتير حسب ارادة المستخدم اضهار ان كانت الفاتورة مسددة ام لا و ايضا اضهار ان كان مسدد جزء من الفاتورة و المبلغ المتبقي الموردين و العملاء اضافة بحث وتعديل او حذف اضهار كل الفواتير المتعلقة بالعميل او المود اضهار الفواتير الغير مسددة او الغير مدفوعة للعميل او المورد كشف حساب تفصيلي لكل عميل او مورد طباعة كشف الحساب اضهار عدد الفواتير المتعلقة بكل عميل او مورد و اضهار مجموع المبالغ المدفوعة او المسددة و مجموع المبالغ المستحقة المخزون قائمة كل الاصناف مع امكانية التعديل على اسم الصنف اضهار قائمة بالاصناف القريبة النفاذ وذلك على حسب كمية يحددها المستخدم اضهار قائمة الاصناف التي نفذت من المخزون قائمة بكل عمليات الشراء الخاصة بكل صنف قائمة بكل عمليات البيع الخاصة بكل صنف صافي ربح الصنف امكانية استراد قائمة اصناف من ملف اكسل خارجي جاري العمل عللى مكانية استراد الاصناف من صيغ اخرى كالاكسيس او الملفات النصية سندات الصرف و سندات القبض اضافة بحث وتعديل او حذف + طباعة السندات بحث بواسطة رقم السند او رقم الفاتورة او اسم العميل او المورد او بين فترة زمنية معينة اثناء اضافو السندات سواء قبض او صرف لا تضهر الى الفواتير الغير مسددة عند اختيار الفاتورة يضهر مبلغها اوتوماتيكيا امكانية اختيار طريقة الدفع نقدا او شيك مضهر البرنامج امكانية تغير ثيم البرنامج امكانية تغير لغة البرنامج (عربية انجليزة و فرنسية) يعتمد البرنامج على واجهة الاكسل الرئيسة و اليوزرفورم معا معلومات اخرى امكانية رفع قاعدة بيانات البرنامج على سيرفر محلي او عام (لاخوف على قاعدة البيانات في حال سقوط الونداوز) امكانية العمل على البرنامج من طرف اكثر من مستخدم في وقت واحد هذه بعض الصور المسربة للبرنامج هذا ماتم انجازه بفضل الله الى حد الساعة لذى احتاج من كل الاعضاء ابداء اقتراحاتهم حول الامور المنجزة و ايضا اعطائنا اي اضافات تودون ان اضيفها للبرنامج لانه لم يعد يتوفر في جعبتي اي افكار لذي ارجو من لهم خبرة في التعامل مع هذا النوع من البرامج ان يبدو اقتراحاتهم او يرةني بعض البرامج التي يمكن ان استمد منها افكار اخرى تحياتي للجميع اخوكم في الله شوقي ربيع
    1 point
  6. السلام عليكم ورحمة الله وبركاته اساتذتي الكرام غبت عن المشاركات الا ان قلبي معكم واكيد اني لا استغني عن طلب المساعدة منكم فاليكم مسالتي عملت قاعدة بيانات وتمت مشاركتها عبر الشبكة لاكثر من قسم واقوم بالتعديل على البرنامج حسب الطلب والحاجة ولاجبار المستخدمين على تحديث النسخ لديهم استخدمت الفكرة التالية في فورم تسجيل الدخول وضعت ليبل مخفي به رقم النسخة وفي حدث التحميل يتم فحص رقم النسخة من جدول اسمه النسخة فاذا تطابق الرقمين يفتح عادي والا ظهرت رسالة للمستخدم بان نسخته اصبحت قديمه ويجب التحديث للنسخة الاحدث ويظهر في الرسالة خطوات التحديت بطريقة يدوية مع كثرة التعديلات ودخول مستخدمين جدد لا يستطيعون عمل التحديث بسلاسة حاولت ان اجعل التحديث تلقائي فقمت بما يلي: ١. عملت ملف اكسس جديد اسميته Updt به جدول وقمت بوضعه في ملف في البارتشن C ٢. في ملف القاعدة وفي حدث تحميل فورم الدخول وضعت كود تشغيل استعلام الحاقي ليلحق مسار قاعدة البيانات الحالية في الجدول الموجود في Updt ثم فتح ملف Updt واغلاق القاعدة الرئيسية. ٣. في الملف Updt وضعت فيه فورم وفي حدث التحميل وضعت كود حذف لقاعدة البيانات التي تم الحاق مسارها في الجدول ثم نسخ قاعدة البيانات المحدثة ووضعها بنفس اسم ومسار قاعدة البيانات المحذوفة ثم يتم حذف بيانات الجدول و بعدها يتم اغلاق التطبيق. هذه كانت فكرتي الا انه عند تطبيقها وجدت انه يعلق وتطول العمليه جدا فهل هناك فكرة افضل من هذه ليتم تحديث قاعدة البيانات تلقائيا اي بمعنى نسخ القاعدة الحديثة الموجودة في ملف ثابت على الشبكة واستبدالها مكان النسخة القديمة ولكم جزيل الشكر لم استطيع ارفاق ملف لكبر الحجم ولم استطع اقتباس الاكواد لاني اكتب من الهاتف فاعذروني
    1 point
  7. و عليكم السلام و رحمة الله وبركاته كما فهمت تريد التقريب للربع الأدنى بمعنى مضاعفات 0.25 جرب هذه الداله =CEILING($A$1-0.2;0.25) حيث ان الدالة CEILING تقرب للأعلى لذلك نخصم من الرقم 0.2 لكي يقرب الى الأعلى و نصل للنتيجة المطلوبة
    1 point
  8. استبدل الكود بهذا مع مراعاة وضع الخلايا من الصفحة(سند قبض) في اماكنها الصحيحة في المرة المقبلة ابتعد قدر الامكان عن عدو الاكواد الأول (أقصد الخلايا المدمجة) تم بالخطأ مسح اسماء البنايات (يمكن اعادة ادراجها بالقائمة المتسدلة) Option Explicit Sub Salim() Dim my_sh As Worksheet: Set my_sh = Sheets("سندات القبض") Dim Sanad As Worksheet: Set Sanad = Sheets("سند قبض") Dim x% x = my_sh.Cells(Rows.Count, 2).End(xlUp).Row + 1 Dim i%, s With my_sh.Range("b" & x) For i = 0 To 14 Select Case i Case Is = 0: s = Sanad.[h3].Value: Sanad.[h3].Value = vbNullString Case Is = 1: s = Sanad.[d5].Value: Sanad.[d5].Value = vbNullString Case Is = 2: s = Sanad.[f7].Value: Sanad.[f7].Value = vbNullString Case Is = 3: s = Sanad.[c7].Value: Sanad.[c7].Value = vbNullString Case Is = 4: s = Sanad.[a7].Value: Sanad.[a7].Value = vbNullString Case Is = 5: s = Sanad.[i9].Value Case Is = 6: s = Sanad.[d10].Value: Sanad.[d10].Value = vbNullString Case Is = 7: s = Sanad.[a10].Value: Sanad.[a10].Value = vbNullString Case Is = 8: s = Sanad.[i9].Value: Sanad.[i9].Value = vbNullString Case Is = 9: s = Sanad.[i12].Value: Sanad.[i12].Value = vbNullString Case Is = 10: s = Sanad.[i13].Value: Sanad.[i13].Value = vbNullString Case Is = 11: s = Sanad.[i14].Value: Sanad.[i14].Value = vbNullString Case Is = 12: s = Sanad.[i15].Value: Sanad.[i15].Value = vbNullString Case Is = 13: s = Sanad.[i16].Value: Sanad.[i16].Value = vbNullString Case Is = 14: s = Sanad.[i17].Value: Sanad.[i17].Value = vbNullString End Select .Offset(0, i) = s Next End With End Sub الايجارات.xlsm
    1 point
  9. السلام عليكم و رحمة الله وبركاته شكرا لك و جزاك الله خيرا عمل رائع الله لا يحرمك اجره
    1 point
  10. جزاك الله خيرا اخي الكريم تقبل خالص تحياتي
    1 point
  11. تسلم اخي kaser906 بارك الله فيك انا استخدم برنامج Setup Factory 9 ولكن كان سوالي للاخ cudi عشان السائل يوصل للمطلبه اكرر شكري لك ولكل اعضاء المنتدى على روح التعاون
    1 point
  12. وجدتها لك يا بو احمد اولا دعنا نسمي : 1-الامامية 2- الخلفية لقواعد البيانات الواجهات والجداول حتى يسهل فهم الشرح بنفس فكرتك وتكون كالتالي : 1- عمل جدول محلي داخل الأمامية يحتوي على حقل واحد نضع فيه رقم التحديث 2- استخدام دائم لواجهة في بداية التشغيل وسيطة مرتبطة بالأمامية الجديدة التي ستضعها على السيرفر 3- يكون عمل هذه الوسيطة هي التأكد من رقم التحديث هناك 4- اذا كان الرقم اكبر من المحفوظ في الوسيطة يتم استبدال الامامية الحالية بالامامية التي على السيرفر ثم تشغيلها وغلق الوسيطة 5- اذا كان الرقم مساويا يتم تشغيل الامامية الحالية فقط وغلق الوسيطة
    1 point
  13. السلام عليكم و رحمة الله وبركاته ThisWorkbook ThisWorkbook هذا الملف الحالي - زتستخدم لكي لا يتم تشغيل الكود على ملف آخر Worksheets("Step Up Feature") اسم الورقة المطلوب العمل عليها او الرجوع لها Loop Until كرر العملية المذكورة سابقا الى ان يتحقق الشرط - ويذكر الشرط بعدها وهنا ذكر الشرط مع OR اي انه تتكرر العملية الى ان يتحقق واحد من الشروط التالية اتمنى ان اكون اوضحت لك المطلوب
    1 point
  14. تمام اعتقد طريقتك الاولى جيدة ، ولكن امنحني بعض الوقت اجرب عليها _ يامجرب _ لعلي استطيع تحويلها آليا
    1 point
  15. مرفق ملف اكسل اشهر و اهم اختصارات الاكسل الي ممكن تحتاجها و ممكن تتابعنا ع الفيسبوك : https://www.facebook.com/groups/164745377424519/ و اليوتيوب : https://www.youtube.com/channel/UChAVGy_JEXajXGMcyK-WJtA?view_as=subscriber #excel_castle اختصارات الاكسل.xlsx
    1 point
  16. مرحبا بك فى المنتدى نورتنا واهلا وسهلا بك- ملف رائع بارك الله فيك
    1 point
  17. بارك الله فيك ووفقك أحسنت وابدعت دائما تبهرنا أستاذى الكريم
    1 point
  18. جرب هذا الملف (بعد اذن اخي به علية) تم تغيير اسماء الصفحات لحسن عمل الكود الكود Option Explicit Sub get_data() Dim i%, m%: m = 9 Dim Sh As Worksheet: Set Sh = Sheets("Final_Year") Dim Th As Worksheet: Set Th = Sheets("Natija") Dim x%: x = Application.Match(Th.Range("d2"), Sh.Rows(7), 0) Dim My_Rg_To_Copy As Range: Set My_Rg_To_Copy = Sh.Range("a8").CurrentRegion.Columns(x) Dim last_row%: last_row = My_Rg_To_Copy.Rows.Count + 6 Dim Nisba# Th.Range("a8").CurrentRegion.Offset(1).ClearContents If Not IsNumeric(Th.Range("e4")) Or Th.Range("e4") = vbNullString Then Nisba = (65 / 100) * My_Rg_To_Copy.Cells(2) Else Nisba = (Th.Range("e4") / 100) * My_Rg_To_Copy.Cells(2) End If For i = 9 To last_row If Sh.Cells(i, x) >= Nisba Then Th.Cells(m, 2).Resize(1, 6).Value = Sh.Cells(i, 2).Resize(1, 6).Value Th.Cells(m, 1) = m - 8 m = m + 1 End If Next Set My_Rg_To_Copy = Nothing: Set Sh = Nothing: Set Th = Nothing End Sub الملف مرفق Get data Salim.xls
    1 point
  19. السلام عليكم و رحمة الله وبركاته شكرا لك و جزاك الله خيرا عمل رائع الله لا يحرمك اجره
    1 point
  20. السلام عليكم الحل بالمعادلات في المرفق.... بن علية جلب بيانات من ورقة عمل أخرى.xlsx
    1 point
  21. شوف افتح المرفق في اللي يعطيك من اول السنه الى تاريخ اليوم وفي الى اخر الشهر وفي الى اخر السنه اللي هو تبعك تثبيت التاريخ برمجيا.rar
    1 point
  22. 1 point
  23. اخي حمدي تفضل المرفق .. انا طبقتها على يوم الاحد1 وانت يمكنك تطبيق الفكرة على باقي الايام واجهتني مشكلة في عدم تمكني من التراجع عن التغييرات بعد اظهار الرسالة ولا اعلم ما السبب جدول .zip
    1 point
  24. 1 point
  25. السلام عليكم الاخ الكريم / mostafa_27 بارك الله فيك بعد اذن اخي الاستاذ الحبيب / سليم حاصبيا .. جزاه الله خيرا وعلي حسب فهمي لطلبك وباستخدام الكود المقدم من الاستاذ / سليم .. يكون الكود بالشكل التالي Private Sub CommandButton1_Click() CommandButton1.Caption = IIf(CommandButton1.Caption = "Hide", "Show", "Hide") If CommandButton1.Caption = "Hide" Then Range("H:I,K:K,N:N").EntireColumn.Hidden = True Else If CommandButton1.Caption = "Show" Then Range("H:I,K:K,N:N").EntireColumn.Hidden = False End If End If End Sub واليك ملف مرفق مطبق به الكود تقبل خالص تحياتي امرين مختلفين في زر وراحد - اظهار & اخفاء.rar
    1 point
  26. يا أستاذ مصطفى مع احترامي الكامل لشخصكم الكريم يجب عليك أن تنزل الناس على قدر منازلهم والأستاذ سليم من عمالقة المنتدى ومن الساعين دوما لمساعدة الأخرين ومن فريق الموقع المنوط به الرد على استفساراتنا ومطالبنا وأظن أنك تعلم أن أعضاء الفريق لهم مواصفات خاصة وأعذرنى فلم أستسغ منك ولم أحب أن تناديه باسمه مجردا .
    1 point
  27. لا شكر على واجب اخي حسام اما بخصوص طرح البرنامج لازال الوقت مبكر على الحديث في هذا الشأن احاول قدر الامكان التقدم بسرعة في انجازه و ذلك على حسب الوقت المتوفر لدي تقريب مخصص ساعتين في اليوم فقط للبرنامج تحياتي اخي وصديقي سعد عابد دائما و ابدا يفرحني ويشرفني مرورك وعباراتك الجميلة شكرا على الاضافة التي قدمتها و جاري العمل عليها ان شاء الله تحياتي لك لك مني فائق التقدير اخي محمد شكرا جزيلا على مداخلاتك القيمة جاري معاينة الملف و الاستفادة منه ان شاء الله تحياتي لك
    1 point
  28. الكود Sub hide_col() Range("B:C,F:G,J:J").EntireColumn.Hidden = True End Sub
    1 point
  29. السلام عليكم ورحمة الله وبركاته لا تستغرب اخي الكريم ولا تستهن بالاكسس لا يمكن الاستغناء عن قواعد البيانات مهما كثرت لغات البرمجة :: تحياتي
    1 point
  30. السلام عليكم الملف لم يعمل على 2003 هل ممكن نسخة على 2003
    1 point
  31. تلوح في سمائنا دوما نجوم براقه لا يخفت بريقها عنا لحظه واحده نترقب أضاءتها بقلوب ولهانه ونسعد بلمعانها في سمائنا كل ساعه فاستحقت وبكل فخر ان يرفع اسمها في عليانا اخي وصديقي الغالي / شوقي ربيع المتميز دائما نجم من نجوم اوفيسنا سيظل يجمعنا سويا الكثير والكثير احيانا تعجز الكلمات عن تكوين جملة لتعبر عن الاحساس في لحظة ما لكن أشهد الله اني احبكم في الله الحاضر دائما بمحبته واعماله في قلوبنا معلمنا واستاذنا / عبدالله باقشير ولا ننساه بدعوة بظهر الغيب ان ييسر امره وامرنا جمعيا كل فرسان اوفيسنا الذين ساهموا في بناء هذا الصرح التعليمي جمعيا لهم في قلوبنا مكان ومكانة تعلمنا علي ايديهم وتبادلنا دروب المعرفة تارة وتعلمنا معني العطاء اخواننا الاعضاء جمعيا الذي ومازلنا نتعلم من اسئلتهم وطرحهم اشكر اخي وصديقي شوقي ربيع علي عمله الذي لا يحتاج الي تقييم كالعادة ابداع جديد يضاف الي ابداعات اوفيسنا ومكتبتها بارك الله فيك وجزاك خيرا الجزاء
    1 point
  32. أخي الكريم أولا لا ينبغي ذكر تفاصيل عن المؤسسة أو الشركة لأن ذلك قد يفضي الى معرفتها خصوصا أنك ذكرت أنها شركة نظارات و لها تسعون فرع في المملكة و لذلك سيسهل جدا معرفتها , و قد يلحق ضررا بها و بعلاقتها مع شركة البرمجة التي باعت البرنامج لها ثانيا : هذه العملية لا تسمى شراء نسخة , بل هي عبارة عن رسوم المستخدم و بالتالي تكون رسوم رخصة كل فرع = 500 ألف ريال / 90 فرع = 5,555 ريال للفرع الواحد و كما قلت لاتستيهنوا بالأكسس , بل أنا وجدت برامج ضخمة قاعدة بياناتها اكسل و لكل مجتهد نصيب
    1 point
  33. الأخ الفاضل / محمد الريفى جزاك الله كل خير
    1 point
  34. أخي الحبيب الأستاذ // مجدي يونس أخي الحبيب الأستاذ// سعد عابد أخي الكريم الأستاذ// محمد يوسف محمد أخي الكريم الأستاذ// باسم سعيد اخي الحبيب الأستاذ// أبوحنين أخي الحبيب الأستاذ// حمادة عمر أخي الكريم الأستاذ// سمير حسين أخي الحبيب الأستاذ// محمد مصطفي أبوحمزة أخي الكريم الأستاذ// مرعي السيد الأخت الفاضلة // أم عبدالله الأخ الفاضل // رائد 1982 اخي الفاضل // محمد توبة أخي الفاضل // ابراهيم الشال أخي الفاضل // الطائر الحنان ((مع حفظ الألقاب والترتيب)) مروركم شرفني وشرف الموضوع جزاكم الله خيرا وبارك الله فيكم وادعوا الله ان اكون عند حسن ظنكم في تقبل الله منا ومنكم الصالحات تقبلوا تحياتي جمعيا
    1 point
  35. أخي الحبيب / أبو عبدالرحمن الأستاذ / سعد عابد بارك الله فيك اخي الكريم علي مرورك الطيب وكلماتك الطيبة ودعائك وجزاك خيرا مرورك شرفني وادعوا الله ان اكون عند حسن ظنكم في تقبل الله منا ومنكم الصالحات تقبل تحياتي
    1 point
  36. اخي الحبيب الأستاذ / حمادة عمر ( ابوسما ) الغالي لا اجد ايضا كلمات توافيك حقك لاني مهما قمت بصياغة الكلمات وماكان لدي من بلاغة لا اعتقد انها توافيك حقك مرورك شرف لي ويزين الموضوع باركـ الله فيكـ وجزاكـ خيرا وادعوا الله ان اكون عند حسن ظنكم في وروعة الموضوع في ردك الجميل وكلماتك العطرة وفقنا الله واياك الي الخير دائما ويجعل اعمالنا خالصة لوجه الكريم ويجعلها في موازين حسناتنا اللهم امين تقبل تحياتي
    1 point
  37. وهذا ملف آخر أيضاً عن الإستعلامات CreateMultiSelectQuery.zip
    1 point
  38. بارك الله فيك .... أخي أبوسليم ومشكور على هذا المجهود .........
    1 point
  39. أخوتي الأفاضل : أ رفق لكم اليوم 3 أمثلة برمجية فيها فائدة كبيرة : 1- المثال الأول picture2k.zip يحتوي على كيفية إضافة صورة الى نموذج . 2- المثال الثاني picturereport.zip يحتوي على كيفية إضافة صورة الى التقرير . 3- أما المثال الثالث subformreference2k.zip فهو من أهم الأمثلة : حيث يحتوي على معظم الأمور التي تتعلق بالنماذج الفرعية من إاضفة بيانات على النموذج الفرعي أو حذفها أو تحديدها أو ما شابه ذلك . مع الشكر ، ، ، picture2k.zip picturereport.zip subformreference2k.zip
    1 point
  40. أخوتي الاعزاء : إليكم الأمثلة التي أخترتها لكم اليوم ، على أمل أن تنال إعجابكم جميعاً بإنتظار ردودكم ، ، ، مع الشكر ، ،، BoilerPlate.zip ChangingColorFields.zip CleanFileHTML97.zip CharacterScramble.zip ComboChoosesRecord.zip
    1 point
  41. براك الله فيك وننتظر منك المزيد وجزاك الله كل خير
    1 point
  42. شكراً لك أخي عابر القارات ، و أتمنى لك كل خير و للجميع أيضاً في هذا المنتدى الحبيب
    1 point
  43. المثال رقم 3 الخاص بالإستعلامات CreateQueries2.zip
    0 points
  44. والله معلم والله يعطيك العافية ويقويك
    0 points
  45. أخوتي الأعزاء في هذا المنتدى الطيب : أقترح أن يتم إضافة اي مثال برمجي لديكم تجدون فيه الفائدة لإخوانكم في هذا المنتدى الى المجموعة البرمجية التي قمت و سأقوم إنشاء الله بوضعها هنا لتعم الفائدة على الجميع إنشاء الله تعالى أخوكم ابو سليم ، ، ،
    0 points
  46. اخى العزيز ابو سليم اثابك الله على هذه التحف الجميلة وجعل تعبك فى حصرها وتجميعها ووضعها بين ايدينا بهذا الترتيب موضع اعجاب منا وفقك الله لما فيه الخير لمنتدانا وللمسلمين كافة وجزاك الله حسن الثواب ......... الى الامام اخى العزيز
    0 points
×
×
  • اضف...

Important Information