jjafferr

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

كلمات شكر افتخر بها من اخ عزيز في الواقع اخذت راحتي في البرنامج ، وجعلته ارضية جاهزة لأشياء اخرى نستطيع ان نقوم بها لبرامج اخرى "عند بُعد" وجعلته بصيغة 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 ؟ اذا استعملته ، رجاء تزيله ، وتجرب الكود ، وشوف شو الخطأ اللي يعطيك ، مع رقم الخطأ ، وعلى اي سطر . جعفر

الكود سيصبح (مع اضافة تعديلاتي المقترحة السابقة): 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.OpenReport "myReport", , , "[id]=" & Me.id DoCmd.GoToRecord , , acNext Next i DoCmd.GoToRecord , , acFirst بس بالطريقة هذه ، ستطبع صفحة لكل سجل جعفر

اذ افترضنا ان الحقل المميز لكل سجل هو id وهو رقم وليس نص ، فيصبح كود معاينة التقرير: DoCmd.OpenReport "myReport", acViewPreview, , "[id]=" & Me.id جعفر

شوف مشاركتك الاخرى: جعفر

تستطيع استعمال مثل هذا الكود: dim rst as dao.recordset set rst=me.recordsetclone rst.movelast:rst.movefirst rc=rst.recordcount for i=1 to rc docmd.GoToRecord,,acNext next i docmd.GoToRecord,,acFirst جعفر كتبت الكود بدون تدقيق ، الكود سيبدأ العمل من السجل الحالي ، لذا سيعطيك خطأ عند وصوله الى آخر سجل ، بينما الكود لجميع الحقول ، فيا انك تعمل له امر لوقف رسالة الخطا ، مثل On error resume next ، او قبل For ، تطلب من الكود الذهاب الى او سجل ، هكذا: docmd.GoToRecord,,acFirst جعفر

عفوا ، مافهمت قصدك!!

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

وعليكم السلام اجري العملية الحسابية في استعلام جعفر

السلام عليكم أخوي ابوخليل كنت اتمنى اخلص "البرنامج" البارحة ، بس للأسف ما قدرت الكود اللي وضعته انت ، هو لُب الموضوع ، بينما انا شغال على برنامج خارجي ، يعطيك اختيار الجداول اللي تريد تغير الحقل فيها ، فهذا يأخذ شوية وقت زيادة السبب اني اتجهت الى هذه الطريقة هي اني اعتقد ان استخدام برنامج خارجي لن يُربك المستخدم وبرنامجه (لا تنسى اني ما اتكلم عن كود فقط ، وانما نموذج ووحدات نمطية) يالله ، ان شاء الله اخلص وارفقه ، لزيادة المعلومة جعفر

ما دام الكودين جاهزين ، فخلينا نستفيد منهم ، وانت دائما خير وبركة جعفر

حيالله أخوي اوخليل انا شغال على المطلوب ، وكنت مخلّص ، لولا الكمبيوتر تعّبني شوي جعفر

وانت بصحة وسلامة أخي الغالي محمد

تفضل 404.Sales (AccessFIX).accdb.zip

جعفر

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

زاد الله فضلك أخي محمد انا قلت: وكنت اعني هذا الجدول: بحيث case1 يكون له الاولولوية في الفرز ، ثم يليه case2 ، فالرجاء تكملة الجدول بجميع المعايير ، ثم ننظر طريقة التعامل مع البرنامج والنموذج والكمبوبوكس القصد هنا ، انك تعطينا كل المطلوب ، ثم نحاول نحن ترجمة طلبك الى برنامج الله يجزيك كل خير ان شاء الله أخي أبوعبدالله ، يعني بعدك مصدقك ان كل العمانية سِحّار جعفر

السلام عليكم شكرا أخي محمد و الآن ، أريد ان أرى عمود خاص لكل من هذه المعايير في الجدول ، واسعار كل صنف جعفر