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

عليكم السلام والرحمة عسى يكون المطلوب مع ملا حظة أن الدرس السادس كما لا حظت فارغ دائما وإلا الكود لن يعمل إذا ولا بد اعلمني للتعديل ايجاد كود للتوزيع.xlsm

كما العنوان ، رسم Lines و Borders/Frames لتقارير الأكسس ، نسخة أولى تجريبية أنا مجهد وسأعود الليلة أو غدا للكتابة عن بعض التفاصيل وحيثيات التصميم والعراك مع برمجة المثال. اكتبوا ملاحظاتكم وطلب خاص مني وبشكل مؤقت ، لا ترفعوا نسخا معدلة ، فقط ضعوا ملاحظاتكم. وشكرا لكم. من ميزات المثال: أنه لا يجبر المبرمج على استخدام الرسم على كل حقول التقرير. أنه يتعامل مع عرض الخط/الإطار حسب الخصائص. أنه يتعامل مع لون الخط/الإطار حسب الخصائص. ومن عيوبه: قد يكون بطيئا عند كثرة البيانات وعدد الصفحات لفتح التقرير مرتين لزوم الحصول على بعض بيانات النسيق. عندي أفكار أخرى سأؤجلها حتى أرى مثال الأخ العزيز جعفر فقد أكتفي أو أقوم ببعض التحسينات بالاستفادة من مثاله. ملاحظات: العمل في هذا المثال أضافت إلي معلومات جديدة لأول مرة وهذا طبيعي فلم تكن لي حاجة بها قبل هذا المثال. DrawLinesAndBoxes4AccessReports_01.accdb

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

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل يا سيدي ، دالة تحذف المجلد واللي فيه : Function DelFolder(ByVal strDir As String) As Long On Error Resume Next ' to delete the directory and its contents Dim x As Long Dim intAttr As Integer Dim strAllDirs As String Dim strFile As String DelFolder = -1 strDir = Trim$(strDir) If Len(strDir) = 0 Then Exit Function If right$(strDir, 1) = "\" Then strDir = Left$(strDir, Len(strDir) - 1) If InStr(strDir, "\") = 0 Then Exit Function intAttr = GetAttr(strDir) If (intAttr And vbDirectory) = 0 Then Exit Function strFile = Dir$(strDir & "\*.*", vbSystem Or vbDirectory Or vbHidden) Do While Len(strFile) If strFile <> "." And strFile <> ".." Then intAttr = GetAttr(strDir & "\" & strFile) If (intAttr And vbDirectory) Then strAllDirs = strAllDirs & strFile & Chr$(0) Else If intAttr <> vbNormal Then SetAttr strDir & "\" & strFile, vbNormal If Err Then DelFolder = Err: Exit Function End If Kill strDir & "\" & strFile If Err Then DelFolder = Err: Exit Function End If End If strFile = Dir$ Loop Do While Len(strAllDirs) x = InStr(strAllDirs, Chr$(0)) strFile = Left$(strAllDirs, x - 1) strAllDirs = Mid$(strAllDirs, x + 1) x = DelFolder(strDir & "\" & strFile) If x Then DelFolder = x: Exit Function Loop RmDir strDir If Err Then DelFolder = Err Else DelFolder = 0 End If End Function جعفر

دكتور حلبي ، هل جربت الطريقة ؟

عليكم السلام طبعا الإضافة تكون بنفس الترتيب (I hope) حبذا لو مثال أو أمثلة في الشيتين طبعاً شكراً

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

ياريت تخبرنا عن طريقة بحثك للمواضيع ، لأني ملاحظ انك ما شاء الله عندك بنك من المعلومات الجاهزة (نقدا cash) 🙂 اعمل تقرير جديد ، ضع فيه التقريرين Rep_1 و Rep_2 كتقارير فرعية جنب بعضهم كما في الصورة ، و اضبط المسافات وحواشي الطباعة 🙂 جعفر

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

اخي الأستاذ أحمد الله يبارك فيكم .. المطلوب غير واضح .. ما الحاجة الى كود لتقريب الأعداد العشرية مع وجود الدوال Round، RoundUp، RoundDown ... وان كان مطلوبكم غير ذلك ، فلعلكم توضحون. دوال تقريب الاعداد العشرية.xlsx

اذا عندك مجلد مشاركة في شبكة ، وكان هذا المجلد على السيرفر او كمبيوترك ، وما تريد بقية الكمبيوترات تشوفه ، اكتب علامة الدولار قبل الاسم ، مما سيجعل المجلد مخفي لبقية الكمبيوترات على الشبكة ، ولن يروه 🙂 مثل: $myFolder جعفر هذا يشتغل على صيغة mdb ولا يشتغل على صيغة accdb ، وتأكد بأن كلمة السر طولها 12 حرف واطول ، وفيها حروف كبيرة وصغيرة وارقام ورموز (مثل ! @ # $ % ^ & * ) ( _ + = ) جعفر

السلام عليكم تم تعديل المرفق كالتالي 1- تعطيل عمل الزر .. 2- تطبيق مطلوبك على مربع السرد النصف الاول بمعنى انه سوف يتم ارسال التقرير حسب الاسم في مربع السرد يمكنك اكمال العملية وارى انك تجمع تقاريرك كلها في مربع تحرير واحد ويكون الفرق في تسمية التقارير مثلا : دراسات1 ، دراسات2 وهكذا ... تجربة2.rar

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع لاستخدام ctrl+f استخدم هذا الامر Application.SendKeys "^f", True