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

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

  1. مسفر

    مسفر

    الخبراء


    • نقاط

      7

    • Posts

      365


  2. بن علية حاجي

    بن علية حاجي

    الخبراء


    • نقاط

      7

    • Posts

      4,330


  3. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      6

    • Posts

      9,724


  4. أبو إبراهيم الغامدي

Popular Content

Showing content with the highest reputation on 16 يون, 2019 in all areas

  1. السلام عليكم ورحمة الله وبركاته وبعد سنين من العمل في كود الأكسس ، لازلت الى الأمس القريب كنت اعاني من عدم حصولي على النتائج المطلوبة من الجدول (بدون مجموعة محاولات) ، اذا كان المعيار هو حقل تاريخ الى ان حصلت على الكود التالي ، والذي اصبح التعامل فيه مع التاريخ سهلا انا احفظ هذه الوحدة النمطية بإسم fDateFormat: Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function وطريقة استعمال الكود كالأمثلة التالية: a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) او ("Select DISTINCT cen, [Date] From TTTT Where [Date]=" & DateFormat(Me.Idate)) او عدة طرق اخرى اليكم مثالين في البرنامج المرفق ، كيف ان الدالة DateFormat تعطيني نتائج صحيحة مباشرة ، بينما استخدام الطريقة التقليدية للتاريخ لا تعطيني النتيجة مباشرة: الجدول يحتوي على تاريخين ، 1-5-2015 و 2-5-2015 ، وهنا سنقوم بالتجربة على التاريخ 1-5-2015 (ويمكنكم استخدام التاريخ التاثي 2-5-2015) ، وللتأكد من نتائجنا ، عملنا استعلامين : و استخدام الكود في Recordset 1. مع استعمال الدالة DateFormate Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=" & DateFormat(Me.idate)) rst.MoveLast: rst.MoveFirst RC1 = rst.RecordCount والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 2. مع عدم استعمال الدالة DateFromat ، وانما استخدام الطريقة التقليدية للتاريخ: Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=#" & Me.idate & "#") rst.MoveLast: rst.MoveFirst RC2 = rst.RecordCount والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: استخدام الدالة Dcount 3. مع استعمال الدالة DateFormat RC3 = DCount("*", "tbl_T", "[Date]=" & DateFormat(Me.idate)) والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 4. مع عدم استعمال الدالة DateFormat ، ، وانما استخدام الطريقة التقليدية للتاريخ: RC4 = DCount("*", "tbl_T", "[Date]=#" & Me.idate & "#") والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: جعفر 84.DateFormat_Examples.mdb.zip
    2 points
  2. السلام عليكم 🙂 مجموعة ملاحظات لوسمحتوا 🙂 ورجاء فكروا ان الجدول به 20 الف سجل فما فوق 🙂 1. لسرعة عمل الاستعلام ، فيجب ان يكون الحقل الذي به معيار ، مفهرس ، وإلا فالاستعلام سيكون بطيء ، وحقل المحسوب لا يمكن عمل فهرسه له ، 2. بالنسبة الى طريقة عمل تنسيق التاريخ ، والتي يجب ان لا تتغير بتغير اعدادات كمبيوتر العميل ، هذه الطريقة مضمونه بأنها تعمل على جميع الاعدادات: . 3. الامر DCount بطيء بطبيعته ، لذلك يمكنك ان تعمل استعلام آخر للـ Table2 Query ، يكون استعلام مجاميع ، ينفذ المطلوب بدل امر Dcount ، ثم تربط هذا الاستعلام بالاستعلام الذي انت فيه ، وتأذخذ القيمة المطلوبة من استعلام المجاميع (نعم تصير ، وخذ وقتك ، فأحد اصدقائي ارسل لي برنامجه اللي فيه حوالي 100 الف سجل ، والاستعلام كان يحتاج وقت تناول وجبة العشاء !! ، وعملت التعديل اللي اخبرتك ، واصبح الوقت جدا قليل 🙂 ) 4. الامر DCount بطيء بطبيعته ، اذا كلً ولابد ، فيمكنك جعله اسرع هكذا : بدل =DCount("[ID]";"[Table2 Query]";"[Date2]=#" & Format([Date2],"yyyy/mm/dd") & "#") استعمل =DCount("*";"[Table2 Query]";"[Date2]=#" & Format([Date2],"yyyy/mm/dd") & "#") جعفر
    2 points
  3. تحية طيبة عطرة تم إضافة وتغيير بعض المعادلات في الملف أرجو أن تفي الغرض المطلوب... بالنسبة لإحصائيات الأسابيع فقد قسمت أسابيع الشهر بالشكل التالي: الأول من 01 إلى 07، الثاني من 08 إلى 14، الثالث من 15 إلى 21 والرابع من 22 إلى آخر يوم في الشهر... بن علية حاجي كرت دوام 16-6-2019.xls
    2 points
  4. هذه المشكله بسبب اعدادات اللغه. قم باعداد اللغه من لوحة التحكم / المنطقه واللغه
    2 points
  5. السلام عليكم ورحمة الله جرب المرفق... مطلوب (1).xlsx
    2 points
  6. عزيزي مسفر.. نعم اتفق معك.. ولا يزال لدي حلول أخرى! لكني أريد أن أصل إلى حل مقنع بالطرق التقليدية.. أما بالنسبة للمؤقت فلا مفر من استخدامه؛ سواء كان ذلك: مؤقت النموذج أو موقت Win32API ، أو كان مؤقت يصنعه المبرمج. إذ العملية برمتها تعتمد عليه! وفي نظري مؤقت النموذج أنسب الحلول للمبرمجين المتوسطين,, ولا أفكر أبدا في تطوير فئات برمجية لمعالجة مثل هذه الأمور!
    2 points
  7. السلام عليكم اخواني الكرام قمت بتصميم هذا البرنامج لتصميم وطباعة الباركود فاعطوني رأيكم دام فضلكم اضف الخطوط الموجودة في المرفق الى مجلد الخطوط وشغل البرنامج 1- يمكنك تصميم اللصاقة المناسبة من التقرير 2- يمكن طباعة عدد محدد من اللصاقات ومن اي لصاقة يبدأ الطباعة 3- يمكن اختيار اتجاه الطباعة افقي او عمودي 4- يمكنك تحديد هوامش ورقة a4 حتى تتناسب مع اللصاقة المطلوبة تحياتي للجميع من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً , باركود.rar
    1 point
  8. Mr-ragab اليوزر نيم الباسورد 25 بعد حفظ الخطاب اضغط تحديث البيانات لفتح الخطاب فى عملية البحث program.xlsm
    1 point
  9. جرب هذا الملف أعتقد أنه قد يفي بالغرض فيه أزرار للفرز حسب النوع وحسب الأكبر سنًا وحسب الأصغر سنًا حساب السن.xls
    1 point
  10. مالك حل ابد بالطريقة هذه البيانات كثيرة بالاضافة لا تنسى طول ما بداخل مربعات النص إذا كان عميلك هذا يريد كل القضايا في تقرير واحد اقول غير ممكن بهذا الكم الهائل من مربعات النصوص بالاضافة إلى طول المعلومات المدخلة فحاول إقناعه بان تكون كل قضية مستقلة في تقرير خاص فيها
    1 point
  11. وعليكم السلام 🙂 طريقتين يجون في بالي: 1. بدل ان يكون السجل سطر واحد ، اعمله سطرين ، بحيت يكون حقلين او حتى 3 حقول فوق بعضها ، ونجاح هذه الفكرة يعتمد على ترتيب الحقول بطريقة منطقية ، وبتنسيق الجميل 🙂 2. نفس الرقم 1 ، ولكن ، تجعل الحقول الصغيرة فوق بعضعها ، وتمدد الحقول الاطول بحيث يأخذ مكان حقلين بالطول ، 3. تصدر البيانات الى الاكسل ، وتعمل لها تضبيط لطباعتها في صفحة واحجة ، وذنبه على جنبه ، فهو وحظه كم يصير حجم الخط !! نعم قلت طريقتين ، لأن الطريقة الثالثه بس هيك 🙂 جعفر
    1 point
  12. يا استاذ محمد هل الاستعلامات تشتغل بالخلفية يعني الحاق مثلا أو تحديث ؟
    1 point
  13. بارك الله فيك وجزاك الله كل خير ولكن الملف لا يفتح ويظهر كما بالصورة
    1 point
  14. السلام عليكم ورحمة الله مع دمج لعدة دوال تم عمل المطلوب في الملف المرفق بمعادلات صفيف.... أرجو أن تفي الغرض... بن علية حاجي تحصيل2.xlsx
    1 point
  15. وعليكم السلام 🙂 في الوقت اللي نقول فيه ان الاكسس ممكن يعمل كل شيء (تقريبا) ، يجينا مثل هذا السؤال ، ونقف محتارين في الجواب !! الكلام عن انواع معينه من المرفقات فقط ، مثل (PDF او Word او صورة او Excel او .. ) المشكلة: لما تطبع اي شيء ، فالامر بين امر الطباعة و الطابعة ، يعني الاكسس يعطي الامر فقط ، الحل: 1. اما ان نضع الملف في تقرير في الاكسس ، ومنه نقدر ان نضع حقل نص فوقه ، فيه البيانات المطلوبة ، وهذا ممكن مع بعض الصيغ اعلاه: الصور وملفات PDF يمكن عرضها مباشرة في الاكسس ، وهذه طريقة : . ملفات الورد ، فقد ابدع اخونا @ابوخليل بعرض مجموعة امثلة هنا ، وفي اعتقادي بأن الاكسل ممكن فتحة باحد هذه الطرق كذلك . 2. ان ندرج هذا الملف في ملف HTML (برمجيا من الاكسس) ، وفي هذا الملف ممكن ان نضيف اي معلومة اضافية ، والبارع في هذا المجال هو اخونا @أبو إبراهيم الغامدي وطبعا اخونا @رمهان 🙂 3. ان نحصل على برنامج يطبع الى طابعة PDF افتراضية (virtual printer) ، وتكون هذه الميزة موجودة فيه ، وطبعا لازم ان هذه الطابعة يمكن التحكم فيها عن طريق Commandline ، 4. هناك شيء اسمه Water mark ، وعادة موجود في جميع الطابعات ، ولابد ان هناك طابعات تمكنك من تغيير الكلمه الى الكلمة التي تريدها ، ولكن قد لا تستطيع تغيير هذه الكلمة برمجيا ، وتظل ثابته . واكيد اكون ناسي طرق اخرى جعفر
    1 point
  16. 1 point
  17. التواصل مع الأعضاء يكون عبر المنتدى (إضافة مواضيع) أو عبر الرسائل الخاصة (غير متاح إلا بعد فترة من الانضمام للمنتدى) أو عبر (الإيميلات - عناوين التواصل الاجتماعي - الهواتف...) إن وُجدت في بيانات العضو... والله أعلم
    1 point
  18. بخصوص تشغيل قواعد البيانات التي تم تصميمها على اوفيس 2007 فهي تعمل على جميع الإصدارات الأعلى بدون مشاكل سواء على 2010 او 2013 او 2016 او 2019 او 365 المشكلة تكمن في اصدار الاوفيس ان كان قد تم تصميمها (لقاعدة البيانات) على اصدار 32 بت وتريد تشغيلها على اصدار 64 بت هنا تحتاج الى إعادة برمجة وضبط للوحدات النمطية الموجودة فيها كي تعمل بشكل سليم === بعد كل هذا اطرح مشكلتك لنرى هل هي برمجية ام بسبب الاصدار :: تحياتي
    1 point
  19. كان الخطأ في معادلات العمود D (الملون بالأخضر) حيث تم فيه حساب عدد الطلاب "الأكبر من 50" وليس "الأقل من 50" وقد تم تصحيح الخلل باستبدال الشرط ">50" بـ "<50"... New_Microsoft_Excel_Worksheet.xlsx
    1 point
  20. تفضل New_Microsoft_Excel_Worksheet.xlsx
    1 point
  21. مر علي هذا يا بو جودي وتم تطبيقه بس له دخل بالذاكرة والله اعلم
    1 point
  22. وانا بابحث عن موضوع شريط التقدم وجدت هذا الموضوع https://christopherjmcclellan.wordpress.com/2014/03/08/progress-bar-for-ms-access/ ProgressBar.accdb
    1 point
  23. الحمد لله ,, على فضله ,, وشكرا لدعواتك
    1 point
  24. يا أبو ابراهيم الأخ محمد لطفي لا يريد أن يكون هنالك حدث عند عداد الوقت يريد كود يكون بعيدا عن التايمر يعني لا تستخدم التايمر في البرنامج هذا ما فهمته في آخر كلامه يريد أن يبتعد الكود عن ( عند عداد الوقت ) ولا تضع قيمة عند الفاصل الزمني لعداد الوقت
    1 point
  25. لا عليك.. لا يزال هناك حلول! جرب هذا: progressbar.mdb
    1 point
  26. اللي انا ارسلتلك يبتعد عن عداد التايمر شوف التصميم عند عداد الوقت فيه رقم أو لا فقط عن طريق الكود
    1 point
  27. جرب هذا والله المستعان تستطيع تزود الوقت أو تنقص الوقت من خلال الكود شريط تحميل.accdb
    1 point
  28. وعليكم السلام تفضل اربع انواع من الاشرطة فقط تحكم بالافاصل الزمني لأي وقت تشاء اذا كانت لديك نموذج كلمة مرور ونموذج الواجهة للبرنامج اجعل نموذج الموشر وسطي بين النموذجين وتحكم بالفاصل الزمني مؤشر تحميل.rar
    1 point
×
×
  • اضف...

Important Information