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

او ممكن على اذا كان اسم قسم التفصيل بالعربي 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 لكن دون فائدة . هل تجد لذلك حلاً 😘.

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

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

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

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

ممكن سؤال يا استاذ @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 امممم

اخي @mohamad dahleek تمام فهمت عليك ولكن بالنسبة ل او وجد الصفر اخر القائمة ولا يوجد بعده شي ؟ انت قلت نجمع مافوق الصفر .. وانا شايف انه يكون صفر لان الفكرة اعتقد هي تصفير ونقطة بداية .. فاكد علي هنا؟

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

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

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

الحلقة الثامنة: إستدعاء أحداث و دوال في صفحة ويب سوف نتطرق في هذا الدرس إن شاء الله إلى كيفية إستدعاء حدث لعنصر معين أو إستدعاء دالة موجودة في صفحة ويب. لقد قمت بالتعديل على صفحة ويب بإضافة بعض الكائنات و الدوال من أجل تطبيق هذا الدرس. صفحة الويب هذه موجودة مع المرفق كل ما عليك هو وضعها بجانب الملف. 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 شكرا كثر خيرك بارك الله فيك ولك قمت باضافة جديدة ولونتها بالازرق وانا فى غاية السرور وهذا البرنامج الذى ابدعت حضرتك فية ساحتفظ بة كاوسام على صدرى

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

وعليكم السلام-لك ما طلبت فقط عليك لجعل المعادلة هكذا طالما تريد نطاق الجدول =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

السلام عليكم استاذ فايز 🙂 بدل ان تطلب البيانات من الجدول 6 مرات : . تقدر تطلبها مرة واحدة فقط : جعفر

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

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

وعليكم السلام اتفضل اخى الفاضل ان شاء الله يكون طلبك بناء على رقم الحساب والعمله والاهم التاريخ ليعطينى الرصيد صحيح الرصيد التراكمى: 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

السلام عليكم هل ترغب في اظهار الرصيد السابق قبل كل عملية ايداع او صرف اذا كان هو المطلوب فان الاستاذ @اكرم العريقي اعطاك الحل الصحيح جرب المرفق حركة صندوق 1.accdb

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

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

اتفضل اخى تم تغير النموذج كله لان به بعض الاخطاء 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 اذن يتم تطبيق معادلة الرصيد العاديه بدون الرصيد السابق ولكن لا تنسى تـــراكـــمـــي وهي هنا في المثال .. [مدين]-[دائن] وتستطيع ان تحدد الرصيد ان يكون تراكمي عن طريق عمل رايت كليك على مربع نص الرصيد ثم خصائص ثم بيانات ثم مجموع تراكمي ثم قم بتحديد الخيار شامل ,,,

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