نجوم المشاركات

وعليكم السلام حيا الله اخوي سامي هاي سهله ، عند غلق النموذج 2 ، اكتب هاي الكود Forms!form1!cboStudnts.requery ثم كود اغلاق النموذج رقم اثنين جعفر

تم التعديل

وعليكم السلام قد تستفيد من هذا الرابط: جعفر

اعرض الملف حساب فاتورة الكهرباء المصرية من يوليو 2017 و يوليو 2018 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ================= استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم باستهلاك الكهرباء في المنازل وحسابها بالأكسس بطريقتين أولا بحساب تكلفة عدد الكيلو وات المستهلكة ***************** والثانية بحساب عدد الكيلوات المقترح للتكلفة المحددة ------------------------------- وكل ذلك في نموذج واحد ودالتين معرفتين ///////////////////////////// ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** ملحوظة: الكود يعمل على كل إصدارات الأوفيس تم مشاهدة موضوع في نفس المجال وهو في هذا الرابط وتطوير الفكرة إلى ما وصلت عليه في هذا الملف ******************* دمتم في رعاية الله وحفظه وانتظرونا فالقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 20 سبت, 2017 الاقسام قسم الأكسيس

السلام عليكم تم طرح عدة اسئلة عن طريقة فرز او تصفية بيانات النموذج ، وسأقوم هنا بشرح الطريقتين: 1. إما عن طريق الاستعلام ، وهذا الرابط يعطينا المثال (والرجاء قراءته بتريث وتمعن وبالتفصيل) : 2. وإما عن طريق النموذج ، فميزتها: أ- انك تستطيع عمل تصفيه/تصفيات اضافية على النموذج او التقرير ، بعد تصفية الاستعلام ، ب- الاكسس سيعطيك الكود وسأشرح هنا كيفية عمل تصفية بيانات النموذج (وبنفس الطريقة يمكن عمل اكثر من تصفية ، وعمل فرز كذلك) : سأستعين بمرفق السؤال التالي للأخ محمد ، وبعد طلبت إذنه 1. قاعدة البيانات يجب ان تسمح لها ان تكون في وضع Layout View (هذا فقط حتى نتعلم الطريقة ، ويمكن الغاءه فيما بعد) ، . 2. النموذج يجب ان يكون غير منبثق . 3. هذا النموذج الذي نريد ان نعمل له تصفية بين تاريخين للحقل Date . 4. الهدف النهائي هو استخدام هذا الحقل لإدخال تاريخ معين ، ثم الضغط على زر "تصفية بين تاريحين" للقيام بالتصفية . 5. طريقة العمل: أ. بزر الفأرة اليمين نضغط في بيانات حقل التاريخ Date ، ب. ونختار تصفية التاريخ (السبب ان الاكسس اعطانا تصفية التاريخ هو لأن الحقل حقل تاريخ ، فلو كان الحقل نص او رقم لأعطانا الاكسس خيارات اخرى) ، ج. ونختار بين تاريخين (طبعا يمكنك اختيار اي من الاختيارات الاخرى ، وهذا يعتمد على التصفية التي تريد القيام بها) . د. تخرج لنا نافذة تطلب إدخال التاريخين (ويمكننا ادخال التاريخ بعدة طرق) ، وحسب اختيارنا ، والنتيجة المفروض ان نراها بعد التصفية هي السجلات بالاسهم الحمراء فقط . هـ. وهذه نتيجة التصفية اعلاه بين تاريخين . ح. والآن الى شرح كيفية الاستفادة مما عملناه اعلاه وتطبيقه في كود ، ننتقل بالنموذج الى وضع Layout View . ط. ونضغط بالفأرة اليسار على النموذج الفرعي الذي عملنا عليه التصفية ، ي. ثم ننظر في اعدادات النموذج ، الى ان نصل الى التصفية ، فنرى الكود الذي استعمله الاكسس للقيام بالتصفية ، فنعمل له نسخ ، ومثل ما اشرت اعلاه ، يمكننا اضافة اكثر من تصفية لأكثر من حقل ، ويمكن عمل فرز لحقل آخر ، ثم نرى الكود جاهزا هنا . ك. هذا الزر الذي سننقر عليه للقيام بالتصفية . ل. فنعمل الحدث على نقر الزر ، ثم نلصق الكود السابق ، ونقوم بتعديل التواريخ بما يناسب طلبنا ، وهو التصفية بين: تاريخ الحقل DateX و تاريخ الحقل DateX ناقصا 65 يوم ، او كما بالتواريخ في الملاحظات (باللون الاخضر في الكود) (ملاحظة مهمة للعلم: الاكسس يستخدم نظام التاريخ الامريكي في جميع عملياته ، والتاريخ الامريكي هو شهر/يوم/سنة ، كما نرى في كود التصفية) . م. وهنا نرى نتيجة النقر على زر "تصفية بين تاريخين" ، والذي يستعمل الكود اعلاه . ****************************************** اما اذا اردنا عمل استبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح الكود . ************************** الآن سنقوم بعمل اكثر من تصفية ، فرز بين تاريخين واستبعاد "الاسكندرية" فرزنا بين التاريخين ، وكانت نتيجته هكذا . واستبعاد معلومة مثل "الاسكندرية" من قائمة Country . فيصبح كود التصفية هكذا . والآن الى الكود الذي يضم هذه التصفيات: يجب ان نعرف اننا نتعامل مع مجموعة مختلفة من انواع الحقول ، وكل نوع له طريقة في عمل الكود ، فالسطر الاول هو تاريخ ، والسطر الثاني للنص ، ووضعت مثال في آخر سطر لحقل الرقم Dim City As String City = "اسكندرية" 'للتاريخ myCriteria = "([testQ].[datex] between #" & Me.DateX & "# and #" & Me.DateX - 65 & "#)" 'للنص myCriteria = myCriteria & " AND ([testQ].[country1]<> '" & City & "'" myCriteria = myCriteria & " or [testQ].[country1] is null)" 'للرقم 'myCriteria = myCriteria & " AND [testQ].[ID]<> " & Me.ID Me.TestF.Form.Filter = myCriteria Me.TestF.Form.FilterOn = True *********************************** كيف نعرف ان النموذج به تصفية: عند عمل التصفية في النموذج (وليس من الاستعلام) ، ستلاحظ ان النموذج يخبرك انك عملت تصفية ، هكذا بالتظليل الاصفر: . ولإزالة التصفية ، يجب عليك النقر على احد هذين المكانين المظللين بالاصفر ، او عمل زر: . والكود على نقر الزر سيكون: Me.TestF.Form.Filter = "" Me.TestF.Form.FilterOn = False جعفر 660.2.Test2006.mdb.zip

السلام عليكم نظرا لأني وجدت الكثير من المواضيع والتي لم تتعامل مع الاستعلام مباشرة ، وانما تم اللجوء الى الكود لعمل الاستعلام ، فقررت ان اواصل هذا المثال ، وللعلم ، فإن الاستعلام الثابت يعمل بطريقة اسرع من استعلام الكود. الطلب كان: 1. عندما نجمع جميع الحقول في حقل واحد (بدون تشكيلة) ، فكيف نستطيع ان نختار من القائمة اسم حقل معين ، ويتم البحث فيه فقط؟ 2. بدون عمل جدول جديد "نجمع جميع الحقول في حقل واحد (بدون تشكيلة)" ، هل نستطيع استعمال الجدول الحالي والذي يحتوي على التشكيلات ، ونبحث بدون تشكيلة؟ 3. البحث المتطابق للحقل (وليس للكلمة)؟ النقطة 1 و 2 ، في الاستعلام ، تم عمل اكواد تصفية ، حسب الطلب في النموذج. في النموذج ، زر "بحث" يستعمل الاستعلام qry_Search والذي يستخدم النوع الاول ، واما زر "بحث مباشر وبدون tbl_txt" ويستعمل الاستعلام qry_Search2 والذي يستخدم النوع الثاني جعفر 643.1.7-5-2017 بحث الفوائد بقائمة منسدلة.accdb.zip

السلام عليكم اخي العزيز حيدر استخدمت لك التنسيق الشرطي ليتم عدم تفعيل الخانات عند اختيار الاستئذان و تم الغاء علامات الصح عند اغلاق النموذج ملاحظة : يوجد لديك حقل باسم : Time و هذا الاسم يعتبر محجوز من قبل النظام و استخدامه قد يتسبب لك في مشاكل تفضل المرفق بعد التعديل بالتوفيق -اجازات - نسخة.rar

السلام عليكم الاستاذ محمد صالح عمل برنامج مثل الذي عملته انت: جعفر

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

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

شكرا أخي ابو زاهر على الملاحظة وشكرا اخي حيدر على اتخاذ اللازم ولما اخلص اللي في يدي ، اعود لموضوعك أخي وضاح جعفر

وعليكم السلام ا هذا المشاركه بصفحتي لا تخص الموضوع نامل من فريق الموقع اتخاذ الاجراء المناسب

وعليكم السلام مثلا اسم الزر الاول cmd_1 ، واسماء الازرار الاخرى cmd_2 و cmd_3 ، على حدث النقر على الزر cmd_1 ، ضع هذا الكود cmd_2.Enabled = Not cmd_2.Enabled cmd_3.Enabled = Not cmd_3.Enabled جعفر

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

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

قمت بطبيق هذه الطريقة على الوظيفة ConsumChart طبقت هذه الطريقة في حقل الاستعلام Consum Amount هذه صورة الناتج وهذا التعديل كهرباء.zip

إليك هذه التعديل على مثال في أحد مشاركاتك 726.نقل موشر الماوس بعد التحديث.accdb.zip أنشأت دالة تعيد السجلات للنموذج الذي يمرر عليها.. عند تمرير نموذج فرعي لا يكفي تمرير اسم التابع بل نحتاج إلى المنهج Form ؛ وعليه يكون الممرر هو ([SubFormName].[Form]) هذه الدالة تنفع في أي نموذج وتمرر على أنها مصدر بيانات عنصر التحكم ولا يلزم وضعها في حدث.. Function RecCounter(objMe As Object) '-- special records counter Dim CrntRcd, RcdCnt CrntRcd = objMe.CurrentRecord RcdCnt = objMe.RecordsetClone.RecordCount If objMe.NewRecord Then RecCounter = CrntRcd & " من " & RcdCnt + 1 Else RecCounter = CrntRcd & " من " & RcdCnt End If End Function

وعليكم السلام عدة طرق تجي على بالي: 1. في النموذج الفرعي (اسمه مثلا s_Search_All) ، اعمل حقل لحساب عدد السجلات ولنسميه s_count ، ويمكنك عمله هكذا: =Count(*) وفي النموذج الرئيسي تعمل حقل يأخذ قيمة الحقل اعلاه ، هكذا: =IIf(IsError([s_Search_All]![s_count]),0,[s_Search_All]![s_count]) والشكرا لأخي رمهان على هذه المعادلة ، والتي فائدتها عندما لا تكون سجلات في النموذج الفرعي ، لا نحصل على خطأ 2. تستطيع ان تعمل تحسب عدد السجلات من الاستعلام مباشرة ، هكذا (ويعتمد على معايير الاستعلام ، فقد يجب عليك وضع المعيار في المعادله): =dcount("*","Name_All") 3. تستطيع ان تحسب عدد سجلات النموذج الفرعي هكذا ، بحيث يكون اسم الحقل في النموذج الرئيسي SubForm_Records: dim rst as dao.recordset set rst=me.[s_Search_All]![s_count].recordsetclone rst.movelast:rst.movefirst me.SubForm_Records=rst.recordcount rst.close: set rst=nothing جعفر

آسف ، ما اعرف!! عندك نسختي ونسختك ، واعمل مقارنه بينهما جعفر

على الرغم ان استاذ جعفر عمل المطلوب لكن انا اريد ان اشرح قصدي كان قصدي في جملة استاذ جعفر اي يعني سيكون الكود كالتالي =IIf(IsError([تابع15]![نص13]);0;[تابع15]![نص13])

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

اتفضل فقط انا غيرت مصدر كومبوبوكس اختيار اسم الموظف في النموذج كان مصدره رقم اي دي و اسمه انا غيرت باسم الموظف فقط اي غيرت الى هذا SELECT TabTeachers.TEACHER_NAME FROM TabTeachers ORDER BY TabTeachers.TEACHER_NAME; والان القي نظرتا الى المرفق lمعلمين.rar

انا جربت عندی .. حذفت معلم واضفت معلم اخر وما فيها مششكلة اذن ارفق القاعدة اللي بها المشكلة

احذف هذا السطر من الكود في تقرير Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Rem ===كتابة عنوان في التقرير بناء على ما كتب في أمر فتح التقرير === ' Me.txt_Title = Me.OpenArgs End Sub واضف هذا الكود Private Sub Report_Load() If Forms!formteachers!OPTIONS_REPORTS = 2 Then Me.txt_Title = "ÊÞÑíÑ Úä ãÑÊÈÇÊ ÇáãæÙÝíä ááÔåÑ ( " & Forms!formteachers!COMBOX_MONTH & " ) " ElseIf Forms!formteachers!OPTIONS_REPORTS = 3 Then Me.txt_Title = "ÊÞÑíÑ Úä ãÑÊÈÇÊ ÇáãæÙÝíä ááãæÙÝ ( " & Forms!formteachers!COMBOX_TEACHER_NAME.Column(1) & " ) " End If End Sub اليك المرفق بعد تعديل معلمين.rar

اتفضل معلمين.rar

الأخ مصر 2015 ... ربنا يصلح مصر في 2015 يرجى تغيير اسم الظهور للغة العربية وباسم مناسب إذا أمكن (دا إذا مكانش يضايقك طبعاً) بالنسبة لطلبك سهل للغاية بفرض أن العمود الأول والثاني يحتوي قيم وتريد جمع القيم من العمودين في العمود الثالث C قم بتحديد العمود بالكامل .... من خلال النقر مرة واحدة على رأس العمود (انقر عليه هيطب سااااكت علطول ..) هتلاقي العمود كلها متحدد روح لشريط المعادلات وضع المعادلة فيه =SUM(A1:B1) واضغط Ctrl + Enter مش إنتر بس ... سيتم تنفيذ المعادلة على كامل العمود .. ملحوظة : يرجى عدم تطبيق المعادلة على كامل العمود .. لأن ذلك سيسبب ثقل في الملف حيث أن عدد الصفوف في ورقة العمل كبير جداً .. يكفي أن تكتب القيم مثلاً في العمودين ثم تسحب المعادلة مرة واحدة إلى نهاية النطاق الذي تعمل عليه أو تضغط دبل كليك على مقبض السحب .. تقبل تحياتي