jjafferr

الظاهر ان الاخ كرار شغال على الموضوع ، فصبر جميل العمل لازم يكون كالتالي: 1. عمل استعلام مجاميع (تستطيع عمل نسخة من الاستعلام qry_Data_Entry) ، وفيه الشروط المطلوبة من العام الدراسي والمدرسة وووو ، 2. عمل استعلام جدولي من الاستعلام السابق (الاستعلام الجدولي يغير السجلات الافقية الى عمودية) ، 3. ثم تعمل استعلام ثالث ، حيث تربط الاستعلام الاول بالثاني ، وتحصل على الصيغة النهائية للمطلب طبعا هالكلام على الهواء المباشر كرؤوس اقلام ، وبدون ورقة وقلم وبرمجة ، فلازم يكون في تعديلات في التفاصيل جعفر

حياك الله الحقول المحسوبة عادة لا نخزنها في الجدول ، فهي دائما تحتاج تحديث (لاحظ العمل اللي عملناه للحقل Total) ، وانما نستخدم استعلام/معادلة لحساب هذا الحقل وقت الحاجة ، في حقل غير مضمن جعفر

وعليكم السلام اخي كريمو تفضل: On Error GoTo Err_إجازة_سنوية_Click if me.Field_Yes_No<>-1 then msgbox "Please select the Yes/No field first" exit sub endif Dim stLinkCriteria As String جعفر

تفضل يا سيدي Private Sub Adad_R_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.SetWarnings True End Sub Private Sub Al_adad_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False DoCmd.OpenQuery "Q1" DoCmd.SetWarnings True End Sub جعفر 295.المثال.mdb.zip

السلام عليكم أخي كرار اعمل كل ما قلته عن العلاقات في الاستعلام ، وستكون سهل التعامل معها ان شاء الله للعلم ، انا لم انزل المرفق فلا اعرف مافيه جعفر

أخوي ابو خليل رحم الله والديك دنيا وآخرة ، كنت اريد ابحث عنها جعفر وتمت التجربة بنجاح وان شاء الله استخدم هذه الطريقة في مرفق الرابط: http://www.officena.net/ib/topic/67205-هل-من-حل-شافى-لمشكلة-اختلاف-اعدادات-اللغة-بالويندز-على-الأجهزة-المختلفة/?do=findComment&comment=437551 وبهذه الطريقة يتكامل الموضوع اكثر جعفر

وعليكم السلام الكود في برنامجك مغلق بكلمة سر جعفر

السلام عليكم أخي عبدالله ، يمكنك استعمال/عمل قالب Templates للأكسس ، وقد يكون الحل في هذا الاتجاه ، مع مراعاة اسم المجلد الذي تضع فيه القالب ، والذي يحمل رقم لغة تنصيب الاكسس جعفر

وعليكم السلام ابش رايك في Enhanced Msgbox (هو اصلا نموذج ، ولكن معمول خصيصا لعمل Msgbox ) ، وجاهز للتحميل المجاني هذه بعض الاشكال والالوان التي تستطيع ان تعملها ، وطبعا اللغة كذلك . وفي نسخته العاشرة هذا رابط الموقع ، وجميل النظر الى ملاحظات القرّاء: http://blog.nkadesign.com/2008/ms-access-enhanced-message-box-replacement/ ولتحميل البرنامج: http://blog.nkadesign.com/wp-content/uploads/2008/05/EnhancedMsgBoxv1.10.zip جعفر

حسب علمي انك لا تستطيع ، فهما موجودان في نافذة/امر واحد

السلام عليكم انت لم تقل بانك تريد تحديث حقل في جدول آخر هناك طريقتين على بالي: 1. في النموذج الفرعي Al_Mawad ، غير قيمة الحقل Total بدل =[Adad_S]-[Al_adad] الى =nz([Adad_S],0)-nz([Al_adad],0) على حدث "بعد التحديث" للحقل Adad_S والحقل Al_adad ، اكتب هذا الكود: docmd.runcommand accmdsaverecord docmd.openquery "Q1" وبهذه الطريقة لن تحتاج لزر التحديث ، حيث سيتم تحديث الباقي تلقائيا ، كلما تم تغيير الرصيد او العدد في النموذج 2. وهي كود لزر التحديث ، ولكني لا احبذه ، فقد ينسى المستخدم استعمال هذا الزر ، وتصير الكارثة كما اننا نستطيع ان نجعل هذا الكود على حدث "اغلاق النموذج" ، وسيتم تلقائيا ، ولكنه سيعمل مشكلة اذا استخدمت قاعدة البيانات في شبكة ، وكان هناك اكثر من شخص يستخدمون البرنامج يعني بالعربي ، ما بيفيدك هالكود جعفر

ارفق النموذج والاستعلام والجدول (وبهم بيانات) ، فانا اعتقد بأن الموضوع ابسط بكثير من هذه العملية ، ويمكن تبسيطه جعفر

السلام عليكم لماذا لا تضع قائمة باسماء الطابعات في النموذج ، ويجب عليه اختيار الطابعه قبل الطباعة؟ هذا الرابط به عدة مرفقات وروابط اخرى ، وفيها الطريقة: http://www.officena.net/ib/topic/49802-اختيار-اسم-الطابعة-عند-طباعة-تقرير/ جعفر

عفوا أخي ، اختلط عليّ الامر هناك طريقتين: 1. Msgbox ، حيث ان الرسالة لما تظهر ، فانها توقف الكود ، فاستعملها هكذا: . . 2. Timer ، هذا الكود يجعل الكود يتأخر الوقت المطلوب: . . ولكن السؤال هو: لما هذه العملية؟ لماذا لا تضع قائمة باسماء الطابعات على النموذج ، ويجب عليه اختيار الطابعه قبل الطباعة؟ هذا الرابط به عدة مرفقات وروابط اخرى ، وفيها الطريقة: http://www.officena.net/ib/topic/49802-اختيار-اسم-الطابعة-عند-طباعة-تقرير/ جعفر

السلام عليكم في الجدول TBL2 عندك نسختين من كل حقل ، مثلا Type (النوع) و Type1 (النوع) ؟ فايهم تستعمل للحساب؟ جعفر

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

ولكن جعفر

ما فرقت العملية ، الطريقة نفسها اللي ذكرتها جعفر

وعليكم السلام في VBA ابحث عن Msgbox ، وفيه مثال تأخير بالثواني اللي تريد فإعمل الكود قبل إعطاء امر فتح التقرير جعفر

السلام عليكم ما هو مصدر النموذج ، جدول ام استعلام؟ هل تستطيع ادخال بيانات في المصدر مباشرة؟ جعفر

وعليكم السلام انا لم استخدم AutoKeys Macro من قبل ، فلا تلومني اذا لم استطع مساعدتك علشان البحث يتم ، يجب ان تكون احد الحقول مختارة Setfocus ، واللي لاحظته ان الماكرو عندك يستعمل الامر الذهاب الى [Screen].[PreviousControl].[Name] ، واللي المفروض ان يؤدي نفس الغرض ، ولكن ، يجب عليك التأكد ان الحقل الذي تكون عليه قبل عملية البحث هو حقل "نص" وليس اي كائن آخر في النموذج مثل زر الامر مثلا جعفر

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

وعليكم السلام اعمل حقل في الجدول بإسم Bal ، اذا كان برنامجك على الاكسس 2007 فما فوق ، ففي الجدول حقل من نوع "حقل محسوب" ، تجعل فيه المعادلة التي تريد للحقل Bal ، وهو يحسبها تلقائيا اما الطريقة الاخرى ، ففي النموذج ، وعلى حدث "بعد التحديث" للحقل العدد المطلوب بيعة ، اعمل المعادلة: me.Bal= me.الرصيد - me.العدد والقيمة تلقائيا ستدخل النموذج والجدول جعفر

وعليكم السلام أختي هكذا عمل الكود : اذا كان حقل عدد الاصناف نص ، فالمعادلة هي كما ذكرتي: =DCount("[رقم الفاتورة]";"الفاتورة";"[نوع الفاتورة] = 'شراء' And [عدد الأصناف]='" & [عدد الأصناف] & "'") بينما اذا كان حقل عدد الاصناف رقم ، فالمعادلة ستصبح =DCount("[رقم الفاتورة]";"الفاتورة";"[نوع الفاتورة] = 'شراء' And [عدد الأصناف]=" & [عدد الأصناف]) جعفر