jjafferr

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

تمام بس اذا صادفك خطأ آخر ، فلن تعرف المشكلة وحلها (تذكر ، عندما كان عندنا الامر 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 ، فالرجاء تكملة الجدول بجميع المعايير ، ثم ننظر طريقة التعامل مع البرنامج والنموذج والكمبوبوكس القصد هنا ، انك تعطينا كل المطلوب ، ثم نحاول نحن ترجمة طلبك الى برنامج الله يجزيك كل خير ان شاء الله أخي أبوعبدالله ، يعني بعدك مصدقك ان كل العمانية سِحّار جعفر

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

وعليكم السلام لما النموذج يُفتح ، فانه يأخذ بياناته من "مصدر البيانات" ، سواء جدول او استعلام او Recordset او حتى مصدر بيانات نموذج آخر مفتوح ، وعندما تعمل تغيير في مصدر بياناته ، فيجب ان تطلب من النموذج ان يقرأ من مصدر البيانات مرة اخرى، فيمكنك عمل هذا للنموذج (وليس للحقول ، حيث ان الحقول ستحصل على بياناتها تلقائيا من مصدر البيانات): او جعفر 401.data2.zip

وعليكم السلام أخي أبو عزيز اهلا وسهلا بك في المنتدى المنتدى مليئ بالامثلة ، فرجاء عمل بحث قبل كتابة الموضوع اليك بعض الروابط لعملية الحساب ، والتي قد تحتاج إلى تعديل بسيط لتخدم غرضك: http://www.officena.net/ib/topic/60628-حساب-فرق-تاريخ-والوقت/ جعفر

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

وعليكم السلام نسخة الاوفيس التي تم تنصيبها هي 64بت ، بينما برنامجك يحتوي على مكتبات 32بت اقرا هذا الرابط لوسمحت: جعفر

أخي محمد 1. لوسمحت ، وبدل ان تضيع وقتك ووقت المشاركين ، اعطنا جدول الاسعار الصحيح ، لأنك بدأت بذكر وانثى ، ثم اضفت اقل من 20 سنة ، ثم اضفت اقل من 20 سنة (على ردّي) ، ثم غيّرت الى اقل من 50 واكثر من 50 (على رد أخي الوزير) ، وقد قلت ايضا : 2. لوسمحت تعطينا نموذج اجابة على اختيار الوجبات ، وهذه الاجابات يجب ان تكون من واقع جدولك. جعفر