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

jjafferr

أوفيسنا
  • Posts

    9,752
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    396

كل منشورات العضو jjafferr

  1. اما انا ، فاحتفظ باستعلاماتي الاولية ، لأنه اذا استعلام التوحيد اعطى نتائج نريد التاكد منها ، فارجع الى استعلاماتي الاساسية ، ومنها تكون الصورة واضحة 🙂 جعفر
  2. السلام عليكم 🙂 المتعارف عليه ، استخدام استعلام التوحيد هكذا: . ولما يكونوا استعلامين ، وبنفس الحقول ، يكونوا هكذا : . ولما نجمعهم بنسخ جملة SQL للاستعلامين ، في استعلام توحيد ، نجد ان الاستعلام كما هو موضح في qry_123_456 ، والذي هو نسخ لجملة SQL الاستعلامين اعلاه ، وعليه ، فنحن لسنا بحاجة الى الاستعلامين qry_123 و qry_456 ، ويمكن حذفهما : . ولكن وبسبب ان كِلا الاستعلامين يحتوي على نفس عدد الحقول ، وبنفس الترتيب ، فيمكن اختصار استعلام التوحيد الى التالي ، وحينها لا تستطيع حذف الاستعلامين qry_123 و qry_456 . ونتائج استعلامي التوحيد في الاعلى: . جعفر 1603.Union_Query.accdb
  3. @Foksh شكرا على التنبيه 🙂 على اي سطر تحصل على هذا الخطأ ؟
  4. كبير يا عبداللطيف كبير ، وعلى راسي 🙂 سهله ، وخليني اعلمك كيف تصيد الخطأ 🙂 . Private Sub Form_Error(DataErr As Integer, Response As Integer) 'MsgBox DataErr If DataErr = 3022 Then Response = acDataErrContinue MsgBox "هذا الاسم موجود سابقا" End If End Sub 1602.Data_Exists.accdb
  5. وعليكم السلام 🙂 مثل ما يقول المثل: اشلك بالبحر وأهواله و رزق اللَّه على السيف 🙂 وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂 جعفر
  6. وعليكم السلام اخوب محمد واهلا وسهلا بك في المنتدى ، وللاستفادة القصوى من المنتدى ، برجى قراءة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف اما الرد على طلبك ، فهل هناك طريقة لتمييز السجل عن الآخر الذي به طريقة البيانات التي تريدها؟ بمعنى: هل هناك تسلسل معين في السجلات ، وانت دائما تريد السجل الاول والرابع ، وهل الفرز دائما يكون كما اوضحت في الصورة؟ وفي مثل طلبك ، ياريت ترفق بيانات من قاعدة بياناتك ، حتى تكون الصورة واضحة 100% وحينها لن يقصروا الشباب في الرد ان شاء الله 🙂 جعفر
  7. وعليكم السلام مع ان الاكسس ياخذ التنسيق من الاعدادات الاقليمية للوندوز (مثل dd-mm-yyyy) ، الا انه داخلياً وكجزء من برمجته ، فهو يتعامل مع التاريخ بالطريقة الامريكية: mm-dd-yyyy ، ومن تجاربنا لا ننصح باستخدام CDate ونترك للاكسس اختيار اليوم من الشهر حسب الارقام 1-12 (حيث انه تمثل اليوم والشهر) ، فالطريقة الصحيحة هي استعمال الامر DateSerial حيث فيها تحدد السنه والشهر واليوم ، فلا يكون هناك مجال للاكسس ان يختار بين اليوم والشهر. واذا كان التاريخ عندك عبارة عن نص ، فيجب ان تستعمل كود يشبه التالي : استخراج تاريخ الميلاد من الرقم القومي =DateSerial(Mid([raqm_qomy];2;2);Mid([raqm_qomy];4;2);Mid([raqm_qomy];6;2)) انظر هنا لمناقشة شيقة عن التاريخ جعفر
  8. وعليكم السلام 🙂 عمل خفيف وجميل ، شكرا جزيلا 🙂 جعفر
  9. هناك كود لإسترجاعها، ولكن الاسهل استعمال البرامج الجاهزة 🙂 جعفر
  10. الاكسس يحتفظ بالبيانات التي تم حذفها، الى ان يقوم المستخدم باستخدام "ضغط واصلاح" ، حينها يحذف الاكسس كل شيء ما عدا البيانات الموجودة ظاهرا امامنا، وكذلك بالنسبة الى كود VBA ، فانه يحتفظ ببعض الاكواد القديمة ، الى ان نعمل Decompile ثم Compile 🙂 جعفر
  11. وهنا بيت القصيد في المعادلة التي طرحتها ، فهي معادلة واحدة تفي للأحتمالين 🙂 جعفر
  12. شكرا على المعلومة 🙂 نعم ، ارفاق او عرض رابط انزال لبرامج مع الكراك مخالفة لقوانين المنتدى ، شطرا لك. واذا حب احد الاعضاء ان يحصل على النسخة منك ، فيمكنه التواصل معك على الخاص. ولكن (وهذه طريقتي) : اذا انا استفدت من البرنامج ، وساعدني/انقذني ، فيستاهم ان اشتريه 🙂 جعفر
  13. السلام عليكم ، شبابكم وشيابكم 🙂 اسمحوا لي ان ادلو بدلوي: بما ان الاكسس عبارة عن 3 برامج مدمجة في برنامج واحد: واجهة الاكسس وكائناته ، جداول الاكسس ، وبرمجة VBA ، فالنقاش اعلاه يخلط بينهم. وطريقة معرفة طول حرف بيانات الحقل: وبدلا عن استعمال مجموعة اوامر لمعرفة اذا الحقل به معلومة او Null او "" او Empty استعمل سطر واحد if len(me.txt & "")=0 then وهنا شرحت موضوع الـ NULL جعفر
  14. مع انك لم تعطي السؤال كاملا، ولكن ومن ملاحظتي للبيانات، الظاهر انك استعملت برنامج تجريبي لإسترجاع البيانات، فترك بصمته على بياناتك. جعفر
  15. اخي عبداللطيف، شكرا لك على دعمك ومساعدتك للآخرين 🙂 وطبعا التزامك بقوانين المنتدى 🙂 قوانين المنتدى لا تسمح بإرفاق: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
  16. وعليكم السلام 🙂 طريقة ننتظرها من زمان، شكرا جزيلا لك 🙂 جعفر
  17. اخي عبد اللطيف هل هذه النسخة مجانية وتعمل بدون تفعيل/كلمة سر ؟ جعفر
  18. السلام عليكم 🙂 عملت على مشروع لمؤسسة خيرية فيه العديد من المستخدمين ، والعمل هو عبارة عن طباعة نحو 1000 كوبون خلال ساعة واحدة لوجبة غذاء مجانية ، وحوالي 600 كوبون خلال ساعة اخرى ، والكوبون يحتوي على شعار المؤسسة، وشعار آخر يتغير شبه كل يوم. الطرق المتبعة لعرض الصور في التقرير هي: قراءة الصور من مجلد المشاركة، ولكن قراءتها لكل كوبون، يجعل الشبكة مزدحمة بمرور الصور فيه، مما يعمل بطئ في الشبكة، نسخ الصور من مجلد المشاركة الى مجلد محلي على كمبيوتر المستخدم عند تشغيل البرنامج، ومن ثم قراءة الصور من المجلد المحلي عند طباعة كل كوبون، اما الطريقة الاسرع من الطريقتين اعلاه هي: عرض الصور من مجلد المشاركة عند تشغيل البرنامج، في النموذج الرئيسي للبرنامج في حقل الصور، عرض الصور في التقرير، بقراءة كل صورة من النموذج الرئيسي، هكذا لصورة واحدة: في التقرير، على حدث "عند التنسيق" في قسم Details التفصيل نضع هذا الكود Forms!frm_Main!myPic هو اسم حقل الصورة في النموذج الرئيسي pic هو اسم حقل الصورة في التقرير Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Me.pic.PictureData = Forms!frm_Main!Mypic.PictureData End Sub جعفر
  19. حياك الله اخي الكريم ، وسُعدت بمشاركاتك 🙂 جعفر
  20. السلام عليكم 🙂 هذا الرابط به برنامج مجاني (للإستعمال الشخصي) لإصلاح ملف اكسس معطوب / تالف جعفر
  21. وعليكم السلام 🙂 مشاركة مع اخوي @Foksh 🙂 هذا كود تفريغ حقل البحث، اذا كان النقر على زر البحث: Me.Txt_Search = "" او Me.Txt_Search = Null او Me.Txt_Search = Empty ثم Me.Txt_Search.Setfocus . اما اذا لم يوجد زر بحث، وكان الكود يعمل البحث على حدث "بعد التحديث" لحقل البحث ، فيجب ان ننقل التركيز على اي كائن في الموذج يقبل التركيز، ثم نستعمل الكود اعلاه ، هكذا مثلا: دائما في نماذجي عندي زر لغلق النموذج اسمه cmd_close فعليه يصبح الكود: me.cmd_close.setfocus Me.Txt_Search = "" او Me.Txt_Search = Null او Me.Txt_Search = Empty ثم Me.Txt_Search.Setfocus . جعفر
×
×
  • اضف...

Important Information