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

وتكملة لكود اخي المهندس قاسم ، في حال لم يكن هناك صورة في المسار: Private Sub Form_Current() on error goto err_Form_Current Dim Path As String Path = Application.CurrentProject.Path & "\img\" Me![صورة0].Picture = Path & "1.jpg" Exit_Form_Current: exit sub err_Form_Current: if err.number=2220 then 'No image in path Me![صورة0].Picture = "" resume next else msgbox err.number & vbcrlf & err.description resume Exit_Form_Current end if End Sub جعفر

تفضل If Me.list1 = 4 Then DoCmd.RunSQL "UPDATE item SET item.home = True WHERE (((item.reqcod)=forms!F1!reqcod))" Else DoCmd.RunSQL "UPDATE item SET item.home = False WHERE (((item.reqcod)=forms!F1!reqcod))" End If Me.ORDER.Requery تفعيل خانة الاختيار في الفرعي للسجل الحالي2.accdb

Sub Test() Dim w, d As Object, r As Range Set d = CreateObject("Scripting.Dictionary") d.CompareMode = 1 With Range("A2", Range("A" & Rows.Count).End(xlUp)) .Interior.colorIndex = xlNone For Each r In .Cells If Not d.Exists(r.Value) Then ReDim w(1 To 2) Set w(1) = r With Application.WorksheetFunction w(2) = Array(.RandBetween(0, 255), .RandBetween(0, 255), .RandBetween(0, 255)) End With d(r.Value) = w Else w = d(r.Value) r.Interior.Color = RGB(w(2)(0), w(2)(1), w(2)(2)) If Not IsEmpty(d(r.Value)(1)) Then d(r.Value)(1).Interior.Color = RGB(w(2)(0), w(2)(1), w(2)(2)) w(1) = Empty d(r.Value) = w End If Next r End With End Sub

اخي مراد بما انك لم تقوم بارفاق ملف مدعوم بشرح كافي علي العموم تفضل التاريخ هجري - وملادي.xlsm

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

اعرض الملف مثال على تصفية فائمة بناء على اخرى بدون كود 3.0 - حالة خاصة هذا المثال يعالج حالة خاصة من الملف الاساسي الوارد ادناه ، بناء على طلب أحد الزملاء اولا هذه وصلة الملف الأصلي الصالح للحالات العامة: و هي الحاجة لتسمية أسامي الحقول بالقائمة الأساسية ( الخلايا الصفراء) بحيث تحوي مسافات مثل Agency 1 بدلا من Agency1 فى المثال الأصلي، و هنا لا يمكن تسمية النطاقات الفرعية باسماء بها مسافات لتماثل القائمة الاساسية، فيتم التحايل بتسمية النظاقات فقط مع استبدال المسافة ب "_" و تغيير المعادلة لتشمال استخدام الدالة Substitute مع الدالة Indirect كما هو موضح فى الصورة والمثال المرفق لتصبح المعادلة كما يلي : =INDIRECT(SUBSTITUTE(D23," ","_")) صاحب الملف محمد طاهر تمت الاضافه 23 فبر, 2022 الاقسام قسم الإكسيل  

مشاركة مع استاذي ابو خليل اثراء للموضوع تفعيل خانة الاختيار في الفرعي للسجل الحالي.accdb

وعليكم السلام استاذ ازهر طالما ان الصور في نفس الفولدر استخدم الكود التالي في حدث الحالي وشاهد النتيجة Private Sub Form_Current() Dim Path As String Path = Application.CurrentProject.Path & "\img\" Me![صورة0].Picture = Path & "1.jpg" End Sub

لعل هذا يفيدك

وعليكم السلام ورحمة الله وبركاته 🙂 . 1. سبب ظهور هذه الرسالة هو ان برنامج الاكسس على كمبيوتر المكتب (الكمبيوتر الذي عملت عليه البرنامج) ، فيه نسخة احدث من نسخة البيت ، القاعدة العامة هي: اعمل برنامجك على اقل/اصغر/اقدم نسخة ممكنه ، حتى تستطيع النسخ الاكبر/الاحدث ان تفتحه في وضع التصميم. 2. المفروض ان لا يحدث هذا (ولا علاقة لهذا باختلاف النسخ) ، فأكيد هناك كود او استعلام يقوم بهذا !! جعفر

وعليكم السلام 🙂 عندك طريقتين لكي "تحدد اليوم الذي يريدة الذي يبدأ الشهر منه" : 1. المعيار في الاستعلام مباشرة (يجب ان تكون الكتابة نفسها في المكانين) : . ولما نستخدم الكلمات العربية : . هذا هو الكود: Between [Please enter FROM date] And DateAdd("m",1,[Please enter FROM date])-1 . 2. في النموذج frm_Main في الحقل Date_From : فيكون المعيار في الاستعلام : . Between [Forms]![frm_Main]![Date_From] And (DateAdd("m",1,[Forms]![frm_Main]![Date_From])-1) . وهذا الكود DateAdd("m",1,[Forms]![frm_Main]![Date_From]) معناه اضف : m = شهر 1 = المدة التي نريد ان نضيفها [Forms]![frm_Main]![Date_From] = على هذا التاريخ فيعطينا شهر واحد بعد هذا التاريخ ، ولكنك تريد شهر ناقصا يوم واحد ، لهذا السبب نضيف 1- في نهاية الامر جعفر

السلام عليكم اخ @lionheart جزااك الله كل خير the code work very good the problem is change the line Cells(r + 4, "H").Value = x.name to Cells(r + 4, "H").Value = x.Caption thank you very match

You didn't explain the problem well. Please be sepcific and put the desired output as an image if you wait more help Private Sub btnOk_Click() Dim x As Control, s As String, r As Long Range("H1:H30").Clear For Each x In UserForm2.Controls If TypeName(x) = "CheckBox" Then If x.Value = True Then r = r + 1 s = s & IIf(s = vbNullString, vbNullString, vbLf) & x.Name Cells(r + 4, "H").Value = x.Caption End If End If Next x Range("H4").Value = r End Sub

1/ ارسل شيت متكامل مثل الذي تستخدمه في عملك حتي اعرف امرين : أ- البيانات تبدا من اي سطر (بدون سطر العنوان)؟ ب- ما هو اول عمود واخر عمود في البيانات؟ بعد معرفتي لما جاء اعلاه سيتم تعديل الكود بكا يتوافق مع شيتات عملك وبعدها ساعطيك طريقة نقل الاكواد 2/ من الصعب تترك الاسم الجديد بدون لون لان بدون لون هو اصلا لون ابيض تخيل انك اضفت 20 اسما جديدا مرة واحدة فقط فكل هذه الاسماء الجديدة سيكون لونها ابيض وتبدو وكانها متطابقة لان لها نفس اللون

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

تفضل جرب هذا تلوين العملاء.xlsm

قبل ان تقوم باضافة طلبات اخرى وجب عليك قراءة هذا الشيء

السلام عليكم .. اضافة جديدة على التطبيق الثالث صلاحيات المستخدمين .. قمت بالتعديل على الكود قليلا الآن اذا لم يكن للمستخد الحالى صلاحية عرض التقارير مثلا لن تظهر القائمة الفرعية فارغة كما فى السابق ولكن قائمة التقارير الاساسية لن تظهر من الاساس وستظهر فقط اذا كان عدد العناصر فى القائمة الفرعية اكبر من صفر ,, مرفق التعديل Amr Multi Level Menu-Some Objects - Users - V3.0.accdb

اختر اسم الشيت من الخلية الصفراء ثم ادخل كلمة المرور في الخلية الخضراء تفضل كلمة مرور لكل شيت.xlsm

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

السلام عليكم ورحمة وبركاته هذا برنامج خاص بالوحدات العسكرية وهو عبارة عن المستلم لكل فرد من سيارات وأسلحة وأجهزة منتظر آرائكم وخاصة من أخواننا العسكريين لتطويره .... أبو ليان ________________________.rar

السلام عليكم اخي عبدالله الطريقة اللي انا اعمل عليها في معظم برامجي ، اني اضع خلفية البرنامج BE ، وجميع المجلدات ، مع بعض ، مثلا: و . بهذه الطريقة ، 1. اذا اردت تغيير مكان البرنامج ، او نقله الى سيرفر ، او الى هارد دسك اسرع SSD مثلا ، فكل اللي اعمله هو ، مجرد نقل المجلد رقم 1 الى المكان الجديد ، وهذا الرابط فيه مثال على هذه الطريقة . 2. في الرابط ، فيه وحدة نمطية ، احفظها في برنامج FE ، . هذه الوحدة النمطية تنظر الى مكان/مسار وجود الجداول ، يعني ممكن البرنامج لا يكون مجزأ ، ويمكن يكون مجزأ الى FE و BE ، وتخبرنا الوحدة النمطية عن مكان وجودها (الجداول) ، ونناديها هكذا: msgbox BE_or_FE ، ولما نعرف مكان وجود BE ، فإننا نستخدم هذا المسار ، لمعرفة مسار جميع المجلدات الموجودة معه في نفس المجلد (طبعا هذا اذا عملت مثل طريقتي) ، ولهذا السبب ، فجداولي لا تحتوي على حقل مسار الصورة ، لأن المسار دائما ثابت والوصول اليه هو عن طريق مكان وجود برنامج BE ، فإذا اردت ان اقرأ الصورة ، هكذا (حسب الصوره اعلاه) حسب الصورة على اليمين me.Pic.Picture = Images_Location & "\Personnel_Images\Employee_Pictures\" & me.Employee_ID & ".jpg" وحسب الصورة على اليسار me.Pic.Picture = Images_Location & "\Images\Employee_Pictures\" & me.Employee_ID & ".jpg" . وطبعا تحفظ الصورة على نفس المسار اعلاه ، و الوحدة Image_Location تأخذ قيمتها من مكان وجود BE وهي من الوحدة BE_or_FE Function Images_Location() 'If we want the Backend Folder Images_Location = BE_or_FE & "\archive" 'or we can assign any location we want 'Images_Location = "\\Server01\Images\archive" End Function . ودائما عندك الاختيار ان تجعل مجلد الصور في مكان مختلف عن مكان وجود قاعدة البيانات ، لذلك تستطيع ان تكتب المسار في نفس الوحدة Image_Location ، وتقرأ الصور او تحفظهم بنفس الكود بعاليه. جعفر

الاخ العزيز بعد نقل الملف ل15 مرة مفيش حد اعترض وانا نزلته لتجربة فك الضغط فهو سليم وعموما ارسلت فيديو لطريقة فك الملف وهو سليم مجدى يونس فك الضغط.rar