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

هذا الموضوع يذكرني في مشاركة لي في منتدى اجنبي: صاحب الموضوع وضع شرح طويل عن مشكلته ، وقامت خبيرة بالرد على سؤاله بسطر واحد ، وعلى سبيل المزاح قلت لها: حرام ان صاحب الموضوع يكتب هذا الكم من الكلمات ويحصل على اجابة سطر واحد !! ثم وضعت كود بعدة اسطر (ولم يكن افضل من كود السطر) وقلت لصاحب الموضوع لا تزعل وتفضل اجابة بكود اطول 🙂 والذي استغربت منه هو ، ان صاحب الموضوع قام بإختيار طريقتي كأفضل حل !! ولما قلت له اني كنت امزح في وضع الحل ، وان الحل الافضل هو كود السطر الواحد ، رد عليّ قائلا: يتم الدفع لي على البرمجة بعدد الاسطر التي اكتبها 😬 وطبعا اخوي خالد انت عرفت بأن هذا السطر كان مزحة 🙂 اخوي ازهر ، عدد الاسطر الحقيقية لهذا الكود هي: R = Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace("y0372023r0b9g0v5", "q", ""), "w", ""), "e", ""), "r", ""), "t", ""), "y", ""), "u", ""), "i", ""), "o", ""), "p", ""), "a", ""), "s", ""), "d", ""), "f", ""), "g", ""), "h", ""), "j", ""), "k", ""), "l", ""), "z", ""), "x", ""), "c", ""), "v", ""), "b", ""), "n", ""), "m", "") وعلشان يكون الكود اوضح للفهم والقراءة ، فيصبح: R = Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace( _ Replace("y0372023r0b9g0v5", "q", "") _ , "w", "") _ , "e", "") _ , "r", "") _ , "t", "") _ , "y", "") _ , "u", "") _ , "i", "") _ , "o", "") _ , "p", "") _ , "a", "") _ , "s", "") _ , "d", "") _ , "f", "") _ , "g", "") _ , "h", "") _ , "j", "") _ , "k", "") _ , "l", "") _ , "z", "") _ , "x", "") _ , "c", "") _ , "v", "") _ , "b", "") _ , "n", "") _ , "m", "") جعفر

تفضل هذه المشاركة من طرفي Dim fldrname, fldrpath, MyFile As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & "Files" If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If MyFile = CurrentProject.Path & "\Files\" & Me.m_name & ".pdf" DoCmd.OutputTo acOutputReport, "اسم التقرير", "PDFFormat(*.pdf)", MyFile, False, "", , acExportQualityPrint

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

وهذه نتيجة عد الاحرف =Len([tx2])

يامرحبا ترحيبة كلها لك انا اقول لك جرب كودك في استعلام بعد اسنادة لحقل النص المطلوب تعديله سوف يعمل ببطء شديد وكل ماكانت السجلات اكثر يكون اكثر بطء ثانيا انت استخدمت دالة الاستبدال بعدد احرف الهجائية الانجليزية وبالتالي عدد احرف الكود لديك اكبر ههههههه ثالثا لو كان الحقول مختلطة باحرف ورموز كودك استاذنا لن يعمل حتى تقوم باضافة هذه الرموز رابعا لو كانت بعض الحقول تحتوي على احرف عربية ايضا لن يعمل وسيكون لدينا حمسين Replace اما بشأن العمل في الاستعلام فالاستاذ ازهر لم يحدد ويمكن بتعديل بسيط تعديله الى وحدة نمطية وسوف يعمل Public Function ExNum(sInput) As String Dim s As String, w As String Dim k As Integer If Not IsNull(sInput) Then For k = 1 To Len(sInput) w = Mid(sInput, k, 1) Select Case w Case "0" To "9" s = s & w Case Else End Select Next k End If ExNum = s End Function وللاستدعاء exnum([tx]) وكل عام وانت بخير

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

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

جرب هذا الان أنشئ مجلد على قرص دي أوي أي قرص ولكن غير الارتباط في جدول aa ثم اضغط زر pdf في نفس النموذج ثم اذهب إلى المجلد تجد الملف بالاسم انظر في جدول aa تجد المسار واسم المجلد حفظpdf.accdb

تفضل 🙂 عملت لك نموذج للتصدير 🙂 جعفر 1371.حفظpdf.accdb.zip

انا عملت نسخ ولصق للكود الذي وضعته ، وكان فيه شيء خطأ ، وفيه خطأ من جانبي كذلك ، وتم تصحيحهم 🙂 فجرب هذا : If DCount("MODELS", "MARKA", "[MODELS]= '" & Trim(Me.MODELS) & "'") > 0 Then MsgBox "هذه الماركة مسجل مسبقاً", vbCritical + vbDefaultButton1 + 1572864 cancel=true Me.Undo End If جعفر

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

في النموذج على حدث "الحالي" ، اجعل استعلام او تقرير يأخذ قيمة من هذا السجل ، ويعمل تصفية سجلات للإستعلام او التقرير او حتى نموذج آخر فردي ، واستعمل اسم هذا الكائن في الامر اللي عندك ، الموضوع في غاية السهولة 🙂 جعفر

اتفضل التعديل DATA200024.mdb.zip

الحمدلله وصلنا الى حل 🙂 الله يطول عمرك ان شاء الله ، الاكسس ما عنده امر بحفظ سجل فقط بين سجلات !! فيا تعمل نموذج لسجل واحد فقط (وتستعمل acForm في امر الطباعة) ، او تقرير acReport ، او استعلام acQuery ، وبعدين تستعمل الامر اعلاه وتصدر الملف 🙂 والخيار بين ايدكم سيدي 🙂 جعفر

جرب هاي التعديل Dim X As String X = "C:\Users\arapo\Documents\Reports" X = X & "\" & Me.m_name & ".pdf" DoCmd.OutputTo acForm, Me.name, acFormatPDF, X, True, , , acExportQualityPrint جعفر

سؤال ! ماهو الغرض من هذه العملية ؟

وعليكم السلام 🙂 يجب ان تكتب مسار حفظ الملف على الكمبيوتر ، مجرد اسم العميل لا يكفي 🙂 مثلا: Dim X As String X = Environ("USERPROFILE") & "\Desktop" 'Desktop path X = X & "\" & Me.m_name & ".pdf" DoCmd.OutputTo acSelection, X, acFormatPDF جعفر

جرب هذا الملف الكود Option Explicit Function Elctric(Sm, n1, n2, n3, n4, n5, n6, n7) Dim x# If Sm <= 0 Then Elctric = 9 Exit Function End If Select Case Sm Case Is < 50: x = (50 - Sm) * n1 Case Is < 100: x = 50 * n1 + (Sm - 50) * n2 Case Is < 200: x = 50 * n1 + 50 * n2 + (Sm - 100) * n3 Case Is < 350: x = 50 * n1 + 50 * n2 + 100 * n3 + _ (Sm - 200) * n4 Case Is < 650: x = 50 * n1 + 50 * n2 + 100 * n3 + _ 200 * n4 + (Sm - 350) * n5 Case Is < 1000: x = 50 * n1 + 50 * n2 + 100 * n3 + _ 200 * n4 + 350 * n5 + (Sm - 650) * n6 Case Else: x = 50 * n1 + 50 * n2 + 100 * n3 + _ 200 * n4 + 350 * n5 + 650 * n6 + (Sm - 1000) * n7 End Select Elctric = x End Function الملف مرفق Electric.xlsm

اسم مسفر يعني الشعاع والضوء .. من الاسفار وهو طلوع الصبح بعد الظلام الف شكر لك ولجميع من شارك من احبتي حسب توجيهك عزيزي مسفر : جعلت الهوامش = صفر ..... اصبح كل شيء تمام .. زالت المشكلة

قم بتعديل عرض التقرير مع اعدادات الطابعة اذا

يوجد خطأ في التعديل تفضل هذا التعديل DATA200023.mdb.zip

العفو اخي الكريم و ستجدني في الخدمة دائما

الله يسعد ايامك تفضل abcd.accdb

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

تفضل يرجى تعديل كود الحذف والتعديل (1).xlsm

تفضل التعديل IT_V1.rar

احسنت اخي العزيز بارك الله فيك . ممتن لك , الآن الكود يعمل بصورة صحيحة . شكراً جزيلاً لك . وياريت تكمل فضلك وتعدل كود الحذف مع الحفاظ على التسلسل

جرب ورد يرجى تعديل كود الحذف والتعديل (1).xlsm

تفضل هذا التعديل DATA200022.mdb.zip

يوجد لديك صفوف كثيرة غير مستخدمة مرفق الملف بعد حذف الصفوف الزائدة والمساحات الفارغة الناتجة من استخدام تنسيق لأعمدة كاملة وكذلك تحويل النطاقات إلى جداول بغرض التوفير في المساحة وابقاء المعادلات في حال زيادة صفوف جديدة انخفضت مساحة التخزين المستخدمة إلى 155 كيلو بايت مرفق الملف وللتخلص مستقبلا من أي مساحة فارغة أسفل الجداول: 1. Press Alt+F11. 2. Press Ctrl+G. 3. Type: ActiveSheet.UsedRange 4. Press Enter. 5. Save workbook. الجاري.xlsx

القيم __.xlsm

تفضل جرب المرفق hg.xlsm

وعليكم السلام 🙂 معذرة اخوي خالد ، بدل ما يستعمل اخوي ازهر كودك ابو 8 اسطر ، انا اقدم له حل ابو سطر واحد فقط ، ويشتغل في الكود والاستعلام Remove_Letters: Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace("y0372023r0b9g0v5", "q", ""), "w", ""), "e", ""), "r", ""), "t", ""), "y", ""), "u", ""), "i", ""), "o", ""), "p", ""), "a", ""), "s", ""), "d", ""), "f", ""), "g", ""), "h", ""), "j", ""), "k", ""), "l", ""), "z", ""), "x", ""), "c", ""), "v", ""), "b", ""), "n", ""), "m", "") جعفر الحروف على تسلسل لوحة المفاتيح 🙂

جرب المرفق كود في حدث الشيت ويفي بالغرض ان شاء الله القيم __.xlsm

جرب Dim k As Integer Dim x As Integer For k = 1 To Len(tx) x = Asc(Mid(tx, k)) If x >= 48 And x <= 58 Then Me.tx2 = tx2 & Mid(tx, k, 1) End If Next k مرفق مثال Database1641.accdb

وعليكم السلام ورحمة الله وبركاته نعم كثرت المصادر هذه الأيام صارت تحدث زغللة للعين ان صح التعبير فلا تدري الي ايهم تصير وايهم تتبع ولكن لا تقلق فالأمر بسيط ان شاء الله ان توافرت لك الهمة علي التعلم فالتزم بمصدر تعليمي واحد ترتاح اليه تعلم منه الاساسيات أولا (كبناء الجداول والاستعلامات وبناء النماذج والتقارير) وانصحك بالبحث هنا بهذا المنتدي عن هذه الأساسيات وستجد ما يسرك ان شاء الله ثم اعلم ان ما حيرك هذا هو مجموعة من الأدوات واسمح لي بهذا التشبيه: كأدوات المطبخ ( السكين والمعلقة والشوكة و..) هي كثيرة ومعظمها يستعمل فيما يستعمل به الأخر ولكنها في النهاية أدوات لكل اداة منها غرض خصصت من اجله. ولكن في النهاية انصحك بتنفيذ ما تتعلم فبدون ممارسة سيصبح الأمر اصعب عليك من قيادة الطائرة 😁 ابدأ بتنفيذ فكرة تدور برأسك واستخدم فيها ما تعلمت وما يتعذر عليك القيام به اطرحه بموضوع علي هذا المنتدي وستجد الأيادي البيضاء تمتد اليك من كل جانب تحمل لك فكرة جديدة او قديمة تنبهك لاستخدامها بطريقة سهلة او لم تكن تعلم كيف يتم استخدامها من قبل. أعتذز عن هذه السفسطة 😁 والكلام الكثير - ولكن ارجو ان اكون افدتك بشئ ولو يسير

وعليكم السلام 🙂 1. اعمل استعلام حذف : . 2. في الواقع انت محتاج الى استعلام الحاقي ، ولكن بالبيانات من الجدول الآخر ، فيصبح الاستعلام هكذا : . ملاحظات مهمة على برنامجك ، حتى حتى لا تحصل على مشاكل في المستقبل : 1. لا تستعمل Lookup في الجدوال ، وانما استعمل استعلام ربط بين جدولين للحصول على المطلوب ، 2. لا تستخدم علامات او ارقام كأسمات لكائناتك ، وبالذات العلامات والاسماء المحجوزة للاكسس ، 3. لا تستعمل اسماء بحروف عربية في كائناتك ، 4. لسرعة عمل الجدول ، يجب عمل حقل المعرّف (مفهرس وترقيم تلقائي) ، والحقل الذي تعتمد عليه كمعيار للنمييز بين السجلات , حقل الاسم (يجب ان يكون مفهرس) : جعفر 1369.نسخ البيانات.mdb.zip

السلام عليكم ربما لاحظت أن المعادلات لا تعمل مع شيتات الأشهر التي عدد أيامها لا تساوي 31 يوم... بمعنى آخر أن الجداول في هذه الشيتات غير متماثلة ... وفي الملفات المرفقة حلين ممكنين إما أن نطابق الجداول فنجعل عدد أعمدة أيام الشهر يساوي 31 عمود (من العمود D إلى العمود AH) ونحافظ على المعادلات التي وضعتها (الملف Attend-V5.xlms)، وإما أن نعدل كل المعادلات حسب عدد أيام كل شهر (وعدد أيام كل شهر تم جلبه من الخلية B4 من كل شيت من شيتات الأشهر) وتجد ذلك في (الملف Attend-V6.xlms). تم حذف العمود الفارغ AH من شيت June في هذا الملف... أرجو أن تفي الغرض المطلوب... بن علية حاجي attend-v5.xlsm attend-v6.xlsm

جرب هذه المعادلة في الخلية H9 واسحب نزولاً =IFERROR(SUM(OFFSET(INDEX($A$2:$A$37,MATCH($J9,$A$2:$A$37,0)):INDEX($A$2:$A$37,MATCH($I9,$A$2:$A$37,0)),,1)),"") الملف مرفق Hafez.xlsx