jjafferr

أخوي محمد انت تعرف ان اسالتك غريبة فياريت تعطينا مثال واضح نقتدي به جعفر

السلام عليكم أخي حسين الظاهر انك صاحب تجربة في هذا الموضوع اخي محمد الان اصبح عندك طريقتين ، فاختر ما شئت جعفر

السلام عليكم ادخل البيانات وجرب نتيجة النموذج لوسمحت هذه تجربة اولى حتى نتوصل للمطلوب ان شاء الله بالنسبة الى sex&state ، اين سنجد هذه المعلومة في النموذج؟ جعفر 400.Parameter.mdb.zip

طبعا ، فهي مجموع جميع الكميات ، اليس هذا سؤالك؟ جعفر

تفضل جعفر

تفضل الجدول: الاستعلام ، ونتيجته: . والان إضافة حقل مادة المستوى . الان اصبح الترتيب صحيحا ، ولكننا نريد العشرة الاوائل فقط: . والنتيجة: جعفر 406.First_Ten.mdb.zip

الموضوع مخالف قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

السلام عليكم أخي صالح جربت الطريقة وما نفعت ، رسالة الخطأ لازلت تظهر حياك الله أخي الشاعر جعفر

السلام عليكم في النموذج ، وللإنتقال من حقل الى آخر عند الضغط على الزر TAB او Enter ، فهذا يعتمد على رقم Tab index الحقل (انظر الى الصورة): فعند فتح النموذج ، فإن مؤشر الادخال يكون على الحقل الذي رقمه 0 صفر والذي يكون Tab Stop نعم ، وعند الضغط على الزر Tab او Enter ، فانه ينتقل الى الحقل المسلسل التالي ، لذلك ، تأكد ان حقل ادخال الباركود لا يحمل آخر رقم في النموذج ، والذي ينتج عنه الانتقال الى سجل جديد ، وكذلك ، اذا لم ترد ان تنتقل الى سجل جديد ، فغير اعدادات النموذج الى Current Record: يعني ، لا تغير اعدادات الاكسس وتلخبط عمل جميع برامج الاكسس ، وانما غيّر اعدادات النموذج وحقوله جعفر

وعليكم السلام تفضل: Private sub .... on error goto err_No_2001 ..... ..... Exit_N0_2001: exit sub err_No_2001: if err.number=2001 then Resume Exit_N0_2001 else msgbox err.number & vbcrlf & err.description endif end sub جعفر

حياالله اخوي رمهان 1. وين هاي الاختيار ، رجاء عمل صورة منه وارفاقها ، 2. هذا الخيار (إن وُجد) ، فانه سيكون لجميع حقول قاعدة البيانات وليس لحقل معين فقط ، وهل سيكون للإستعلام والجدول كذلك؟؟ جعفر

بالنسبة الى النموذج ، فيمكنك اتباع طريقة الاخ mostafa_fathy2004 اما بالنسبة للاستعلام و الجدول ، فيمكنك الضغط على زر Shift والضغط على Enter للإنتقال الى السطر التالي ولكن ، لماذا الإدخال في الاستعلام او الجدول !! ادخال البيانات في النموذج هي الطريقة الافضل ، والحل متوفر جعفر

وعليكم السلام وحياك الله جعفر

أختي الفاضلة عنوان موضوعك " ضروري جدا وعاجل " مخالف لقوانين المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف 1. لقد غيّرت عنوان الموضوع ، فرجاء الانتباه في المرات القادمة 2. الصورة التالية من اكسس 2010 ، بالنقر على الفأرة اليمين ، وبه تصدير بيانات الجدول الى اكسل: 3. الصورة التالية من اكسس 2010 ايضا ، بالنقر على الفأرة اليمين ، وبه تصدير التقرير الى اكسل ، بالاضافة الى وجود الايقونه في شريط المهام: ولكن هناك مشكلة في تصدير التقرير الى اكسل ، فانه لا يتم تصديره بنفس الشكل الموجود في الاكسس جعفر

أعطني مثال لوسمحت ، فشرحك يحتاج إلى شرح آخر جعفر

السلام عليكم اخي محمد لوسمحت تشرح المادة رقم 4 لأنها غير واضحة. جعفر

وعليكم السلام لو ترفق برنامجك ، لكان الحل اسهل لنا ولك وياريت من واقع برنامجك تعطينا الحل النهائي ، علشان نعمل عملية مقارنه بين نتائجنا ونتيجتك المطلوبة جعفر

كلمات شكر افتخر بها من اخ عزيز في الواقع اخذت راحتي في البرنامج ، وجعلته ارضية جاهزة لأشياء اخرى نستطيع ان نقوم بها لبرامج اخرى "عند بُعد" وجعلته بصيغة mdb لتعم الفائدة ، والمكتبات جعلتها تعمل على الاكسس 32بت و 64بت وعند الانتهاء من البرنامج ، خطر في بالي ان الزر رقم 8 يجب ان نتوسع به: نغير مسمى الزر الى "تجربة" ، نجعله يأخذ نسخة من قاعدة البيانات المطلوب العمل عليها ، نجعل الكود يتم العمل بالكامل على النسخة الاحتياط ، ثم يعطي تقرير عن قيم الحقول المختلفة قبل وبعد تغيير نوع البيانات فقط للجداول اللي فيها مشاكل في تحويل البيانات. واللي يريد يضيف ويعدل ، اهلا وسهلا به حياك الله اخوي أبوعبدالله ، ياللي مدلعني جعفر

وعليكم السلام الظاهر ان هذه مشكلة موجودة في الاكسس 2016 ، حسب كلام الموقع http://blog.fmsinc.com/microsoft-access-2016-and-invisible-picture-images/ وقد اصدرت مايكروسوفت تصحيح لهذه المشكلة ، ويمكنك انزاله من هنا (حسب نوع الاكسس اللي عندك 32بت او 64بت): https://support.microsoft.com/en-us/kb/3114379 جعفر

حياالله أخوي رمهان

السلام عليكم هذه طريقة تغيير نوع البيانات في الجدول/الجداول ، لحقل بنفس الاسم في جميع الجداول ، ولكن بإستعمال برنامج خارجي نفترض اننا نريد ان نغير في قاعدة البيانات التالية: والان الى برنامجنا: 1. اختار قاعدة البيانات المطلوبة ، 2. ستظهر لك قائمة اسماء الجداول في قاعدة البيانات المختارة (لاحظ ان الجدول المرتبط لا يظهر لنا) ، 3. يمكن تصفية اسماء الجداول عن طريق كتابة الاحرف الاولى منه ، تسهيلا لعملية اختيار الجداول ، 4. عند النقر على اسم الجدول ، تظهر لنا اسماء الحقول فيه ، 5. وعند النقر على اسم الحقل ، يظهر لنا نوع بيانات الحقل ، 6. وهنا نختار نوع البيانات الذي نريد تحويل الحقل اليه ، 7. هنا 3 طرق لإختيار الجداول والتي نريد تغيير نوع بيانات حقل معين فيها: التصفية باختيار اول حرف/حروف الجدول/الجداول ، من الحقل رقم 3 ، يمكن اختيار جدول مباشرة من الحقل 2 ، ثم الضغط على زر الكيبورد Ctrl ، والنقر على بقية الجداول ، استخدام الحقل 7 ، حيث يختار جميع الجداول او لا يختارها (ونستطيع استعماله مع تصفية الحقل 3 ، 8. هذا الزر يقوم بنصف العمل ، بتكوين حقل مؤقت في جميع الجداول المختارة بنوع البيانات المطلوبة ، ونسخ البيانات اليه ، ولا يحذف الحقل الاصل من الجدول (وقد عملت هذا بناء على ملاحظة أخي ابوخليل ، حيث ان بيانات الحقل قد لا تكون مطابقة ، فبدل ان تُحذف هذه البيانات ، يمكن مقارنتها بعد هذه العملية) ، 9. يقوم بتغيير نوع البيانات في جميع الجداول المختارة (وهو ما يقوم به برنامج أخي ابوخليل ، وبدون هذه الزركشة والزخرفة ) جعفر 403.Change_DataType.mdb.zip

شكرا على الكلمات الجميلة ، وحياك الله اخي مصطفى جعفر

تمام بس اذا صادفك خطأ آخر ، فلن تعرف المشكلة وحلها (تذكر ، عندما كان عندنا الامر on error resume next ، لم نعرف لما لا ننتقل الى السجل الاول ، وعرفناه فقط لما ازلنا الامر ، وقرأنا نوع الخطأ) ، فاستعمل كودك كالتالي ، لتصطاد جميع انواع الاخطاء : Exit_ÃãÑ8_Click: Exit Sub Err_ÃãÑ8_Click: if err.number=2105 then DoCmd.GoToRecord , , acFirst Resume Exit_ÃãÑ8_Click else msgbox err.number & vbcrlf & err.description endif جعفر

Private sub .... on error goto err_GotoFirst Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst rc = rst.RecordCount DoCmd.GoToRecord , , acFirst For i = 1 To rc DoCmd.PrintOut acSelection DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acFirst exit sub err_GotoFirst: if err.number=2105 then docmd.gotorecord,,acfirst exit sub else msgbox err.number & vbcrlf & err.description endif end sub جرب هذا الكود جعفر

حياك الله السطر الاخير الذي ذكرته انت في الكود ، المفروض ان يرجعنا الى السجل الاول !! جرب وضع السطر الاخير مرتين بدل مرة واحدة!! هل هذا كل الكود ؟ هل استعملت on error resume next ؟ اذا استعملته ، رجاء تزيله ، وتجرب الكود ، وشوف شو الخطأ اللي يعطيك ، مع رقم الخطأ ، وعلى اي سطر . جعفر