كل الانشطه

كل عام وأنتم بخير احرص تضيف الكود في موديول الصفحة نفسها أفضل من إضافته في موديول عام، أو أن تختار الصفحة الهدف أولا قبل تشغيل الكود. عدل في السطر بأن تضغ بعد علامة = رقم آخر سطر في الصفحة بدلا من الأمر مثلا: lRow = 300

تستطيع ذلك من شاشة التصميم ،، لاحظ هناك عدة اشكال ضمنها خط مستقيم ومستطيل وغيره ، بإمكانك اضافة الشكل الذي تريده و التحكم به.

الف شكر اخى الكريم وكل عام وانتم بخير وصحة عندما اضفت الكود للبرنامج لدى توقف الكود هنا lRow = ActiveCell.SpecialCells(xlLastCell).Row

السلام عليكم اريد معرفة كيف أرسم خط متقطع بين اربع مستطيلات فى تقرير ليتم قطع الورقة من عند هذه الخطوط.خط متقطع راسى وخط متقطع افقى

في هده الحالة سيتم الاستغناء عن عناصر label وتعويضها بالصور ضع الكود التالي في Module Option Explicit Public IM() As New Classe1 Sub USF() Dim c As Control, n% With UserForm7 For Each c In .Controls If TypeName(c) = "Image" Then ReDim Preserve IM(n) Set IM(n).IM = c n = n + 1 End If Next End With End Sub وفي Classe Module Option Explicit Public WithEvents IM As MSForms.Image Private Sub IM_Click() Dim c As Control For Each c In IM.Parent.Parent.Controls If TypeName(c) = "Frame" Then c.BackColor = RGB(255, 255, 255) Next 'Yellow IM.Parent.BackColor = RGB(255, 255, 0) 'Red..........= RGB(255,0,0) End Sub مع تعديل الاكواد التالية بعد حدف عناصر label Private Sub UserForm_Initialize() For c = 1 To 4 Me("Image" & c).Visible = False Next End Sub '*********************** Private Sub UserForm_Activate() Call USF With Me .startUpPosition = 3 .Width = Application.Width .Height = Application.Height .Left = 0 .Top = 0 End With End Sub ملاحظة Private Sub Workbook_Open() 'تم تعطيل الكود ليتمكن الجميع من الاستفادة Application.DisplayAlerts = False Application.Visible = False 'If Date >= DateValue("15/06/2024") Or Sheets("names").Range("zz1") = "eta" Then 'Sheets("names").Range("zz1") = "eta" 'MsgBox "call me 00201113135517" 'ThisWorkbook.Save 'Application.Quit 'Else UserForm7.Show 'End If End Sub 2.xlsb

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

تفضل استاذ @jo_2010 المرفق بعد التعديل . DDAdd&DeletePDF.LAST.rar

======================================= تحميل App_IMG_BooK V1.part1.rar App_IMG_BooK V1.part2.rar App_IMG_BooK V1.part3.rar

😂😇 استاذي @ابو جودي ❤️🌹🌹 الرعد قبل يوم العيد 😂 !تم انتهاء من بعض التعديلات يعني كامل ❤️🌹 1- اضافة مكتبة مع التحديث 2- اضافة تحديد الوسائط الصور او الكل 3- عرض مكتبة من غير حمل مع التصحيح والمكتبة صور 4-تحرير والحذف الصور من المكتبة المحدد 5-اضافة تحريك اكشن ما يوقف الا بعد ضغط على زر العرض والايقاف

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

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

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

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

جزاك الله خيرا أخي الكريم وهنا عندي استفسار .. هل هذه التحديثات الأخيرة تعمل أيضا في المجموعة الأولى: الكتب التي تستخدم أرقام الأحاديث ؟ أم أنه خاصة بكتب الصفحات ؟

بدل في رقم الإزاحة (2) واجعله 0 Cells(.Row, .Column + 2) = NewValue

1.xlsb1.14 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 downloads

فى انتظار ردكم

هل تقصد انك قمت باستبدال عناصر label بالصور ارفق ملفك مع الصور المرغوب اظافتها مع تحديد مكان تواجدها لنتمكن من تعديل الكود بما يتناسب مع الوضع الحالي

شكرا استاذ محمد على تفاعلك و شرحك اضقت صور بدل الكتابة .. لكن اختفى بعض الايقونات خلف بعض كما في الصورة ..

قرات المكتوب 1- للإضافة اختار (NEW) ثم اسم المريض ثم زر الاضافة 2- لحذف مجلد (Next) لتصل لاسم المريض المراد حذف مجلده ثم زر ازالة مجلد 3- لحذف صورة (Next) لتصل لاسم المريض واسم الصورة المراد حذفها ثم زر ازالة صورة زر new غير مفعل كيف افعلة لكى استطيع الاستمرار وتجربة البرنامج البرنامج اول ماتفتح البرنامج بيكون الزر غير مفعل اية خطوة البداية لتفعيل الزر

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

احتاج تعديل بلكود اخى يعمل من d2 وينفذ التعديل فى نفس العمود لا ينقل المعدل فf كل عام وانتم بخير وصحه وسلامه اشكرك اخي الكريم الحبيب

تم عمل اللازم المهم ان اللي عملت لك عبارة عن تأسيس ادرس المثال جيدا .. يمكن التطوير مستقبلا الجداول التي عليها العمل هي جدولي الحركة ( الرأس والتفصيل ) لذا عملت لك نماذج ادخال بيانات ( وارد / صادر ) يمكننا اختصار نموذجي الرأس بنموذج واحد ولكن فصلهما ارى انه اقوى لاجتناب الخلط والبعد عن زيادة الاكواد بقية النماذج يمكنك عملها على ما تبقى من الجداول لانها تعتبر نماذج خدمية رصيد اول المدة يتم ادخاله من نموذج الوارد .. ونكتب في الملاحظات : رصيد اول المدة ... ويمكننا ايضا كتابة هذه العبارة ضمن الموردين لاحظ : تم ضم جدولي العملاء ( موردين وطالبين ) ضمن جدول واحد تم ضم الاصناف الواردة والاصناف الصادرة في جدول واحد .. وفصل الكميات ( كل نوع في عمود يخصه ) هذه الطريقة تجعل الاستعلامات تعمل بكل يسر واستخراج الارصدة بطريقة صحيحة .. stock2.rar

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

طيب سنعمل على الطريقة المعتادة انتظرني سوف ارتب لك جداولك