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

بعد اذن حبيبي أحمد نعم ضع المعيار الذي تريد في مصدر مربع التحرير انظر المثال ... تجربة تختصر عدد التقارير1.rar

قدحا من القهوة تجدد لك نشاطك .... ههههههه

جزاك الله خيرا اخى محمد كنت اضع المعيار فالحق الخطأ هههههههههه 😀 🤣 دانا ضايع خالص باين هقوم انام تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

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

اتفضل اخى بعد ما تختار التاريخ وتخرج هيرقم تلقائى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تجربة.rar

تم التعديل على الماكرو Function how_to_pay(Myfact As Long, n1 As Long, n2 As Long, n3 As Long) As Long Select Case Myfact Case Is <= 10000 How_Many = Myfact * n1 ' a Case Is <= 500000 How_Many = (10000 * n1) + (Myfact - 10000) * n2 ' a+b Case Is > 500 How_Many = (10000 * n1) + (50000 * n2) + (Myfact - 50000) * n3 'a+c+d+e End Select how_to_pay = How_Many End Function '=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Sub verifay_count() Dim M As Long, i%, X As Long With Sheets("Sheet1").Range("C3", Range("C2").End(4)) For i = 1 To .Rows.Count M = how_to_pay(.Cells(i), Range("k2"), Range("L2"), Range("M2")) / 1000 Select Case M Case Is < 100: X = 100 Case Is > .Cells(i).Offset(, 1) * 12 * 0.05 Select Case .Cells(i).Offset(, 1) * 12 * 0.05 Case Is < M: X = .Cells(i).Offset(, 1) * 12 * 0.05 Case Else: X = M End Select M = .Cells(i).Offset(, 1) * 12 * 0.05 End Select .Cells(i).Offset(, 2) = X Next End With End Sub الملف مرفق Facture_1.xlsm

بعد اذن استاذ حسين كمال حقل الكمية المتوفرة هو باسم B بالنموذج قائمة البيع تحياتي

اجعلها بهذا الشكل بدون تحديد اسماء النماذج [الكمية المتوفرة]=[الكمية المتوفرة]-[الكمية]

جرب المرفق New Microsoft Access Database.accdb

جزيتم خير نعم هو المطلوب بوركت هذه الايدي ( الاخ / محمد البرناوي ) والشكر موصول ( للاخ / أحمد الفلاحجي )

لا تنس اننا نتعامل مع القروش (كما انت ذكرت في المشاركة) 2) اثنى عشر قرشا في السنة عما يجاوز العشرة ألاف اذن 1 جنيه يساوي 100 قرش

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

هههههه ...... بارك الله فيك أخي الكريم

هل لاحظت المثال المرفق

الاخ khairi ali علي الله توكلت سأبدأ العمل ولكني لا احيذ المفاجأت في الطلبات بعد بدء العمل علي الموضوع فهل هناك اي طلبات او تعليمات اخري الله المستعان لقد تم عمل اللازم بنجاح ولكنك دخلت المنتدي ولم تكلف نفسك بالرد شكرا لك تفضل اخي شاهد المرفق Test_1.xls

السلام عليكم الرسالة تقول ( لا يمكن أن يحتوي الفهرس أو المفتاح الأساسي على قيمة فارغة) راجع تصميم الجدول اخي العزيز او ارفع الملف لغرض التعديل تحياتي

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

العفو اخى والشكر لله ثم لاخواننا واساتذتنا ومعلمينا اللذين تعلمنا ونتعلم منهم ممكن تستمعل الداله dmax وشوف الرابط ده حاول وان لم تستطع ان شاء الله نحاول مساعدتك قدر الامكان بالتوفيق اخى

وعليكم السلام اخى الفاضل @ابوصلاح ارفق لك ملف لاستاذ رضا عقيل جزاه الله خيرا لعلك تنتفع به فى برنامجك ان شاء الله تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق إضافة الرواتب للموظفين-لسنةوشهر ومكان العمل.rar

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

قم بانشاء شيت جديد باسم Salim ونفذ هذا الكود Option Explicit Sub Del_Exta_Rows() Dim S_sh As Worksheet 'source sheet Dim T_sh As Worksheet 'target sheet Dim Lrs% 'laste row in source sheet Dim Cols% 'laste column in source sheet Set S_sh = Sheets("Recovered_Sheet1") Set T_sh = Sheets("Salim") T_sh.Cells.Clear Lrs = S_sh.Cells(Rows.Count, 1).End(3).Row Cols = S_sh.Cells(1, Columns.Count).End(1).Column S_sh.Cells(1, 1).Resize(Lrs, Cols). _ SpecialCells(xlCellTypeConstants).Copy T_sh.Cells(1, 1).PasteSpecial (xlPasteAll) Application.CutCopyMode = False With T_sh.Range("a1").CurrentRegion .Columns.AutoFit .Borders.LineStyle = 1 .Cells(1).Select End With End Sub الملف مرفق ( شيت Salim ) DEL_ROWS.xlsm

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

السلام عليكم ورحمة الله تم إضافة بعض التسميات وأكواد في حدث الشيت... أرجو أن تفي الغرض المطلوب.... بن علية حاجي حضور.xlsm

لابد ان انوه عن روح المصابره لديك وصبرك وبحثك الدؤوب عن ايجاد حل لهذا الموضوع لفت انتباهي اليوم انك تجاهد للأيجاد حل للموضوع منذ منتصف اكتوبر 2019 طباعه الجزء المحدد في الورقة في نفس موقعه المحدد في الملف وليس في بداية الورقة من الافضل الأ نفقد الأمل دائما فغدا افضل دائما بإذن الله

الف شكر استاذ محمد جعله الله في ميزان حسناتك..

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

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

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله

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

وفيك بارك الله اخى @ابو البشر وجزاك الله خيرا اخى العزيز تقبلوا حياتى وتمنياتى لكم وللجميع بالتوفيق

أستاذ ziadi hor أين الضغط على الإعجاب ؟!!!! 💙

العفو اخى يوسف بلاش استاذ فلا تناسبنى فلست سوى طالب علم انظر لهذا التعديل لعله يناسبك مبدئيا الى انا يشاركنا احد اخواننا واساتذتنا الافاضل حاولت اعملك الرصيد التراكمى لكن موصلتش تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق موازنة 2020(3).accdb

وعليكم السلام-تفضل New Microsoft Excel Worksheet1.xlsx

السلام عليكم تم عمل المطلوب في الملف المرفق بواسطة المعادلات وجداول مساعدة (ملونة بالأصفر الفاتح وأحد الجداول يحوي معادلات صفيف)... أرجو أن يفي الغرض المطلوب في انتظار من يقوم بالمساعدة بواسطة حل بـ VBA... بن علية حاجي رصد الدرجات.xlsm

تفضل هذا التعديل اخي الكريم GYM.accdb

بارك الله فيك الشرح موجود داخل الملف الماكرو اسمه الدرجة 1اعمال سنة بالحروف تربية اعدادى رياضيةطبقا للقرار 311 لسنة 2019.xlsm

تفضل هذه فكرة مبدئية تم عملها على VB.NET مرفق ملف التثبيت و ملف المشروع بالكامل اسم المستخدم : 1 كلمة المرور : 1 WindowsApplication1.zip publish.zip

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

وعليكم السلام ورحمه الله وبركاته اتفضل اخى 3 امثله جزاها الله خيرا ام عهود تقبل تحياتى تقرير يعرض ما تم اختياره من Listbox فقط,up.rar عرض اكثر من تقرير للاختيار من بينهم التقرير المطلوب طبعهs.rar مشاهدة و طباعة التقارير من قائمة منسدلةort.rar

السلام عليكم بعد اذن استاذنا الحبيب احمد زمان هذا تعديل بسيط على الكود Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR, A, Rw Set App = WorksheetFunction Set TS = Sheets("تأخير") TS.Range("A6:S500").Clear TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS On Local Error Resume Next A = App.Match(.Name, TS.Range("J:J"), 0) If Err <> 0 Then If App.CountIf(.Range("N:N"), "<0") = 0 Then GoTo 9 Rw = TS.Cells(TS.Rows.Count, "J").End(xlUp).Row + 1 TS.Rows(2).Copy TS.Range("A" & Rw) TS.Range("A3:Q5").Copy TS.Range("A" & Rw + 1).PasteSpecial xlPasteFormats TS.Range("A" & Rw + 1).PasteSpecial xlPasteValues TS.Range("J" & Rw + 1).Value = .Name Err.Clear End If TR = App.Match(.Name, TS.Range("J:J"), 0) + 3 For FR = 5 To 999 If .Cells(FR, 14) < 0 Then For FC = 1 To 17 If Not IsNull(TS.Cells(TR, FC).Borders.Value) Then TS.Cells(TR, FC).Borders.Weight = xlThin TS.Cells(TR, FC) = .Cells(FR, FC) Next FC TS.Cells(TR, 19) = .Name TR = TR + 1 End If Next FR End With 9 Next FSN Set TS = Nothing: Set FS = Nothing: Set App = Nothing End Sub

يقول خبراء بان الخلافات المزعومة بين Exists و INفي التقنية و الاداء ناتجة عن عدم ادراك (implementations, limitations,bugs ) التطبيقات و المحددات او الحدود و الاخطاء لدى البعض ، و عموما ناتجة في غالبها عن قصور في فهم صحيح لقواعد البيانات . إن التحليل السليم وإحسان تعريف وإنشاء الجداول، ودقة الإحصاءات، وتكوين قاعدة بيانات سليمة ، لها تأثير على خطة التنفيذ للقاعدة وبالتالي على مقاييس الأداء والفاعلية . و للتفصيل نقول ، لا بد من ادراك المشغلات و الجمل و غاياتها و استيعاب تطبيقاتها و محدداتها ( حدودها ) قبل التعامل معها و / أو اختيار أي منها ، فلا بد من تطابق غايتنا من الاستخدام مع الغاية التي جعلها المطورون لهذا المشغل او الجملة ، بالاضافة لمراعاة الحدود و السرعة الافتراضية لاظهر النتائج و الوصول للغايات. و ابتداءا ... لماذا لا نتحقق من الناس الذين طوروا تلك المشغلات في أنظمتهم؟ الجواب المباشر من Microsoft يقول بان : IN Determines whether a specified value matches any value in a sub query or a list. لتحديد ما إذا كانت قيمة محددة تطابق أي قيمة في استعلام فرعي أو قائمة. EXISTS: Specifies a sub query to test for the existence of rows. تخصيص استعلام فرعي لاختبار وجود صفوف. و بالبحث في الغايات نجد أن : Exists مشغل يتحقق من وجود نتيجة استعلام فرعي ، يختبر المشغل ما إذا كان طلب البحث الفرعي يجلب صفا واحدا على الأقل ليعود بالقيمة True، اما اذا لم يتم إرجاع أي بيانات ، يقوم هذا المشغل بالعودة بالقيمة FALSE. Exists هو: · مشغل مقارنة comparison operator · يستخدم في جملة Where ليقيم شرط It Exists · يخبرك اذا كان الاستعلام قد عاد باي نتيجة · يعود بالقيمة True اذا كان الاستعلام الفرعي يحتوي أي صف SELECT agent_code,agent_name,working_area,commission FROM agents WHERE exists (SELECT * FROM customer WHERE grade=3 AND agents.agent_code=customer.agent_code) ORDER BY commission; IN مشغل يقوم بالتحقق من قيمة ضمن مجموعة من القيم مفصولة بفواصل واسترجاع صفوف الجدول المطابقة ، ويرجع بالقيمة 1 عندما تكون قيمة البحث الموجودة ضمن النطاق وخلاف ذلك يرجع بالقيمة 0. يمكن أن تكون قيمة التحقق قيمة نصية ، سلسلة أو كلمة أو جملة (string , word , sentence ) ، أو قيمة رقمية ، ويمكن أيضا التحقق من هذه القيم ضمن مجموعة من القيم مفصولة بفواصل واسترجاع الصفوف التي تحتوي على هذه القيم . SELECT * FROM agents WHERE working_area IN(‘London’,’Mumbai’,’Chennai’); و بالتنقيب بين ملاحظات المطورين و المستخدمين في باب الغايات و باب السرعة ، نورد لكم بعض الملاحظات و التطبيقات من هنا وهناك : IN يدعم فقط علاقات المساواة (أو عدم المساواة عندما يسبقه Not). وهو مرادف ل = أي / = بعض، على سبيل المثال select * from t1 where x in (select x from t2) ; Exists يدعم أنواع مختلفة من العلاقات، والتي لا يمكن التعبير عنها باستخدام IN ، على سبيل المثال select * from t1 where exists (select null from t2 where t2.x=t1.x and t2.y>t1.y and t2.z like '℅' || t1.z || '℅' ) ; في IN لا يمكن مقارنة أي شيء مع NULL ، ولكن شرط Exists يمكن مقارنة كل شيء مع NULL . عندما لا تعرف ان كان السجل موجودا أم لا، يجب عليك اختيار EXIST عندما يكون طلب البحث الداخلي لجلب ألاف الصفوف، سيكون Exists هو الخيار الأفضل عندما يكون طلب البحث الداخلي لجلب صفوف محدودة ، سيكون IN أسرع هذا عموم القول و بعض تفصيله .....

تم مالجة الامر اليك هذا النموذج special dat.rar

الموضوع منقول من احد المنتديات الان يمكنك تجزئة الاسم الكامل إلى اسم اول - اسم ثاني وهكذا مع مراعاة الاسماء المركبة فواصل الاسم.rar

جزاك الله خيرا لا زالت المعضلة الأسماء المركبة

أولا : تطبيق الفكرة داخل النموذج في حقول غير منضمة On Error Resume NextDim x As Integer x = Len([txtNm]) - Len(Replace([txtNm], " ", "")) 'هذا السطر لعد الفواصل بين الأسماء name1 = Split(txtNm, " ")(0) ' الصفر يعني ما قبل الفاصلة الأولى ​ 'اذا كان عدد الفواصل=1 يعني اسمين فقط سيتم تعييين الاسم الثاني كاسم عائلة If x = 1 Then name4 = Split(txtNm, " ")(1) If x = 2 Then name4 = Split(txtNm, " ")(2) ' If x = 3 Then name4 = Split(txtNm, " ")(3) ' If x = 4 Then name4 = Split(txtNm, " ")(4) ' وفي المثال غنية عن زيادة المقال يتبع .. _تجزئة النص في النموذج حسب التحديد .rar

سؤال جميل وتكثر الحاجة اليه فقد تكون الاسماء خماسية او رباعية او ثلاثية .... وتكون حاجتنا في اظهار الاسم الاول واسم العائلة فقط مثلا لذا فنحن بحاجة الى عدد خانات الاسم كما تفضل به الاخ السائل لكي نختار ما نريد من اجل هذا سيكون التطبيق التالي داخل الاستعلام لاختيار الاسم الاول واسم العائلة مهما تعددت الخانات

وإياك اخي الحبيب في وحدة نمطية عامة نلصق الجملة البرمجية التالية : Public Function qsplit(FullName As String, i As Integer) On Error Resume Next qsplit = Split(FullName, " ")(i) End Function لاحظ اننا انشأنا دالة جديدة بناء على الدالة الاصلية وجعلنا لها اسما قريبا من الدالة الاصلية حتى يتم التعرف عليها وعلى عملها من اول نظرة ولاحظ ايضا ما حدث لوسائط الدالة الاصلية وترتيبها حيث سيتم توظيف الدالة الجديدة داخل الاستعلام على النحو التالي : name1 : qsplit(FullName; 0) name2 : qsplit(FullName; 1) name3 : qsplit(FullName; 2) name4 : qsplit(FullName; 3) وفي المثال تطبيق للشرح والمقال : تجزئة النص.rar

يمكن تعدد حقول وجداول جملة select بمعنى أنه يمكننا الاستعلام من أكثر من جدول مثال على ذلك SELECT orders.order_id, suppliers.name FROM suppliers, orders WHERE suppliers.supplier_id = orders.supplier_id; ويكون ذلك باستعمال النقطة بين اسم الجدول واسم الحقل والاستعلام المذكور يعرض اسم المورد ورقم أمر الشراء في حالة تساوي رقم المورد في الجدولين

ومرفق لكم مثال الأستاذ محمد طاهر (وبتدخل بسيط مني) وبصراحة أعتبره أفضل مثال لتقسيم الأسماء حيث يشمل 1- تقسيم الإسم كاملاً 2- تجاهل المسافات بين الأسماء 3- تحديد أجزاء الإسم التي يجب ربطها بما قبلها أو بما بعدها (مثال عبد و أمة) أو تجاهل (مثال بن و بنت) وبالإطلاع على المثال سيتضح المقصود إن شاء الله تحياتي,,, تقسيم الاسماء.rar