jjafferr

وعليكم السلام 🙂 يمكنك البحث في محتوايات المنتدى من هنا ايضا ، وكلمات البحث مثل "حجم الشاشة" : . وحصلت على هذا الكم الكبير من المواضيع اللي تساعدك : . جعفر

وعليكم السلام 🙂 اخي طاهر ، المنتدى مليء بمثل هذا السؤال ، فالرجاء استعمال خاصية البحث به 🙂 جعفر

🙂

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

وعليكم السلام 🙂 هي بالفعل في اعدادات الوندوز ، عملها يدويا : . وبرمجيا : جعفر

الخطوات اللي اقوم بها للتاكد من مكان الخلل: 3. الدخول في احد المواقع العالمية الاخرى. اذا الخطوة رقم 3 عملت ، فاعرف ان الموقع رقم 2 فيه مشكلة 🙂

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

وعليكم السلام 🙂 نعم ، كان فيه خلل فني ، والادارة كانت متابعة الموضوع اول ما صارت المشكلة ، مع موقع الاستضافة من حوالي الساعة 2:30 الظهر بتوقيت مسقط 🙂 جعفر

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

السلام عليكم 🙂 اهلا مرحبا بك بين زملائك في هذه المرتبة اخوي احمد @Ahmed.IQ 🙂 ولو ان المهندس قاسم قام بتزكيتك ، ولكنك كنت تحت المراقبة في ردودك ، دائما 🙂 جعفر

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

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

السلام عليكم 🙂 دائما في عمل اي برنامج ، يجب ان تفكر في اسوء الحالات: البرنامج به عشرات الالآف من السجلات ، وعلى شبكة ، وعندك الكثير من المستخدمين 🙂 هناك طريقتين لحل سؤالك: 1. الطريقة المُكلفة ، لأنها يجب ان ترجع للجدول ، وتأخذ القيم منه ، ثم تقوم بعملية الجمع ، بإستعمال DSum ، ومع ان الكود سهل ، ولكني دائما اتفاداه ، 2. وبما ان النموذج (النموذج الفرعي في حالتنا) ، يقوم قد اخذ البيانات من الجدول ، فنستطيع عمل الجمع من واقع بيانات النموذج: أ. عن طريق الامر Me.RecordsetClone ، ونعمل امر دوران لجمع قيم حقل "السعر" ، ب. عن طريق الاستفادة من حقل الجمع t1 في ذيل النموذج الفرعي (بإستعمال الامر Sum) ، وهو كما قمت انت بعمله: صحيح ان حقل الجمع في النموذج الفرعي t1 يقوم بجمع قيم الحقل "السعر" تلقائيا ، ولكنه يحتاج الى وقت لكي يقوم بهذه العملية كل مرة ، فالحيلة هي ان ننتظر الى يتم تعبئة الحقل بالمجموع الجديد ، ثم نعطي هذه القيمة الى الحقل "اجمالي الفاتورة" في النموذج الرئيسي ، وبما انه لديك عمليتين ، اضافة وحذف ، فاليك الكود عند اضافة سجل (بما اننا نستخدم نموذج اضافة مستقل ، فيجب ان ننادي حقل النموذج الفرعي t1 عن طريق نموذجه الرئيسي ثم الفرعي) : Private Sub cmd_Add_Record_Click() 'Save the Record If Me.Dirty Then Me.Dirty = False 'Requery the SubForm to show the new Record Forms!الفاتورة!الاصناف.Requery 'wait until the sum shows in the SubForm Do Until Len(Forms!الفاتورة!الاصناف!t1 & "") <> 0 DoEvents Loop 'transfer the value to the Main Form field Forms!الفاتورة![اجمالي الفاتورة] = Nz(Forms!الفاتورة!الاصناف!t1, 0) 'close the Add Form DoCmd.Close acForm, Me.Name, acSaveNo End Sub . وهذا الكود عند حذف سجل من النموذج الفرعي مباشرة : Private Sub cmd_Delete_Record_Click() 'Delete the Record DoCmd.RunCommand acCmdDeleteRecord 'Requery the Sum Field Me.t1.Requery 'wait until the sum shows in the SubForm Do Until Len(Me.t1 & "") <> 0 DoEvents Loop 'transfer the value to the Main Form field Me.Parent![اجمالي الفاتورة] = Nz(Me.t1, 0) End Sub جعفر 1534.Update_MainForm_with_SubForm_Total.accdb.zip

السلام عليكم 🙂 الظاهر هذا موسم الترقيات ، فرجاء تهنئوا معي اخواي @ابو البشر و @kkhalifa1960 على ترقيتهم لرتبة خبير 🙂 لازلنا نبحث لنزيد رصيد المنتدى من الخبراء 🙂 جعفر

وعليكم السلام 🙂 المشاركة في الرابط التالي ستوضح لك السبب ، وطريقة العلاج جعفر

طريقة جميلة ومبتكرة 😞 انا استخدم احد الطابعات الافتراضية المجانية لطباعة ملف pdf من هذا الموقع: https://www.dopdf.com/ واحد الميزات اللي فيها ، بأنك تستطيع عمل الورقة بالحجم الذي تريده (تكتب طول وعرض الورقة). هناك طريقة اخرى استعملتها في احد برامجي ، وهي استخدام ورقة A4 ، ولكني استعملت سطرين او ثلاثة لكل سجل (فكر فيها كأنك تطبع نموذج مفرد ، بحيث توزيع الحقول يكون بطريقة منطقية ، وليس جنب بعضها البعض) 🙂 جعفر

وعليكم السلام اخوي حمدي 🙂 انزلت المرفق ، ولكنه غير كامل ولم يعمل عندي بسبب عدم وجود العديد من الكائنات !! للاسف انا حاليا مو متخصص في الايميل (قبل حوالي 12 سنه كنت فيها بالثقيل 🙂 ) ، الهمة في الشباب اللي يشتغلون على الايميل 🙂 جعفر

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

بالانجليزي هو On Dirty ومعناه عندما تقوم بعمل تغيير في قيمة/بيانات الحقل (او قيم السجل ، اذا استخدمت الحدث في اعدادات النموذج) ، هذا الرابط به معلومة مفصله . و جعفر

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

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

يا هلا ومرحبا jo 🙂 الخطوتين: 1. الالتزام بالقائمة: نعم ، 2. حدث "عند عدم الوجود في القائمة" ، وتضع هذا الكود Private Sub Combo0_NotInList(NewData As String, Response As Integer) MsgBox "لابد من الاختيار من القائمة" Response = acDataErrContinue Me.Combo0.Undo End Sub . وتستطيع الحصول على هذا الكود وغيره من مساعد الاكسس: . جعفر

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

السلام عليكم😊 واهنئك أخي المهندس @Eng.Qassim على هذه الترقية، واهلا وسهلا بك معنا من جديد😊 جعفر

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