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

او ممكن على اذا كان اسم قسم التفصيل بالعربي 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

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

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

من الصعب عمل هكذا معادلة (لكن ليس مستحيل)

السلام عليكم كان من الافضل ارفاق ملفك لغرض التعديل او مثال عن ذلك المهم حسب مافهمت من طلبك انظر للاستعلام (query) في لملف المرفق يظهر لك اسماء الموظفين الذين استقطاعهم = صفر ويمكنك عمل تقرير بالاسماء بعد ذلك تحياتي اختبار.rar

جرب هذا الملف بدون معادلات Alpha_Tartib.xlsm

يمكنك استخدام هذه المعادلة =IF(AND(WEEKDAY($B4)=6,$C4="حضور"),1,"") حساب يوم الجمعة2.xlsx

جرب "فاصل الأنماط" (وهو مشروح هنا) اجعل لعبارة "تعريف القياس المحاسبي" وحدها نمط عنوان. فأنماط العنوان هي التي تظهر في جداول المحتويات.

استاذى الفاضل أحمد الفلاحجى شكرا على الحل هذا مااريدة ممكن تشرح لى كيف فعلت هذا لو سمحت

وعليكم السلام اتفضل ان شاء الله يكون ما طلبت بالتوفيق ان شاء الله Lab 2020 OK.accdb

الحلقة الثامنة: إستدعاء أحداث و دوال في صفحة ويب سوف نتطرق في هذا الدرس إن شاء الله إلى كيفية إستدعاء حدث لعنصر معين أو إستدعاء دالة موجودة في صفحة ويب. لقد قمت بالتعديل على صفحة ويب بإضافة بعض الكائنات و الدوال من أجل تطبيق هذا الدرس. صفحة الويب هذه موجودة مع المرفق كل ما عليك هو وضعها بجانب الملف. 1- إستدعاء حدث بعد التحديث: الكود التالي يقوم بإستدعاء حدث بعد التحديث لمربع تحرير و سرد اسمه mySelect. كما يمكن استخدام هذا الكود مع مربع نص Me.WebBrowser3.Document.getElementById("mySelect").OnChange 2- إستدعاء حدث عند التمرير: الكود التالي يقوم بإستدعاء حدث عند تمرير الماوس على زر أمر اسمه bt2 Me.WebBrowser3.Document.getElementById("bt2").onmouseover 3- إستدعاء حدث عند النقر: الكود التالي يقوم بإستدعاء حدث عند تمرير على زر أمر اسمه bt1 Me.WebBrowser3.Document.getElementById("bt1").OnClick أو Me.WebBrowser3.Document.getElementById("bt1").Click 4- إستدعاء حدث عند التركيز: الكود التالي يقوم بإستدعاء حدث عند التركيز لمربع نص اسمه mytext Me.WebBrowser3.Document.getElementById("mytext").OnFocus و هكذا نستطيع إستدعاء جميع الأحداث بهذه الطريقة 5- إستدعاء دالة بسيطة موجودة داخل صفحة ويب: نستطيع من خلال الكود التالي إستدعاء الدالة myfunction() دالة بسيطة (بدون براميتر) Me.WebBrowser3.Object.Document.parentWindow.execScript ("myFunction();") 6- إستدعاء دالة موجودة داخل صفحة ويب و تمرير البراميتر: نستطيع من خلال الكود التالي إستدعاء الدالة displayDate(a) و نمرر لها البراميتر a Me.WebBrowser3.Object.Document.parentWindow.execScript ("displayDate('salah hommadi');") 7- عرض رسالة تنبيه في أداة التصفح : يمكننا هذا الكود من عرض رسالة تنبيه داخل أداة التصفح. Me.WebBrowser3.Object.Document.parentWindow.execScript ("alert('الحمد لله على كل حال');") webbrowser.rar

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

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

تفضل على الرغم ان هناك اختلاف بين الصورة والملف , فيمكنك استخدام هذه المعادلة =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

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

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

وعليكم السلام اتفضل اخى الفاضل ان شاء الله يكون طلبك بناء على رقم الحساب والعمله والاهم التاريخ ليعطينى الرصيد صحيح الرصيد التراكمى: DSum("Price";"wesam_tb1";"AccountName=" & [AccountName] & "And [PCurrency]=" & [PCurrency] & "and [dat]<=" & Format([dat];"\#mm\/dd\/yyyy\#")) والافضل باستخدام حقل رقم الحركه كما بالمرفق الثانى QTRseed: DSum("Price";"wesam_tb1";"AccountName=" & [AccountName] & "And [PCurrency]=" & [PCurrency] & "and [dat]<=" & Format([dat];"\#mm\/dd\/yyyy\#") & "and [id]<=" & [id]) صوره من المرفق الثانى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق رصيد تراكمي.accdb رصيد تراكمي1.accdb

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

اهلا اخي رعد شوف الصورة حركة صندوق 2.accdb

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

بارك الله فيك اخي الكريم فقط احذف المعيار التالي من الاستعلام [forms]![Data01]![ItemBarcode] prov - Copy.rar تحياتي

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

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

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

مثال على كشف حساب عميل blns2000.zip