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

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

  1. د.كاف يار

    د.كاف يار

    الخبراء


    • نقاط

      9

    • Posts

      1,681


  2. أبو عبدالله الحلوانى
  3. qathi

    qathi

    04 عضو فضي


    • نقاط

      5

    • Posts

      954


  4. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      5

    • Posts

      8,723


Popular Content

Showing content with the highest reputation on 15 سبت, 2019 in all areas

  1. أخي @محمد صلاح1 أسمع مني رعاك الله اعتقد اني كنت مثلك هكذا سابقاً هذه نصيحة لتستفيد عن تجربة قد يكون كل كلامك صحيح .. المشكلة ليس في طلبك ... بل في أستخدام العبارات الذي توحي للقارء السطور أنك عنيف في كلامك .. قبل أن ترد قم بشكرة على عملة ومحاولته وجهدة ..لأنه فرغ من وقته وقد يكون لدية أعمال فأجل أعمالة أبتغاء وجه الله في حل مشاكل الاعضاء وأنت منهم .. أخفض من أسلوب كلامك واجعل فيه التواضع والرحمة فنحن مسلمون .. وفي الأخير أنت طالب علم يكفي أن غيرهم لا يعطيك معلومة ألا بمقابل .. أما هم فقد أبتغو الاجر عند الله وللعلم يسؤني جداً أني أرى من طلاب العلم أنه لا يحسن ألفاضه مع معلمة في أي نواحي الحياة أعلم أنك مهما عملت لن تفي في حق أساتذتنا الأجلاء الذي ننظر لهم كالجبال الرواسي .. في هذا المنتدى الشامخ ومنهم الذي بلغ علمة الافاق تجد عبارات متواضعة يوضع نفسة كأنه طالب علم كأستاذي الغلي @ابا جودى
    5 points
  2. للمزيد بعد اذن الاخ علي هذه المعادلة =COUNTIF(A$2:A2,A2)
    3 points
  3. تفضل لك ما طلبت بهذه المعادلة =IF(A2=A1,C1+1,1) تجربة.xlsx
    3 points
  4. السلام عليكم ورحمة الله وبركاته هذا الموضوع أنشأته من أجل الأخ @Mahmoud.Abdou واسهاما لايصاله لمراده في هذا الموضوع فقد قمت بوضع اللبنة الأولي في البرنامج المطلوب - ونظرا لانشغالي وضيق الوقت لدي لن أستطيع الاكمال في الوقت الحالي - أرجو من الأحبة أن يجود كل بما لديه من وقت لاتمام البرنامج قمت بتصميم الجداول علي غرار شكل البرنامج بالموضوع السابق الاشارة اليه. مع اضافة والاستغناء عن أشياء - وكذلك وضعت توضيحا بسيطا لكل حقل داخل تصميم الجداول. والآن هذا هو المرفق أسأل الله أن يوفق الجميع لما يحب ويرضي - وجزاكم الله عنا خيرا. Examination.accdb
    2 points
  5. وهذه مرفقات من مكتبتى قد تجدون منها الافكار التى تساعد ان شاء الله فى اتمام العمل 2003سين وجيم مفتوح .mdb اختبر معلوماتك في الاكسس.mdb
    2 points
  6. اخي الكريم لدي برنامج شبيه بالمطلوب و لكن غير مكتمل ارجوا الاطلاع عليه اذا كانت الفكرة مناسبة سيتم استكماله بناء على طلبك و تقريبا لوجهات النظر هذا من ناحية التصميم اما من ناحية قاعدة البيانات فأرشح القاعدة المرفقة من أخي @أبو عبدالله الحلوانى فتصميمها محكم جداً كذلك جودة العلاقات بين الجداول ممتازة جدا Database2003.mdb
    2 points
  7. تفضل الملف اخي الكريم استيراد و تصدير من الاكسل.mdb
    2 points
  8. تسلم اخي الغالي وبارك الله فيك
    2 points
  9. جرب المرفق Vehicles Board - Copy.accdb واذا ترغب في بقاء التقرير مفتوح بعد الحفظ جرب المرفق Vehicles Board - Copy.accdb
    2 points
  10. لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك رابط القناة لمن لم يشترك معنا حتى الآن https://www.youtube.com/ostazmas2 #ostazmas ************ فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو ///////////////// وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد
    1 point
  11. السلام عليكم هلا سمحت لنا بمزيد من التفاصيل من فضلك.
    1 point
  12. أسأل الله العظيم رب العرش العظيم أن يشفيك ويعافيك شفاءا لا يغادر سقما - وأجري الخير علي يديك وبين يديك أينما حللت - استرح أخي فعافيتك أهم عندنا.
    1 point
  13. أولا - هل تابعت الرابط الخاص بالاعدادات وقمت بها ثانيا- يوجد بعض أجهزة قارئ البار كود لا تحتاج لاعدات يدوية بل يتم توصيفها من خلال الوندوز كما يتم توصيف أي جهاز يتم توصيله تلقائيا - هل جربت نوع آخر من جهاز البار كود - جرب بدون شراء جديد 😷 وانظر هل ستتم القراءة بشكل صحيح أم لا. ثالثا - هل كل الكود الذي تم قرائته صحيح ما عدا ال (-) أم ماذا - هل جربت قراءة كود ليس به شرطة؟ آسف علي الاطالة
    1 point
  14. السلام عليكم اولا احبابى فى الله الاستاذ @qathi ما الذى تنسبه الى هذا كل ما تنسبه الى باطل اخى الحبيب اولا انا لا اوضع نفسي موضع طالب العلم لاننى بالفعل طالب علم بل اقل من اقل طالب علم وعن اى اعمال تتحدث وتنسبها الى بالباطل اولا هذا فضل الله تعالى وعلم الله فسبحان الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل ثانيا كل ذلك ثمار اساتذتنا الافاضل العظماء الذين تعلم على ايديهم فلهم كل الفضل بعد رب العزة سبحانه ثالثا انا قررت ان اسير على درب اساتذتى اقدم كل ما املك لكل من يطلب لوجه الله كما فعلوا فهذا اقل شكر فمن سن سنة طيبه فله اجرها واجر من عمل بها وهم قدموا العلم ولم يخفوه فأسال الله تعالى ان يتقبل منى ومنهم فيكون علم ينتفع بها حتى بعد الممات أما انت يا استاذى الكريم @محمد صلاح1 قد اخبرتك شيئين اولهما عدم قدرتى على المتابعة ولله الحمد على كل حال والامر الثانى ان مرفقكم يحتاج للوقت والجهد الكثيرين لانكل اخذت من كل مثال يخص الصلاحيات ما يعجبك وحاولت دمجه وحدث تضارب بالاكواد ونقض بها احيانا ووجود منها ما لا قيمة له اصلا واخبرتك ان وضعى لا يسعنى بتقديم المساعدة التى تطلبها منى كان طلبك العلاقة العلاقة بين CUsers & UserDefs وكود فتح النماذج التي سيكون لها صلاحيات وقطعا لا استطيع التعديل على مرفقكم فقمت بتقديم المثال الذى يوضح ذلك بأبسط صورة له مع اضافة صغيرة لتقليص العدد الهائل الذى سيكتب فى كل نموذج وكان ذلك ايضا بناء على طلبك وصدقنى ان التعديل على اكواد الاخرين ليست بالامر الهين لانك لابد ان تفكر اولا مثلهم لتستطيع التحليل والتفنيد وفهم الاكواد ليسعك التعديل بما يناسبك انت انت اتيت باكثر من شكل وباكثر من نموذج ولاكثر من شخص وتحاول دمجهم قطعا لم تحلل كل منها جيدا ولم تفهم الاكواد من اين بدات وكيف انتهت لذلك العمل منقوص والاكواد والافكار متضاربة لذلك للمرة الاخرى اقدن اليم اعتذارى الشديد عن سوء فهمى وقلة حيلتى كما ان فعلا والله وضهى الحالى يعوقنى كثيرا واتمنى لك اخيرا التوفيق من الله عزوجل فى الوصول الى مبتغاك
    1 point
  15. استاذ سليم ... منكم نستفيد ونتعلم ......ولكم فائق الشكر والتقدير
    1 point
  16. تفضل الكود اولاً Option Explicit Sub find_Please() If ActiveSheet.Name <> "بنزين" Then Exit Sub Dim B As Worksheet: Set B = Sheets("بنزين") Dim M As Worksheet: Set M = Sheets("الموقف1") Dim r%, k% Dim M_R As Range Dim dic As Object Set M_R = M.Range("A2", M.Cells(Rows.Count, 1).End(3)).Resize(, 6) Set dic = CreateObject("Scripting.Dictionary") Dim My_word: My_word = B.Range("O1") Dim x%: x = M_R.Rows.Count: Dim i% Dim arr(1 To 4) arr(1) = "B": arr(2) = "F": arr(3) = "G": arr(4) = "H" B.Range("b2").Resize(1000, 8).ClearContents For i = 1 To x dic(M_R.Cells(i, 5).Value) = "" Next With B.Range("O1").Validation .Delete .Add xlValidateList, Formula1:=Join((dic.keys), ",") End With r = 2 For i = 1 To x If r - 1 > Application.CountIf(M_R, My_word) Then Exit For If M_R.Cells(i, 5) = My_word Then B.Cells(r, arr(1)) = M_R.Cells(i, 5) B.Cells(r, arr(2)) = M_R.Cells(i, 1) B.Cells(r, arr(3)) = M_R.Cells(i, 2) B.Cells(r, arr(4)) = M_R.Cells(i, 6) r = r + 1 End If Next Erase arr: dic.RemoveAll: Set M_R = Nothing: Set dic = Nothing Set M = Nothing: Set B = Nothing End Sub ثم الملف ثانياً (اختيار الاسم من القائمة المنسدلة المطاطة (لعدم الوقوع في خطأ الكتابة مسافة زائدة /مسافة ناقصة /خطأ املائي /أخطاء الهمزة / الخ... و لتوفير الوقت) استفسار .xlsm
    1 point
  17. العفو اخي العزيز بخصوص اي طلب اضافي يسعدنا التعاون معك مع الالتزام بانظمة الموقع والتي تنص على اي امر خارج نطاق الموضوع الاساسي يكون في موضوع جديد قواعد المشاركة في الموقع وتقبل مني كل الود والتقدير
    1 point
  18. شرح طريقة فورم لشريط متحرك الفيديو الصور
    1 point
  19. الملف هذا يحدد نوزيع عدد المؤظفين على نسب على حسب جدول مسرود مسبقا على حقل ما ، مثل جدول في أول مرفق مسرود على حقل id و هذا تطبيق نفس طريفة على جدول الاكسس test 2.accdb
    1 point
  20. السلام عليكم أكيد يمكن طباعة جميع التقارير من القائمة المنسدلة بدلًا من طباعتها بشكل مفرد، ويمكن أيضا طباعة جميع التقارير باستعمال خاصية "من.... إلى...." (من الاسم1 إلى الاسم2)... بن علية حاجي تجربة - طباعة.xlsm
    1 point
  21. طريقة اخرى بدون الحاجة الى جدول رقم2 عن طريق منشئ التعبير ودالة Switch الضريبة2.accdb
    1 point
  22. تفضل هذا الاقتراح الضريبة.accdb
    1 point
  23. بارك الله فيك استاذى الكريم بن علية-معادلة ممتازة لطلب كان صعب ولكنى ارى ان الأستاذ alaaaltwel لم يتم الضغط منه على الإعجاب على هذه المعادلة الممتازة على الرغم من ان الإجابة اعجبته وتم حل مشكلته فأعتقد ان هذا اقل ما يقدم لأستاذنا الكريم بن علية على حل هذه المشكلة-بارك الله فيه وزاده الله من فضله وجعله دائما وابدا زخرا لنا جميعا
    1 point
  24. على اعتبار ان حقل المجموع اسمه = txtQuantity ضع هذا الكود على زر الامر جديد Select Case Nz(txtQuantity, "") Case "" MsgBox "Quantity is empty, include the Quantity please" Case Is <= 0 MsgBox "Quantity is zero or less, include the Quantity please" Case Is > 0 DoCmd.GoToRecord , , acNewRec End Select
    1 point
  25. في مربع نص الكمية وفي حدث عند الخروج ضع هذا الكود ... مع تعديل ما يلزم If IsNull(Me.Namex) Then ' Namex هو اسم مربع نص الكمية MsgBox "ادخل بيانات", vbCritical, "dATA" DoCmd.CancelEvent End If
    1 point
  26. 1 point
  27. تحياتي الخالصة تفضل المطلوب في الملف المرفق... بن علية حاجي تقرير (1).xlsx
    1 point
  28. تفضل اخي الكريم ما الذي تم عمله ؟؟؟ - تم اخفاء جميع التقارير - تم وضع شرط ظهور التقارير في حالة وجود بيانات في اي جدول بحيث ان الجدول الخالي البيانات لن يظهر التقرير التابع له Exam.accdb
    1 point
  29. السلام عليكم أولا- المرفق الذي ارفقته بمشاركتي الأولي كان به خطأ فني وقد قمت بعديله في هذا المرفق ثانيا- قد وجدت بهذا الرابط أن جهاز قارئ الباركود الذي تستخدمه بحاجة لاعدادات قبل تشغيله وهنا تجد التفاصيل https://pzik.ru/ar/connecting-and-setting-up-a-barcode-scanner-keyboard-scanner/ باركود.rar
    1 point
  30. الله المستعان ولكن أود توقيع كتابي من ولي المريض بكون الطبيب والمستشفي غير مسئولين تمام المسئولية عن أي ضرر ناتج عن الجراحة وبعد الاقرار سيتم تحديد موعد الجراحة غدا ان شاء الله - وتقبلوا تمنياتنا بالشفاء العاجل ان شاء الله 😁
    1 point
  31. السلام عليكم جرب هذا كل ما عليك هو تحميل الخط المرفق لمكتبة خطوط الويندوز كما هو موضح بالصورة ووافنا بالنتائج باركود.rar
    1 point
  32. أخى الكريم ابو زاهر قم بمتابعة هذا الرابط مع إنه موضوعك وهذا الباقى فى المرفق قراءه الباركود.accdb
    1 point
  33. وعليكم السلام تفضل هذه الفاتورة أتمنى ان تنال اعجابك وهذه أيضا فاتورة مصممة على الإكسيل وكمان هذه فاتورة خبورية مصممة على الإكسيل فاتورة احترافية.rar فاتورة مبيعات اوفيسنا.xls فاتورة خبورية.xls
    1 point
  34. السلام عليكم فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به اذا اردنا لون معين نقوم بالبحث العشوائي عن هذا اللون اوما يقاربه ثم نقوم بالتغيير عليه من الارقام الخاصة RGB حتى نوصل الى ما نريده تماما الناتج: كود RGB كود HEX كود MSA ويمكنك الاحتفاظ بهذه المعلومات في الشيت من زر اضافة معمول بالاكسل وبالفيجول بيسك الاكسل 2003-2010 فورم تكوين الوان مع المعلومات.rar بالفيجوال بيسك: RGB TO HEX.rar في امان الله
    1 point
×
×
  • اضف...

Important Information