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

او ممكن على اذا كان اسم قسم التفصيل بالعربي Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) End Sub اذا كان اسم قسم التفصيل بالانجليزي Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) End Sub جعفر

السلام عليكم تفضل اخي الكريم حسب مافهمت من طلبك اتمنى يكون المطلوب تحياتي New Microsoft Access Database (2).rar

السلام عليكم 🙂 ليش ما تحبون الوحدات النمطية ، سهلة ولذيذة 🙂 بدل هذا الحقل UnionUnit: IIf([units]="جرام","كيلو جرام",IIf([units]="كيلو جرام","كيلو جرام",IIf([units]="قرص","قرص"))) استعمل units2: G_to_K_u([units],[wzn]) وهاي الوحدة النمطية ماله Public Function G_to_K_u(u As String, w As Double) As String 'convert Gram to Kilogram 'units If u = "جرام" Then G_to_K_u = "كيلو جرام" Else G_to_K_u = u End If End Function . وبدل هذا الحقل UnionMeasure: IIf([units]="جرام",Format([wzn]/1000,"#,##0.000"),IIf([Units]="كيلو جرام",Format([wzn],"#,##0.000"),IIf([units]="قرص",[wzn]))) استعمل wzn2: G_to_K_w([units],[wzn]) وهاي الوحدة النمطية ماله Public Function G_to_K_w(u As String, w As Double) As Double 'convert Gram to Kilogram 'wzn If u = "جرام" Then G_to_K_w = w / 1000 Else G_to_K_w = w End If End Function . جعفر 1202.Qs For Weight (UP2).mdb.zip

هذه المعلومة مازلت أجهلها نعم يعمل بشكل ممتاز لكن لو تلاحظ في الخصائص سوف تجدها مختلفين عن بعض السبب الله أعلم بالنسبة للأحداث هناك أحداث أخرى غير موجودة حتى في هذه الأداة و من بينها Private Sub WebBrowser3_NewWindow2(ppDisp As Object, Cancel As Boolean) و غيرها. هذا و الله أعلم

سبقني اخي @احمد الفلاحجي بالوردتين .. لكن يستاهل ابا بسملة 🌷🌷

بارك الله فيك .. وشكر لك .. المطلوب تم بنجاح ولله الحمد .

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

يا باشمهندس محمد ، يعني لازم نعطيك كل اسرارنا !! هاي الله يسلمك نسخ/لصق آخر الليل كلامك صحيح ، مافي داعي للوزن هنا 🙂 جعفر

جرب المرفق ملاحظة: يجب ان يكون التاريخ في الصفحات من الاصغر الى الاكبر وكذلك يجب ان يكون تنسيق التاريخ هكذا مثلا 02/03/2020 تجميعه.xlsm

خليهم اربعة عشاني يستاهل اخي احمد مليون وردة

توجد طريقة اسهل للتصفية بين تاريخين استخدمتها لبرنامج اقساط تعاوني ربما تفيدك السنة الماضية السنة الحالية اخر تسعة اشهر اخر ستة اشهر اخر ثلاث اشهر الخ جرب الملف المرفق علما باني ربما لم افهم مطلوبك بشكل صحيح الفلتره بين تاريخين.accdb

تم التعديل على الماكرو كما تري اذا اردت لائحة واحدة (ذكور او أناث اختر 1 من القائمة المنسدلة في الخلية K2 ) اذا اردت لائحتين في نفس العامود (ذكور و أناث اختر 2 من القائمة المنسدلة في الخلية K2 ) يدرج اولاً ما هو مذكور في الخلية I2 Alpha_Tartib_new.xlsm

تفضل لو حابب الحل بالأكواد 1ترتيب ابجدى.xlsm

ههههههههه سبحان الله والله كنت افكر افتح الحاسوب الان لتحويل الاستعلام لوحدة نمطيه استاذى القدير و ومعلمى الجليل و والدى الحبيب الاستاذ @jjafferr 🌹 جزاكم الله خيرا 🙏 واسال الله لكم البركة فى العمر و العمل والاهل والولد وان يزيدكم علما وان ينفعكم بما علمكم امين امين امين

السلام عليكم جميعا حاولت كثيرا حتى تمكنت من حل سؤالي بالشكل الذي طلبته واردته .... سارفقه هنا لعل هناك من ينتفع به او يقوم بتطويره بما يناسبه ... TEST SCHOOL2.accdb

حياك الله 🙂 هناك ملاحظات يجب ان تقوم بها : 1. حذف الجدول ، والحقول في النماذج التابعة له : 2. حذف جميع الحقول في الجدول All_P : ابتداءً من A_11 الى P_85 3. 4. اذا تم تنظيف ضرس اليوم ، فيعمل البرنامج حوله حلقة بلون اخضر ، طيب ، وبعد سنه عمل له حشو ، فيصير لون الضرس باللون الارزق ، حاليا (واعتقد هي الطريقة الصحيحة) ، فلون التنظيف الاخضر سيتم استبداله باللون الارزق ، كون لون العملية الاخيرة فقط هي التي تشير اليها الصورة. جعفر

السلام عليكم اخواني الاعزاء احببت المشاركة لكن الصورة لم تتضح بالكامل هذه ست احتمالات ممكنة لسجلاتك ارجو ان تعطي ناتج الجمع لكل احتمال حسب فرضيتك وان شاء الله ستتضح الصورة اكثر بالاضافة الى ان هذه الاحتمالات سوف تساعد الاخوة في الحل الاحتمال الاول الاحتمال الثاني الاحتمال الثالث الاحتمال الرابع الاحتمال الخامس الاحتمال السادس 0 100 100 100 100 0 100 200 200 200 0 100 200 300 300 300 200 200 300 400 400 0 300 0 400 500 500 400 0 300 500 600 600 500 400 400 600 0 700 600 500 0

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

اخينا @mohamad dahleek لم توضح : 1. هل المجموع بعد الصفر لجميع السجلات ام على حسب كل اسم ؟ 2.كذلك كيف واين يظهر الاجمالي ؟ 3. في حالة لايوجد صفر لاسم مالعمل ؟ او وجد الصفر اخر القائمة ولا يوجد بعده شي ؟ تحياتي

حياك الله 🙂 نعم تقدر تضيف اي عدد تريد ، وهذا الكود المسؤول عن الاخفاء (للخلع) ، او كأنك نقرت عليه ويتحول لونه للأزرق (للحشو) ، او عليه الدائة الحمراء (للتركيب) ، وتم اضافة حلقة خضراء للتنظيف في نهاية الكود : 'mark the tooth If rst!Service_Type = "خلع" Then 'خلع Me(iTooth & rst!Tooth_Number).Visible = False Me(iTooth & rst!Tooth_Number).BorderStyle = 0 'transparent ElseIf rst!Service_Type = "حشو" Then 'حشو Me(iTooth & rst!Tooth_Number) = -1 Me(iTooth & rst!Tooth_Number).BorderStyle = 0 'transparent ElseIf rst!Service_Type = "تركيب" Then 'تركيب Me(iTooth & rst!Tooth_Number).Visible = True Me(iTooth & rst!Tooth_Number).BorderStyle = 1 'solid Me(iTooth & rst!Tooth_Number).BorderWidth = 2 Me(iTooth & rst!Tooth_Number).BorderColor = RGB(255, 0, 0) ElseIf rst!Service_Type = "تنظيف" Then 'تنظيف Me(iTooth & rst!Tooth_Number).Visible = True Me(iTooth & rst!Tooth_Number).BorderStyle = 1 'solid Me(iTooth & rst!Tooth_Number).BorderWidth = 2 Me(iTooth & rst!Tooth_Number).BorderColor = RGB(0, 255, 0) End If . وبالنسبة لـ Service_Type ، فالافضل ان يكون له جدول مستقل ، بحيث تقدر وبدون برمجة ، ان تضيف اي نوع تريد 🙂 . وبسبب ان حقل الملاحظات صغير ، فلما تنقر عليه مرتين ، سترى نافذة اكبر تظهر (ZoomBox والتي تستطيع اظهارها بالضغط على F2) ، وتقدر ان تكتب فيها الملاحظة او مجرد ان تراها بالكامل 🙂 جعفر 1188.2.YOUSSEF_2020.accdb.zip

جزاك الله خيرا اخى صالح @ابوآمنة وبارك الله فيك من خلال الاطلاع عالمثال للاخ بلال فقد قام بوضع مربع قائمه لايتم فتح نموذج خلال مربع قائمه يا اخى بلال بل فى عنصر نموذج فرعى اضف عنصر نموذج فرعى ولا تسند اليه اى نماذج وقم باسناد النموذج المراد فتحه من خلال الكود فالزر الذى سيقوم بفتحه Me.mf.SourceObject = "frm2" مثلا لدينا عنصر نموذج فرعى مسمى mf ولدينا نموذج فرعى اسمه frm2 فقمنا باستدعائه بالكود السابق عند النقر عالزر تبعه لفتحه هذا والله اعلى واعلم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق 20199.rar

تفضل أخي بلال شاهد هذا الموضوع :

شكراً لك أستاذي و معلمي صالح ألاحظ أن بعض المواقع لا تعمل بكفاءه مع متصفح اكسيس مثل خدمات قوقل داريف ونماذج قوقل مثلاً هذه الصفحة شاهد بنفسك من خلال متصفح اكسيس كيف تصبح الصفحة . https://docs.google.com/forms/d/e/1FAIpQLScPEwyw9dvi0Zin1ulERSwu0FWYzY7S_LGQGMhRyENpTGo0Bg/viewform أيضا قمت بإرسال القيم للحقول فنجحت والحمد لله لكن واجهتني مشكلة إرسال البيانات حيث أن زر الإرسال الخاص بنموذج قوقل درايف غير مفعل في نموذج متصفح أكسيس ، حاولت البحث عن زر id ، name لعملية الإرسال submit لكن دون فائدة . هل تجد لذلك حلاً 😘.

من طول الغيبات جاء بالغنايم فاقدينك ..

ربنا يديك الصحه ويباركلنا فيك اخى ومعلمنا العزيز جعفر

جزاكم الله خيرا وبارك فيكم اخوانى واساتذتى انتم اللى تستاهلون تريليون ورده منى فانا طالب علم واتعلم منكم بارك الله فيكم احبكم فالله واسال الله العظيم ان يجمعنا ويظلنا يوم لا ظل الا ظله

إي والله يستاهل أبا بسملة أحمد الفلاحجى Barna لعلك تعرج على سؤالي علشان ارسلك ورتين ..

ممكن سؤال يا استاذ @jjafferr 🌹 حضرتك قلت units2: G_to_K_u([units],[wzn]) وهاي الوحدة النمطية ماله Public Function G_to_K_u(u As String, w As Double) As String 'convert Gram to Kilogram 'units If u = "جرام" Then G_to_K_u = "كيلو جرام" Else G_to_K_u = u End If End Function هل هناك داعى لاستخدام حقل الاعداد هنا يعنى ماذا لو كان هذا الجزء من الكود بالشكل الاتى units2: G_to_K_u([units]) وهاي الوحدة النمطية ماله Public Function G_to_K_u(u As String) As String 'convert Gram to Kilogram 'units If u = "جرام" Then G_to_K_u = "كيلو جرام" Else G_to_K_u = u End If End Function امممم

هل الأفلام التي تابعتها تخص هذا الموضوع بالتحديد؟ إذا كانت نعم فأطلعنا عليها. هذه الخاصية حسب معلوماتي و الله أعلم غير موجودة بالأكسس فقواعد البيانات من نوع أكسس لا تدعم التعامل مع الويب

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

السلام عليكم ورحمة الله وبركاته أهديكم برنامج لقراءة حركات الكلمة أي قراءة تشكيل الحروف . مثلاً كلمة ( الرَّحْمَنِ ) يقرأ البرنامج حركاتها هكذا ( شدة ، فتحة ، الصفر المستدير ، فتحة ، كسرة ) ولا أخفيكم أن أحد الأخوة الزملاء المهتمين بالقرآن الكريم في منتدانا الحبيب طلب مني ذلك على الخاص فأردت أن شارككم . البرنامج قابل للتطوير إن وجد أخطاء . ولا تنسونا من دعائكم ،، Read_HarakatV20_1.zip

ماشاءالله تبارك الله ... هدية جميلة اخي الاستاذ @ابوآمنة بارك الله فيك

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

تفضل اخي الكريم Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If ID = 4 Then ID.LeftMargin = 3000 End If End Sub تحياتي

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

السلام عليكم ورحمة الله تعالى وبركاته الاستاذ الفاضل والاخ الحبيب و استاذى القدير الأستاذ @أحمد الفلاحجى🌹 جزاكم الله خيرا كثيرا كثيرا كثيرا بعدد خلقه ما علمنا منهم وما لم نعلم 🌹🌹🌹🙏 اتعبتك معى بارك الله فيك الحمد لله تعالى تم التغلب على المشكلة من خلال استعلامين الاول وهو لتجميع البيانات QryAll والاستعلام والثانى QryCollectData والذى رزقنى الله تعالى الحل فيه لإجراء العمليات الحسابية بناء على الاستعلام الاول وتقريبا حتى الان بفضل الله تعالى العمليات الحسابية صحيحة لم الاحظ اى خطأ حتى الآن وبتلك الطريقة امكن وضع اكثر من وحدة قياس عدد و جرام وكيلو جرام فى حقل واحد فقط وتم التجميع والاحتساب لكل نوع منهم على حده وكل بتنسيقه الصحيح هذا ولله الحمد سبحانه وتعالى ما كنا لنهتدى لولا ان هدانا الله عزوجل واليكم المرفق النهائي Qs For Weight (UP2).mdb

تفضل على الرغم ان هناك اختلاف بين الصورة والملف , فيمكنك استخدام هذه المعادلة =COUNTIF(B4:AF4,TRUE) جدول العصافير.xlsx

جزاك الله خيرا اخى صالح جعله الله فى ميزان حسناتكم

أحسنت استاذ صالح بارك الله فيك وزادك الله من فضله

وعليكم السلام-لك ما طلبت فقط عليك لجعل المعادلة هكذا طالما تريد نطاق الجدول =SUMIFS(تحليل!$C:$C,تحليل!$E:$E,$B3,تحليل!$F:$F,C$2) Sumifs.xlsx

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة =IFERROR(INDEX($R$8:$AA$12,MATCH($E7,$Q$8:$Q$12,0),MATCH(F$6,$R$7:$AA$7,0)),"") ww2.xlsx

وعليكم السلام-تفضل Middle East1(1).xlsx

فقط يمكنك ببساطة من خلال هذه الصورة

رائع .. احسنت استاذ سليم بارك الله فيك

تفضل لك ما طلبت Payroll.xlsm

تمام اخي جعفر لقد تم فهم الامر شكرا للتوضيح عزيزي

رغم اني لم ابتعد عن المنتدى في تلك الفترة .. فكأن هذه المرة الاولى التي اشاهد الموضوع فيها وحيث ان الازرار في الاصدار 2003 لايوجد بها خاصية BackColor فقد استبدلتها بخاصية ForeColor مرفق المثال بعد التعديل انشاء شريط قوائم2mdb.mdb

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

اتفضل اخى تم تغير النموذج كله لان به بعض الاخطاء Database141.rar

بالنسبه للرصيد في مثال اخي اشرف خليل فانه تم وضعه في شقين : - الشق الأول : وهو رصيد اول المده او (الرصيد السابق) وتم عمل ذلك عن طريق الداله Dsum وتتكون الداله Dsum من الاتي Dsum(التعبير الذي به معادلة الرصيد;هنا اسم الجدول او الاستعلام;هنا الشرط الذي يجب تحقيقه) وبتطبيق ذلك على مثال اخي اشرف .. =nz(DSum("[t_Query]![Balance]";"[t_Query]";"[تاريخ الحركة]<[forms]![date01]![a]")) وهي تعني اجمالي الحقل المسمىBalance من الاستعلام المسمى t_Query في حالة تحقق الشرط[تاريخ الحركة]<[forms]![date01]![a] وهو ان تاريخ الحركه يكون اصغر من التاريخ الذي يوجد في مربع النص a الذي يوجد في النموذج date01 ,, ========= الشق الثاني : وهو رصيد العميل بعد كل عمليه وبالطبع ذلك مختلف عن رصيد اول المده او (الرصيد السابق) ,, وهنا تم الاعتماد على فكره رائعه .. وهو انه تم وضع مربع نص به عد تسلسلي ومسمى في المثال RecNo عن طريق وضع القيمه =1 به .. بحيث لأنه عند عمل معادلة الرصيد فإن بعد اول عمليه معدلة الرصيد تختلف عن باقي الرصيد .. لأن معادلة اول رصيد بالطبع تساوي = الرصيد السابق+الجانب المدين-الجانب الدائن .... اما معادلة الرصيد بعد ذلك تساوي= الجانب المدين - الجانب الدائن وذلك مجموع تراكمي على ماقبله .... وتم تطبيق ذلك في المثال عن طريق ... =IIf([RecNo]=1;[مدين]-[دائن]+[be];[مدين]-[دائن]) وتم الاعتماد هنا على الداله IIF وذلك عن طريق IIf([RecNo]=1 وهي تعني اذا كان مربع النص المسمىRecNo الذي يقوم بالعد التسلسلي يساوي 1 اي اول سجل فإنه يتم تطبيق المعادله .. [مدين]-[دائن]+[be] وهي المعادله الخاصه بالرصيد الاول = الرصيد السابق+الجانب المدين-الجانب الدائن و be اسم مربع النص الخاص بالرصيد السابق ,, واذا كان مربع النص RecNo بعد اول سجل يعني لا يساوي 1 اذن يتم تطبيق معادلة الرصيد العاديه بدون الرصيد السابق ولكن لا تنسى تـــراكـــمـــي وهي هنا في المثال .. [مدين]-[دائن] وتستطيع ان تحدد الرصيد ان يكون تراكمي عن طريق عمل رايت كليك على مربع نص الرصيد ثم خصائص ثم بيانات ثم مجموع تراكمي ثم قم بتحديد الخيار شامل ,,,