jjafferr

وعليكم السلام 🙂 حسب نتيجة بحثي الآن ، ممكن واحد من هذه الاسباب ، وطبعا يجب ان تكون في وضع التصميم : اذا لما تنقر على زر الخصائص ، يتحول لونه الى برتقالي (او ممكن عن طريق لوحة المفاتيح Alt + Enter) ، فممكن المشكلة (اترك الزر ولونه برتقالي) : 1. نافذة الخصائص ممكن تكون على يمين او يسار الشاشة ، فيجب تغيير دقة الشاشة وتكبيرها ، ثم ستراها ، فقم بسحبها الى منتصف الشاشة وقم بتصغيرها للحجم المناسب ، 2. اذا لم تراها ، فقد يكون حجمها صغير جدا ، لذا انقر على زر الخصائص عدة مرات وحاول ان ترى اي نقطة في الشاشة ، وتستطيع تكبيرها. 3. اضغط على Alt Space S واستعمل الاسهم لتكبير وتوسيع العرض والارتفاع (لا تخاف في ان تعمل العرض كبير ، بعدين تقدر تضبطه) وتحريك الفأرة الى منتصف الشاشة واضغط على الزر Enter. اما اذا نقرت على زر الخصائص ولم يتحول لونها برتقالي ، او لم يستجيب الزر ، فقد يكون هناك كود يقوم بتوقيف القوائم ، فاعمل التالي حتى تظهرها: افتح نافذة الكود بالمفاتيح Ctrl + G وفي اسفل النافذة ، في نافذة immediate window . اكتب التالي ، ثم اضغط على زر Enter في لوحة المفاتيح (اكتب اول سطر ثم اضغط Enter ، ثم احذف الموجود واكتب السطر التالي واضغط Enter ، ثم احذف الموجود واكتب السطر التالي واضغط Enter) فالمفروض ان تظهر نافذة الخصائص في اعلى يسار الشاشة : CommandBars("Property Sheet").Enabled = True CommandBars("Property Sheet").Top = 0 CommandBars("Property Sheet").Left = 0 . واذا كذلك لم تظهر نافذة الخصائص ، اكتب التالي في immediate window CommandBars("Property Sheet").Position =msoBarTop ثم اضغط على زر Enter في لوحة المفاتيح ، وستأتيك نافذة ، انقر على No (واذا لم يحدث شيء ، جربها مرة اخرى ، وهذه المرة انقر على Yes) جعفر

في احد برامجي ، انقر نقرتين على الصورة ، وهذا الكود خلف النقرتين : Private Sub Pic_DblClick(Cancel As Integer) 'use irfan view to copy the picture in clipboard dim A as string A = "C:\Program Files\IrfanView\" 'location of i_view32.exe file Shell (A & "i_view32.exe " & Me.Pic.Picture & "/ClipCopy /killmesoftly") MsgBox "تم عمل نسخة من هذه الصورة في الذاكرة ، يمكنك الصاقها في اي برنامج" & vbCrLf & _ "This image is copied in the clipboard, you can paste it in any program" End Sub . ثم الصق الصورة في اي برنامج ، مثل الوورد 🙂 لإستعمال الكود ، استخدم برنامج IrfanView المجاني من هنا: https://www.irfanview.com/ وضبط المسار ، والنسخة سواء 64 او 32 بت ، واسم حقل الصورة هو Pic ، فيقوم الكود بحفظ الصورة في الذاكرة ، وبدون اي واجهة 🙂 جعفر

لا يحتوي على فايروس ، وانما بسبب موقع التحميل ، فيعطيك الكمبيوتر رسالة تحذيرية 🙂 جعفر

تفضل Me.Parent!finfo.SetFocus DoCmd.GoToRecord , , acNewRec Me.Parent!finfo!namebook.setfocus جعفر

يعني قصدك تريد عمل سجل جديد ؟ ويكون التركيز على حقل اسم الكتاب ؟ جعفر

وعليكم السلام 🙂 الظاهر هذا الكود اصلا كان لبحث اسم الكتاب ، وهذا معناه ان البيانات لا تتغير ، وانما البحث سيكون لعدة مرات ، فبدل ان ان اجعل الكود في كل مرة يأخذ RecordSet النموذج ويجعله في الذاكرة (طبعا يأخذ وقت، صحيح جدا بسيط ، ولكنه ملحوظ) ، فجعلته يأخذ RecordSet النموذج مرة واحدة فقط ، ويستخدمه مرارا : المفروض يكون Set rst_fy = Forms!freadermain!finfo.Form.RecordsetClone بينما انا جعلته هكذا 'take the Recordset one time, use it many times If rst_n = 0 Then Set rst_fy = Forms!freadermain!finfo.Form.RecordsetClone rst_n = 1 End If وتصريح المتغيرات في اعلى الوحدة النمطية ، حتى تبقى قيمها في الذاكرة ، الى ان نحذفها نحن Dim rst_fy as dao.Recordset Dim rst_n As Integer . هذا مو شغل الكود ، وانما شغل جني او عفريت 😁 اما الكود ، كيف ينقل التركيز على اسم الكتاب ، وانت قلت انه غير موجود 😲 جعفر

وعليكم السلام اخي عبدالله 🙂 هذين المرفقين سيساعدوك ان شاء الله . . جعفر

السلام عليكم 🙂 تم حذف "موضوع مهم جدا جدا" من اسم الموضوع 🙂 رجاء الالتزام بقوانين المنتدى 🙂 جعفر

هذا كأنه خط يدي 🙂 اللي اعتقده مفروض يصير: Option Compare Database Option Explicit Dim rst_fy As DAO.Recordset Dim rst_n As Integer ' Private Sub namebook_Click() 'take the Recordset one time, use it many times If rst_n = 0 Then Set rst_fy = Forms!freadermain!finfo.Form.RecordsetClone rst_n = 1 End If 'j rst_fy.OpenRecordset rst_fy.FindFirst "namebook='" & Me.namebook & "'" If rst_fy.NoMatch Then rst_fy.AddNew rst_fy!namebook = Me.namebook rst_fy!Serialnamebook = Me.Serialnamebook 'j Me.Parent!finfo.SetFocus 'j DoCmd.GoToRecord , , acNewRec '''''!!!!!! ??? 'j Me.Parent!finfo!namebook = Me.namebook ''''''!!!!!! ??? 'j Me.Parent!finfo!Serialnamebook = Me.Serialnamebook ''''''!!!!!! ??? 'j DoCmd.GoToRecord , , acNewRec ''''''!!!!!! ??? rst_fy.Update Else 'j Me.Parent!finfo.Form.Bookmark = rst_fy.Bookmark Me.Parent!finfo.SetFocus Me.Parent!finfo.Form.Bookmark = rst_fy.Bookmark + 1 'j Me.Parent!finfo!numberreadbook = Me.Parent!finfo!numberreadbook + 1 ''''''!!!!!! ??? End If rst_fy.Close End Sub جعفر

هذا هو البرنامج كاملا ، ولكن يقول لك اذا اردت ان تشتريه (للعمل مثلا) . ومعظم برامج الاصلاح ، تعديد الجداول فقط وبعض الاستعلامات فقط ، لهذا السبب اخبرتك مسبقا : جعفر

لا اشكال في استعمال المعادلات الحسابية 🙂 جعفر

العفو ، لا ليس تحدي 🙂 وانما الدكتور حلبي كان سيضع برنامجه ، وانا شجعت الجميع في العمل على برنامجه ، بس الدكتور انهى موضوعه بنفسه ، فخلاص ، مافي عزومة 🙂 جعفر

نعم دكتور جسنين ، كلامك صحيح ، ولكن لم يكن هدفي المقارنة بين سرعة استعلامات كمبيوترات مختلفة ، ولكن بمقارنة سرعة الاستعلامات في نفس الكمبيوتر 🙂 اعتقد بعض الناس ☝🙄 بيكونوا مشغولين كم يوم في تحديث برنامجهم بالطريقة اعلاه 😁 دكتور حلبي ، الحمدلله انك اقتنعت بالدليل والبرهان 🙂 ولكن نطلب منك ان تشرح لنا طريقتك ، حتى يستفيد الجميع لو سمحت 🙂 جعفر

نعم هنا مناسب ، فسيكون مثال آخر على للموضوع 🙂 ولكن رجاء تتأكد ان لا يحتوي المرفق على بيانات خاصة 🙂 وطبعا المجال مفتوح للجميع للمشاركة بتجاربهم ، والبرنامج الاسرع يكون الافضل 🙂 جعفر

اخي زياد 🙂 هذا البرنامج مقفل ، وكذلك الكود مقفل ، مما يعني ان صاحبه اقفله لأسباب معينة ، وقوانين المنتدى : 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية جعفر

وعليكم السلام 🙂 قوانين المنتدى تقول سؤال واحد لكل موضوع 🙂 فلهذا السبب سأرد على سؤال البحث : . رجاء فتح موضوع جديد لكل سؤال 🙂 جعفر

وعليكم السلام 🙂 اذا عندكم كم كبير من البيانات اللي تريد تستعملها في معيار ، فالافضل ان تعمل لهم جدول خاص ، مثل : . ثم في الاستعلام ، في المعيار ، نقول له اننا ما نريد اي من البيانات اعلاه تظهر في المعيار (Not In) : . وبعدين نقول له ، كذلك في الحقل Grde ، اذا من اليسار (اول الكلمة) ، اول 17 حرف = "ممارس متخصص مساعد" ، اذن هاي كذلك لا تظهرهم 🙂 جعفر 1476.Database28.accdb.zip

وعليكم السلام 🙂 بدل ان يكونوا في قسم رأس التقرير ، اجعلهم في قسم رأس الصفحة 🙂 جعفر

وعليكم السلام 🙂 جرب هذا البرنامج : واذا مافي نتيجة ، فمعناه ان برنامجك معطوب ، وعلى الاقل تستطيع استرجاع الجداول باستخدام هذا البرنامج جعفر

لهذا السبب لم اطلب منك تجربته ، فهذا الاستعلام الاصل الذي طُلب مني النظر في سرعته 🙂 وفي الواقع يُفتح الاستعلام ، ولكن يحتاج الى وقت طويل 😁 هناك طريقتين ، وانا اعطيتك الطريقة الاسهل ، لأنك تقدر تشوفها وتعدل فيها ، الطريقة الثانية مثل ما قال اخوي حسنين @SEMO.Pa3x باستعمال الاستعلام الفرعي ، وهو استعلام بهيئة SQL ، فليس من السهل عمله وتعديله !! اسألك سؤال: هل الافضل ان تستعمل الاستعلام dsum_eqaza كما هو (لاحظ ان البرنامج المرفق هو نسخة مصغرة من البرنامج الاصل ، والذي عدد سجلاته حوالي مليون سجل) ، وتنتظر 28 دقيقة ليفتح ، او تعمل 10 استعلامات وتجعل الاستعلام يشتغل بوقت اسرع بكثير ؟ وللعلم ، هناك مبرمجين وظيفتهم تسريع الاستعلامات 🙂 ما ادري ، لازم اشوفه !! ولكن وكما رأيت في المثال اعلاه ، فككنا كل استعلام DSum باستعلام واحد خاص به ، ثم ربطناهم باستعلام يجمعهم جميعا. انا شايف ان هناك مبرمجين لا يريدون الكود الطويل ، ولا يريدون استعلامات كثيرة ، بينما الطريقة الصحيحة في البرمجة هي ان تعمل الافضل لبرنامجك ، والبرنامج يقوم بالباقي 🙂 معلوماتي كانت قديمة في هذا المجال ، فأخذت الوقت لأقرأ مرة اخرى ، واليك الملخص: 1. اذا واجهة الاكسس والجداول على نفس الكمبيوتر ، 2. واذا عملت على SQL Server من نفس السيرفر ، سيكون الاكسس اسرع ، وبوقت ملحوظ ، طبعا نتكلم عن بضع عشرات/مئات آلاف السجلات 🙂 اما اذا: 3. الجداول على الشبكة ، وواجهة الاكسس على كمبيوتر في الشبكة ، 4. برنامج SQL Server على السيرفر ، والمستخدم على كمبيوتر في الشبكة ، فسيكون SQL Server اسرع 🙂 وبغض النظر عن مكان تواجد الواجهة والجداول ، فاذا كلامنا عن ملايين السجلات ، فهذا تخصص SQL Server ، ومع ان الاكسس يستطيع التعامل معه اذا كان الاكسس 64بت وكمية الذاكرة المؤقتة RAM على الاقل 4 جيجا (طبعا يُفضل ان يكون اكثر). هناك اعتقاد خاطئ ، بأنه اذا استعملت SQL Server بدل عن جداول الاكسس ، فسيكون البرنامج اسرع ، لأنه حتى تستطيع الحصول على افضل سرعة في SQL Server فيجب ان يكون في جداولك اعدادات معينة مثل المفتاح الاساس Primary key (وهو غير عن الفهرسة) ويحتوي على حقل تاريخ ووقت عمل السجل (بالثواني) ، وللاستعلام تستعمل Stored Procedure . جعفر

رجاء لا تستخدم الكود في حساب الوقت ، وانما افتح الاستعلام يدويا ، 3 مرات لوسمحت 🙂 جعفر

السلام عليكم 🙂 عندي مداخلة في التنسيق فقط 🙂 بما ان شجرة حساباتك بالعربي ، ايش رايك نخليها من اليمين الى اليسار ، هكذا : . وهذه هي الطريقة : . جعفر Database3 (1).zip

بالفعل ، النتائج غير دقيقة حسب تجاربي 🙂 ورجاء ، كل استعلام جربه 3 مرات 🙂 جعفر

فما هو وقت تنفيذ الاستعلام على كمبيوترك ؟

اخي طارق 🙂 ما شاء الله عليك ، فعداد مشاركاتك يقول بانك اكملت 830 مشاركة ، ومعناها انك ادرى بطريقة عمل المنتدى 🙂 موضوعك السابق كان بعنوان : مساعدة في خطأ بالقاعدة بينما قوانين المنتدى تقول: 3. ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. وقد سبق تنبيهك وقفل احد/بعض مواضيعك سابقا !! وللعلم ، فإننا نغض الطرف عن الكثير من القوانين ، وخصوصا للمبتدئين 🙂 1. لو قرأت اسم الموضوع مرة اخرى بعد اغلاقه ، لوجدت ان اخونا ابوخليل وضح الامر: مساعدة في خطأ بالقاعدة _ ( العنوان مخالف) 2. من تجاربي ، معظم المواضيع التي لا يكون فيها رد ، معناه ، إما الموضوع صعب ، وإما ان الشرح مافيه تفصيل وامثلة ، فأنا مثلا ، اذا وجدت ان السؤال غير واضح ، اذهب الى موضوع آخر ، لكي استفيد من وقتي ، وللأسف ارى بعض الاسئلة وكأن السائل يتمنن علينا بالمعلومة ، بينما يجب ان يساعدنا بالتفاصيل ، حتى نساعده بالجواب 🙂 وخذها قاعده ، اذا لم يتم الرد على سؤالك خلال يومين ، ووجدت اكثر من 10 قراءات ، فيجب عليك اعادة عرض السؤال بطريقة مختلفه ، وبشرح افضل وبمثال 🙂 جعفر