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

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

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

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

إي والله يستاهل أبا بسملة أحمد الفلاحجى 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 امممم

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

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

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

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

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

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

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

بسم الله الرحمن الرجيم كما وعدت اساتذتي شارح الكود ولان جهازي بطيء بعض الشيء ولكي لا بفصل النت ويضيع ما اكتب ساكتب بعدة مشاركات ان شاء الله. اي كود يقوم على فهم الفكرة سيكون الشرح عن المخزون الفكرة تكمن اني اريد ان اعلم مقدار ما تبقى من المواد بعد ما تم صرفه والحل يكون على عدة خطوات لنتجاوز تسلسل الكود ولنفقز الى فهم الفكرة الخطوة الاولى:انشاء استعلام يدرج فيه كافة حركات ادخالات المواد مع عمود يقابلها بمجموع المخرجات للمادة مع الاخذ بعين الاعتبار المستودع الموجودة فيه mySQL = "SELECT trans.idproduct AS Prd, trans.datna AS xDate, trans.voucherno AS Doct,trans.description AS Doct1, trans.[in] AS Pr, trans.prix AS PP, nz([SumOfout],0) AS Sold, trans.idstore" & _ " FROM SalesTotal " & _ "INNER JOIN trans ON (SalesTotal.idstore = trans.idstore) AND (SalesTotal.idproduct = trans.idproduct) " & _ "WHERE trans.[in] > 0 And trans.[idstore] = '" & Forms!fautt1!autot7.Form!idstore & "'" & _ " and trans.idproduct='" & Forms!fautt1!autot7.Form!idproduct & "'" & _ "ORDER BY trans.idproduct, trans.datna;" Set qdf = db.CreateQueryDef(vbNullString, mySQL) Set Rs1 = qdf.OpenRecordset(dbOpenSnapshot) وهذا الاستعلام نستطيع ان نسميه جدلا استعلام افتراضي بدون امتداد لاسمه والهدف من ذلك حتى لا تتضر الى حذفه كلما اردت تنفيذ هذا الاستعلام لانه سينتج لك رسالة ان الاستعلام موجود مسبقا واذا اردت ان ترى الاستعلام باسم ايمن مثلا اكتب الكودالتالي qryName = "ayman" 'consumed is calculated in this query mySQL = "SELECT trans.idproduct AS Prd, trans.datna AS xDate, trans.voucherno AS Doct,trans.description AS Doct1, trans.[in] AS Pr, trans.prix AS PP, nz([SumOfout],0) AS Sold, trans.idstore" & _ " FROM SalesTotal " & _ "INNER JOIN trans ON (SalesTotal.idstore = trans.idstore) AND (SalesTotal.idproduct = trans.idproduct) " & _ "WHERE trans.[in] > 0 And trans.[idstore] = '" & Forms!fautt1!autot7.Form!idstore & "'" & _ " and trans.idproduct='" & Forms!fautt1!autot7.Form!idproduct & "'" & _ "ORDER BY trans.idproduct, trans.datna;" Set qdf = db.CreateQueryDef(qryName) qdf.SQL = mySQL qdf.Execute 'لاظهار الاستعلام المنشأ -ايمن-اعادة الانعاش Application.RefreshDatabaseWindow طبعا ترى هذا الكود في قاعدة البيانات المرفقة في شاشة الفواتير في النموذج الفرعي autot7 في حدث بعد التحديث fifo اخواني ساكمل بعد التاكد من اني وفقت في شرح الفكرة الاولى

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

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

تفضل اخي الكريم 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

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

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

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

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

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

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

ارجوا ان يكون المطلوب sa-كشف حساب.accdb

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