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

تفضل هذه مبادرة من طرفي حاول تكمله و اذا استصعب عليك شي كلنا في خدمتك Smart_Gym.zip مجلدات الصور.zip

بعد اذن اساتذتي هذا حل بالتنسيق الشرطي مقارنه الأسماء (1).xlsx وهناك حل أخر بالمعادلات و لكن هذا على عجل

إن شاء الله يكون هذا هو المطلوب تم الاستغناء عن عمود اسم اليوم وذلك بتنسيق عمود التاريخ تم إضافة جدول مساعد يتم استخدامه في عملية البحث mas_Labour A.rar

وعليكم السلام ورحمة الله وبركاته جرب الملف تلوين المكرر.xlsm

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

السلام عليكم و رحمة الله و بركاته لدى تصفحي لأحد المواقع الأجنبية وجدت هذا المثال لشاشة رقمية تقوم بعرض الرقم بطريقة فريدة و أحببت المشاركة مع إخواني في المنتدى .. Digital Display.mdb

السلام عليكم و رحمة الله و بركاته للأمانة المثال منقول ... الأداة المرفقة مفيدة جدآ لعمل اختصارات أثناء الكتابة يتم الاستبدال في الجدول Chart في الحقلين record و Artist بعد الضغط على زر تطبيق الاستبدال .. بالتوفيق Find And Replace.mdb

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

حياك الله أخي المحترم

شكر وتقدير واحترام من اخيك

تسلم ايدك استاذى د.كاف يار جميل ولمسات جمالية تحفة ربنا يكرمك يارب احترامى

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

قبل تغيير نوع الحقل قم بعمل نسخة احتياطية حتى لا يتسبب التغيير في فقدان بعض بيانات الحقل

هذه المشكلة بسبب تمكين حقل رقمي من نوع رقم كبير افتح القاعد باصدار 2016 البناء 16.0.7812 او احدث او اصدار 2019 ثم عدل الحقل من رقم كبير الى رقم ثم اعمل ضغط واصلاح انظر هنا 👇 وهنا ايضا 👇

السلام عليكم خاصية DIRTY مقصود بيها ايه ؟ و فايدتها ايه ؟

بالاضافة لما تفضل به الاخ الكبير @jjafferr تستعمل dirty في بعض الحالات مثال : اذا كان عندك نموذج وكتبت به بعض البيانات ولم تكملها جميعها واردت الخروج من النموذج تستطيع وضع كود ينبهك انه هناك بيانات في النموذج اذا تريد حفظها او لا If MsgBox("هل تريد الخروج؟", vbYesNo, "تأكيد الخروج") = vbYes Then If Me.Dirty Then If MsgBox("هل تريد حفظ الإدخال الحالي", vbYesNo, "حفظ السجل") = vbNo Then Me.Undo DoCmd.Close Else DoCmd.Save DoCmd.Close End If Else DoCmd.Close End If Else Me.xxx.SetFocus End If

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

1. الصور المضمنة في البرنامج هي التي تزيد من حجم البرنامج ، والحمدلله لم ارى اي منها في جداولك ، ولكن التقرير ww يحتوي على مجموعة صور مضمنة ، فيجب عليك ان تضع الصور في مجلد خارج البرنامج ، ثم تربطه اثناء عمل التقرير ، هكذا (لاحظ ان الصور في الكود هي لقسم التفصيل Detail ، فيجب عليك استعمال القسم الصحيح من التقرير لوضع حدث الكود فيه) : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo err_Detail_Format Dim BE_or_FE As String 'BE_or_FE = Application.CurrentProject.Path BE_or_FE = "D:\Project123\images" Me.Pic_BismAllah.Picture = BE_Path & "\" & "Images\BismAllah.jpg" Me.Pic_Section.Picture = BE_Path & "\" & "Images\Admin_Section.jpg" Exit_Detail_Format: Exit Sub err_Detail_Format: If Err.Number = 2220 Then 'ignor, picture not found Me.Pic_BismAllah.Visible = False Me.Pic_Section.Visible = False Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Detail_Format End Sub . 2. كما يمكنك عمل ضغط واصلاح ، حيث ان الاكسس يحتفظ بجميع البيانات التي حذفتها في البرنامج ، ولا يتخلص منها إلا بعمل "ضغط واصلاح" ، 3. يمكنك استعمال البرنامج المرفق في الرابط التالي ، فبالاضافة الى الرقم 2 اعلاه ، فهو يقوم بحذف بقايا الكود التي حذفتها والتي لا تزال في الاكسس : . 4. بعد عمل النقاط اعلاه ، فتح برنامج اكسس جديد ، ثم استيراد كائنات البرنامج السابق اليه 🙂 جعفر

جرب هذا الماكرو Option Explicit Sub test() Dim x x = InputBox("حدد المدى كالنمودج هنا b1:b10") If x = "" Then Exit Sub ActiveSheet.Range(x).Select End Sub الملف t.xlsm او هذا الماكرو حيث تدخل المدى الى فقط مثلا نكتب BD120 T فقط سيحدد من BD12:DB120 Sub test() Dim x, y y = "bd12:" x = y & InputBox("ادخل المدى الى مثلا bd111") If x = "" Then Exit Sub ActiveSheet.Range(x).Select End Sub الملف t.xlsm

سيدي الفاضل 🙂 هذا هو التقرير ww في وضع التصميم: 1. المثلث الاخضر ظاهر ، 2. انت مختار التقرير يطبع على ورقة A4 ، وعرض الورقة 11.69 بوصة (سيكون الرقم مختلف اذا كنت تستعمل السنتيمتر) ، . هامش الطابعة للجانبين (وهو المقدار الذي تحتاجها بكرات الطابعة لسحب الورقة) هو: 0.166 + 0.168 = 0.334 لمعرفة اقل هامش تحتاجة طابعتك ، يمكنك ان تضع اصفار في هذه الخانات ، ثم تنقر ok ، ثم تفتح النافذة مرة اخرى فترى الارقام ، ويُنصح ان تترك الهوامش على اكبر هامش وهو 0.250 ، وذلك حتى يتناسب مع طابعات الزبائن/المستخدمين بأشكالها ، الطابعات الافتراضية ، سواء لطباعة/تصدير pdf او صورة ، فيمكنك ان تضع اصفار في هذه الخانات ، . عرض التقرير هو: 11.6146 بوصة ، اذن عرض التقرير : 11.6146 + هوامش الطابعة 0.334 = 11.9486 عليه ، فإن عرض صفحة التقرير 11.9486 اكبر/اعرض من ورقة الطباعة 11.69 ، لذلك تحصل على صفحة بيضاء فارغة : . فالحل: . ولما ننظر للتقرير بوضع التخطيط ، نرى انه خارج حدود الاطار: . وهذا ما اخبرنا اخي الاستاذ خالد: . جعفر

جرب المرفق الجديد وارجو ان يكون هو طلبك MusndWZwayid 7.rar تحياتي

وعليكم السلام ورحمة الله وبركاته حسب فهمى لطلبك ارجو ان يكون بالملف المرفق طلبك النقل البري بيانات الموظفين (2).xlsm

تفضل التعديل التعديل الجديد - سيتم ارسال المعلومات لملف الوورد - سيتم حفظ التعديلات كنسخة جديدة بصيعة ( Word + PDF) - pdf5.zip StudentFile2021-06-15041817.docx StudentFile2021-06-15041817.pdf

وعليكم السلام 🙂 النموذج لما يتم فتحه ، تكون السجلات نظيفة me.Dirty=false ، ولما يتم التعديل على اي منها ، فيكون السجل me.Dirty=true ، فإذا اردت ان تطبع التقرير مثلا ، ولكن تريد إظهار بيانات السجل الذي انت عليه ، وقد تكون فد عملت تعديلات على السجل ، لذا فانت تريد التأكد من حفظ السجل قبل الطباعة ، فيمكنك عمل التالي قبل سطر طباعة التقرير: 1. docmd.runcommand accmdsaverecord يحفظ السجل بغض النظر ان السجل نظيف او لا 2. me.refresh يعمل انتعاش للنموذج ، والذي بدوره يجعل مؤشر البيانات ينتقل الى اول سجل وبما ان السجل يفقد التركيز ، فيتم حفظه تلقائيا ويعيد طلب البيانات من الجداول ، بغض النظر ان السجل نظيف او لا 3. me.requery تقريبا نفس طريقة عمل #2 اعلاه 4. if me.Dirty then me.Dirty=false اذا كان السجل غير نظيف ، فيقوم بحفظ السجل . رجاء تخيل ان قاعدة البيانات الخلفية موجودة على سيرفر ، لذلك يُوجب عدم مزاحمة السيرقر إلا في اضيق الحالات ، الطريقة: 1. تحفظ البيانات ، بغض النظر اذا كان الوضع يتطلب ذلك او لا ، ففيه عمل اضافي ، 2 و 3. تحفظ البيانات ، بغض النظر اذا كان الوضع يتطلب ذلك او لا ، ويطلب البيانات مرة اخرى من الجداول ، ففيه عمل اضافي بزيادة ، 4. تحفظ البيانات وقت الحاجة فقط ، فتكون هذه الطريقة هي الامثل 🙂 جعفر

ممكن ان تضع الكود السابق على حدث "عند تحميل" النموذج حتى لا ترى مكان ادخال السجل الجديد ، عندما تفتح النموذج لأول مرة ، وضع زر لإظهاره ، وضع هذا الكود على حدث "النقر" : me.AllowAdditions=true جعفر

تفضل جرب الكود test1.xlsm

وعليكم السلام 🙂 هو ليس سجل فارغ ، وانما مكان ادخال البيانات لسجل جديد 🙂 اذا ما تريده ، في حدث تحميل النموذج اكتب: me.AllowAdditions=false جعفر

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

كود مختصر للتعديل من برمجتي () Private Sub CommandButton1_Click For j = 1 To 55 Sheets(ListBox1.List(i, 1)).Cells(r, j) = Controls("TextBox" & j).Text Next j End Sub

كان عليك البحث في المنتدى اولا اليك الموضوع التالي فيه ضالتك

اليك الملفات مفتوحة شكرا finance-equations-calculates-ratios-irr-npv-unprotected.xls investment_valuation-unprotected.xls

اخواني الكرام مع تحياتي لكم جميعا و احترام لكم جميعا أرفق لكم الملف بعد التعديل و الاضافات مفتوح المصدر طبقا لملاحظتكم مع الشكر و التقدير Mecnical Mach Final Year 2012 UNP.rar