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

وعليكم السلام-يمكنك استخدام هذه المعادلة وشكراً =IF(COUNTIF($D$2:D2,D2)=1,"أول فاتورة","") تكرار الشراء1.xlsx

حسب ماوضحت لك وكما موجود في الصورة ولهذ احتجت لاعادة ترتيب اعمدة جدول العملاء سواء في جدول Financial_Record او في النموذج الرئيسي والفرعي هكذا

وعليكم السلام اخي ابو الحسن تفضل التعديل Test1(1).accdb

شاهد المرفق اخي تم حذف الخلايا المدمجة في جدول الاوائل المصنف1.xlsm

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

انتهيت ولله الحمد 😄 للتحميل من المرفقات ( دعوة للتجربة وإبداء الرأي ) 😊: الروزنامة الأسبوعية.accdb

وعليكم السلام 🙂 اولا ، الحمدلله انك قدرت تعمل تصدير لبيانات الاستعلام 🙂 ثانيا ، اليك طريقتي: هذا هو الاستعلام qry_Export_Text . استعمل هذا الكود لتصدير الاستعلام الى ملف نص ، ولا تغير شيء في الكود سوى المتغيرين: Query_Table_Name و File_Path Dim Temp As String, File_Path As String, Query_Table_Name As String Query_Table_Name = "qry_Export_text" File_Path = "D:\me.txt" DoCmd.TransferText acExportDelim, , Query_Table_Name, File_Path, False, , 65001 Open File_Path For Input As #1 Temp = Input(LOF(1), #1) Close #1 Temp = Replace(Temp, Chr(34), "") Open File_Path For Output As #1 Print #1, Temp Close #1 . وشرح الكود: تصدير نص ، اسم الجدول/الاستعلام ، اسم ومسار الملف التصدير ، لا تعرض اسماء الحقول ، 65001 معناه ان البيانات قد يكون بها حروف عربية Unicode لهذا فصيغة الحفظ يجب ان تراعي هذا DoCmd.TransferText acExportDelim, , Query_Table_Name, File_Path, False, , 65001 . لما عملت التصدير ، هكذا كان الملف : "02-May-22,1,74.29,0,,,,abu gehad,02-May-22,1,74.29,0,,,,abu gehad" "19-May-22,4,701.75,0,,,,sd investment,19-May-22,4,701.75,0,,,,sd investment" "19-May-22,10,32850,0,,,,sd investment,19-May-22,10,32850,0,,,,sd investment" . ولكني لا اريد علامة " في بداية ونهاية الاسطر ، وللعلم ، بلغة الكمبيوتر ، العلامة " = Chr(34) فقمت بقراءة ملف النص جملة/دفعة واحدة (لم اقرأ الملف سطر بسطر) ، وحفظه في المتغير Temp : Open File_Path For Input As #1 Temp = Input(LOF(1), #1) Close #1 . عملت امر بإستبدال العلامة " الى لا شيء ، وكما قلت اعلاه : بلغة الكمبيوتر ، العلامة " = Chr(34) فاصبح المتغير Temp يحتوي على نص الملف بدون العلامة " تحذير: اذا كان الملف يحتوي على علامة " في وسط الكلمات ، فيجب معالجة ملف النص بقراءته سطر بسطر ، ثم حذف اول وآخر " فيه ، ثم تجميع الاسطر. Temp = Replace(Temp, Chr(34), "") . الآن وقد اصبح النص نظيفا ، فنحفظه من المتغير الى الملف مرة اخرى (طبعا ملف النص يجب ان يكون مغلق) Open File_Path For Output As #1 Print #1, Temp Close #1 . والنتيجة 02-May-22,1,74.29,0,,,,abu gehad,02-May-22,1,74.29,0,,,,abu gehad 19-May-22,4,701.75,0,,,,sd investment,19-May-22,4,701.75,0,,,,sd investment 19-May-22,10,32850,0,,,,sd investment,19-May-22,10,32850,0,,,,sd investment جعفر

وعليكم السلام ورحمة الله وبركاته استبدل هذا الكود Sub ButtonClick(btn As MSForms.CommandButton) With btn If .Caption <> "" Then Me.TextBox1.Value = .Caption & "-" & Left(Me.CmbMonth.Value, 3) & "-" & Me.CmbYear.Value dte.TextBox1.Value = Me.TextBox1.Value Unload Me End If End With End Sub بهذا الكود Sub ButtonClick(btn As MSForms.CommandButton) With btn If .Caption <> "" Then Me.TextBox1.Value = .Caption & "-" & Left(Me.CmbMonth.Value, 3) & "-" & Me.CmbYear.Value If dte.TextBox1.Value = "" Then dte.TextBox1.Value = Me.TextBox1.Value Else dte.TextBox2.Value = Me.TextBox1.Value End If Unload Me End If End With End Sub

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

هذا جدول العملاء تعامل معه هكذا في جدول Financial_Record لا ان تقدم اسم العميل على رقم العميل

طيب جرب الكود دة في مربع التحرير والسرد Private Sub patient_name_AfterUpdate() Me. patient_name.Value = Trim(Me. patient_name.Value) End Sub ياسلام عليك ... دة انت خبير في النظر بردو 🤣

انا مبسوط لان مشاركتي لم تكن هي المطلوبة حتى نستفيد من استاذنا الرائع @احمد الفلاحجي

وعليكم السلام -طبعاً وبالتأكيد هذا مجهد ومتعب حتى لو كان الشخص محترف الإكسيل -أقترح عليك من الأفضل طبعاً عمل وفتح 12 صفحة بعدد شهور السنة ثم عمل صفحة أساسية للمدخلات اليومية ومنها يتم ترحيل كل مدخلات للشهر الذى يخصه وأعتقد ان هذا سيكون أفضل وأسهل بكثير وليس هناك داعى طبعاً لعمل صفحة لكل يوم لأنك بالتالى ستحتاج فتح أكثر من 360 صفحة بالملف مما سيجعل العمل على هذا الملف بطىء جداً وشكراً لكم-وذلك بإستخدام هذه المعادلة بجميع شيتات الشهور ... كما ان هناك صفحة تسمى Summary بها تجميع لكل شهر على حده =IFERROR(INDEX(Input!$A$5:$I$1000,AGGREGATE(15,6,(ROW(Input!$B$1:$B$1000)/(Input!$H$5:$H$1000=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1),1)+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1),1)))),ROWS(January!$A$1:A1)),MATCH(January!A$5,Input!$A$5:$I$5,0)),"") جميع مبيعات السنة-بالمعادلات.xlsm

تفضل اخي not offisna.xlsm

أولا : يجب توحيد العبارة التي تكتب في مربع البحث أي قد تكتب < 5.5 وقد تكتب <5.5 اقصد المسافات لذلك فكرتي باختصار : عمل مربعي قائمة الاول لاختيار علامة ( ><= الخ اخرة) والمربع الثاني تختار منها الرقم ثم عمل زر للبحث .... وفقط ... ثانيا : بعض المسميات المستخدمة هي عبارات محجوزة للاكسس والمفروض لا تستخدم مثل sub ....

شوف دا How To Get And Insert The Last Modified User Name In Excel?

انظر للسطر varFilter = (varFilter + " AND ") & "[Customer_ID] LIKE '" & Me.Customers & "'" هو يقرأ رقم العميل وليس اسم العميل وهذا الجزء في استعلام ملخص حسابات العملاء2 : Like "*" &[forms]![Form1]![Customers] & "*" يقرأ رقم ايضا وليس نص ..وطالما انك وضعت يوميات 2 فالكود قرأ رقم 2 فقط وظهرت لك النتيجة ..ولو انك وضعت في جدول العملاء يوميات1 فأيضا ستظهر لك النتيجة لانه قرأ رقم 1 المهم انا اعدت ترتيب استعلام العملاء في Form1 وجعلت رقم العميل في العمود الاول حتى يتم قراءته بشكل صحيح من استعلام ملخص حسابات والله اعلم

شكرا للجميع الكود للاستفادة مع شكر أ / hassona229 للمساعدة If UserForm1.Visible = True Then If UserForm1.TextBox1.Value = "" Then UserForm1.TextBox1.Value = Me.TextBox1.Value Else UserForm1.TextBox2.Value = Me.TextBox1.Value End If Else If UserForm2.Visible = True Then If search.TextBox1.Value = "" Then UserForm2.TextBox1.Value = Me.TextBox1.Value Else UserForm2.TextBox2.Value = Me.TextBox1.Value End If End If End if

وعليكم السلام-لا تنتظر ان يقوم احد بتصميم الملف لك -ابدأ بنفسك من فضلك بتصميم الملف واذا تعثرت فى جزئية فعليك برفعها هنا ... فكما تعلم يقيناً ان المنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة -فلا يمكن العمل على التخمين , فعليك برفع ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة ... أو يمكنك استخدام خاصية البحث بالمنتدى فبه طلبك !!! مثل برنامج اجازات الموظفين جلب بيانات من جدول الموظفين إلى نموذج الأجازات التعديل على ملف حضور وانصراف الموظفين برنامج شئون الموظفين

نعم هكذا بعمل الكود لانه بقوم بنسخ كل جدول مطلوب في شيت منفصل أي انه يتعامل مع شبت واحد به جدول واحد فقط حتي يمكن التحكم في تكيف جدول واحد كورقة واحده للمعاينة او الطباعة فلابد من غلق المعاينة حتي يذهب للثانبة ملاحظه : هذا كود من اصعب الاكواد التي قابلتني

متشكر جدا الواحد دماغه ساعات بتقف

وعليكم السلام-يمكنك استخدام هذه المعادلة =MAX(P7:P999) AGGING FILE1.xlsm

. اذا فتحت اي من برامج الاكسس عن طريق احد برامج Hex (مثل: http://www.mh-nexus.de) سترى ان هناك معلومات في الملف ، ولكن لما تفتح برنامجك ، فلا يوجد به اي معلومات ، وهذا معناه انه لايوجد شيء في الملف يمكن استرجاعه ، مثل ما قلت لك ، لا تضيع وقت زيادة في محاولة استرجاع الملف ، وانما ضع جهدك في الرجوع الى النسخة السابقة الاحتياطية Backup وواصل الطريق من هناك. جعفر

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

لقد حصلت عليها ـ جزاك الله خير ورزقك بغير حساب وجعله فى ميزان حسناتك

جزاكم الله خيرا

. نعم يتم الترقيم من اول سجل ، اما اذا اردت التحديث يصير من السجل اللي انت عليه ، اوقف عمل هذا السطر : جعفر

Private Sub CommandButton2_Click() Dim i As Long, ii As Long, lr As Long, c As Long lr = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row + 1 c = 2 For i = 1 To Me.ListBox1.ListCount - 1 For ii = 0 To 4 Sheet1.Cells(lr, c + ii).Value = Me.ListBox1.List(i, ii) Next ii c = c + 5 Next i End Sub

الاخ العزيز Eng.Qassim شكرا لك على مجهودك وسعة صدرك ولكن مساهمتك لم تكن هى ما أريد وجزاك الله كل خير الاخ العزيز احمد الفلاحجي جزاك الله كل الخير فعلا هذا ما كنت اريده فشكرا لك وجزى الله جميع الاخوة بالمنتدى الغالى كل الجزاء على علمهم النافع

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

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

نقاش رائع أساتذتنا @احمد الفلاحجي @Eng.Qassim ☺️ أخي بلال وضعته لك في مثال 🙂 : تضع الدالة على مصدر صندوق النتيجة هكذا : =DateDiff("yyyy";DateAdd("yyyy";3;[From]);[To]) التواريخ.accdb

جزاك الله خيرا اخي واستاذي @احمد الفلاحجي على هذه المعلومة بصراحة اخذت المعلومة لان لدي حاسوبين ..الاثنان يعمل بوندوز 7 ...لكن احدهما اوفيس 2010 والاخر 2013 وحينما اشتغل على الاول لا اضع الفاصلة المنقوطة !! ساتحرى عن الاعدادات

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

اخي شاهد المرفق ولا تنسي ضغط زر Page_Setup كلما غيرت حجم أي جدول Print_2.xlsm

بارك الله فيك وزادك الله من فضله

أحسنت استاذ ماجد مبدع دائما جزاك الله كل خير

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

اخى الغالى والعزيز على قلبى انت تعلم انى احب انتقاداتك لعملى وابداء رائيك وتصحيح اخطائى واعجابك لعملى شهاده ووسام على راسى وقلبى وتمكنى للعمل لم ياتى الا من توجيهاتكم اخوتى واساتذتى فلم اكن استطيع من قبل توظيف الدوال ولكن بفضل الله ثم بفضل ما تركتموه لنا من علم ينتفع به وتوجيهاتكم لنا فاصبحت استطيع التفكير وتوظيف ما تعلمته فجزاكم الله جميعا اخوانى واخواتى واساتذتى واصحاب السؤال عما تعلمته ع ايديكم خيرا فلا استطيع ان اوفيكم حقكم نعم اخى بعدما استفقت من نوبه الغضب التى كانت تملكتنى من فعل صباح هذا اليوم وصدق رسول الله صلى الله عليه وسلم قوله ـ صلى الله عليه وسلم ـ : ( ليس الشديد بِالصُّرَعَةِ ، إنما الشديد الذي يملك نفسه عند الغضب ) رواه البخاري . ربنا يسامح اللى كان السبب ورجعت الى المشاركه وتوضيحى وانتبهت لكلامك جيدا فلذلك وضحت انى سوف اصمت وابقى لاتعلم لان توضيحى ليس فمحله وناتج عن السرعه ايضا لاننى اعمل عمل آخر بعد عملى للاعانه ع ظروف الحياه واقتطع بعض الوقت من العمل للرد ع سؤال قد انول به دعوه صالحه تنفعنى فليس لى هدف من التعلم غير ذلك بالنسبه لجزئيه الاستغناء عن الجدول والاكتفاء بالاستعلام وخاصه انه سيتم حذف السجل من الجدول ياعزيزا على قلبى ادام الله على حبكم وودكم وخيركم وجزاكم الله عنى كل خير اسال الله لك ولجميع اخوانى واساتذتى ان يجازيكم عنى خيرا الجزاء فلا استطيع ان اوفيكم حقكم اللهم آمين لا اعلم بهذا الحدث لاننى كنت قد انقطعت فتره لظروف قاسيه ومستمره لمده 12 عام ان كان فالعمر بقيه وان شاء الله ستزول برحمه الله الواسعه وان كنت علمت فاننى فعليا لاارد ع صاحبها لعدم اثاره المشاكل ولكن ارسل رساله لمن لهم حق علينا واقبل راسه لاطيب خاطره نتعلم منكم كل طيب وحسن وانى اشهد الله انى احبكم جميعا فالله

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

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

يمكنك استخدام هذا الكود فى حدث Thisworkbook Private Sub Workbook_Open() Worksheets("æÑÞÉ1").Activate Range("c2").Select End Sub ورقة عمل1 Microsoft Excel جديد.xlsm

وعليكم السلام-لك ما طلبت projet2.xlsx

أحسنت استاذ عمر بارك الله فيك وجزاك الله خير الثواب بالتأكيد موضوع هام ومفيد للجميع

اخي الكريم munear جرب المرفق ..ادخل المودييل اولا ثم تاريخ الاستلام تثبيت معادلة.xlsm

تفضل ..... [اسم_الحقل_المراد_نقل_التركيز_إليه].SetFocus

السلام عليكم ورحمة الله أخي الكريم الخضر، ما أعرفه عن ملفات PDF أنها صور ولا يمكن التحكم في الصورة بواسطة البرامج مثل إكسيل... إن كان ولا بد تقوم بإنشاء نموذج صفحة مطابقة لوثيقة PDF عن طريق (مثلا) إكسيل مع إنشاء قاعدة بيانات تكون عناوين بياناتها الحقول الموجودة في هذا النموذج ثم الربط بين النموذج وقاعدة البيانات بمعادلات الترحيل وعند الطباعة نستخرج الوثيقة باستعمال خاصية "الطباعة إلى PDF"... والله أعلى وأعلم بن علية

في تصميم الجدول - خصائص الحقل غير نوع الرقم من صحيح الى مزدوج و التنسيق اختر رقمين بعد الفاصلة بالنسبة للسؤال الثاني ضع موضوعا جديدا لهذا السؤال

طباعه.rar والله تعب في الملف ده ياشباب اريد حل