كل الانشطه

السلام عليكم اخي مازال يوجد مشكلة حيث ان الصور تتغير في كل السجلات حيث اذا ادخلت سجل جديد وادخلت صور تتغير الصورر في كل السجلات اريد ان يكون الصور لكل سجل مستقلة

الف شكر اخي الكريم

السلام عليكم اللي يباركلك احتاج التعديل بحيث يتم اضافة 3 صور لكل سجل او شخص وللعلم اخي اني جديد في التعامل مع اكسس وحاولت لكني فشلت

تفضل من عباقرة المنتدى لعله ما طلبت إن شاء الله

وعليكم السلام ورحمة الله وبركاته بالنسبة لبرنامج فيجوال بيسك الخاص بالإكسل (VBA)، فأنت لا تحتاج لتحميله من أي رابط، ،لأن "فيجوال بيسك" (VBA) ليس برنامجاً مستقلاً يحتاج لتحميل، بل هو جزء أصيل ومدمج داخل برنامج الإكسل نفسه.

السلام عليكم عندي ملف ايكسل اريد. حماية بعض الخلايا بكود فيزيال بازيك كيف يتم ذلك شكل كود macro visual basic Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range) Set Rng = Range("e10,f10,g10,h10,i10") If Not Intersect(Tr, Rng) Is Nothing Then Tr.Offset(0, 1).Select Set Rng = Nothing End If End Sub

⏳ باقي من الوقت : 6 أيام حتى نهاية التحدى الثاني

اتفضل CARD.zip

View File اضافة مسار للصور السلام عليكم اخوتي الاعزاء الخبراء انا حديث مع التعامل بقواعد البيانات وحصلت علي ملف اريد استخدامة من اوفيستا لكن احتاج تعديل باضافة مسار عدد 2 صورة في النمودج ليكون الاجمالي 3 صور وق\د حاولت كثيرا وفشلت لذا ارجو من سعادتكم التكرم بالمساعدة Submitter حسام الفولي Submitted 04/24/2026 Category قسم الأكسيس  

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

السلام عليكم ورحمة الله وبركاته اريد رابط برتامج فيجول بيسك لتشغيل الماكرو في الاكسبل لوسمحتم

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

أعتقد الحل رياضياتيا صحيح، فقط المشكلة أني لم احترز لوجود خلايا فاضية بناء على المثال في المرفق السابق. لاحظ أجوبتك (مبهمة) غير صريحة!! يجب تحديد الخطأ بشكل واضح. محاولة أخرى بدون تغيير في النتائج فقط تم تبديل نوع المتغيرات احترازا عند وجود خلايا فاضية في العطل/الإجازات. Function Between(inDate As Long, Date1 As Long, Date2 As Long) As Boolean Between = inDate >= Date1 And inDate <= Date2 End Function Function getHolidays(Holiday1 As Long, Holiday2 As Long, _ Workday1 As Long, Workday2 As Long) As Integer Dim Date1 As Long, Date2 As Long 'On Error Resume Next 'Min date is 31/12/1899 If Holiday1 <= 0 Or Holiday2 <= 0 Then Exit Function If Between(Holiday1, Workday1, Workday2) Or _ Between(Holiday2, Workday1, Workday2) Or _ Between(Workday1, Holiday1, Holiday2) Or _ Between(Workday2, Holiday1, Holiday2) Then Date1 = IIf(Holiday1 >= Workday1, Holiday1, Workday1) Date2 = IIf(Holiday2 <= Workday2, Holiday2, Workday2) getHolidays = Date2 - Date1 + 1 End If End Function حساب أيام العمل خلال_04.xlsm

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

شكرا لك اخ علي وربنا يبارك فيك

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

لم أجد الحل، ربما علي أن أطرحه بشكل أخر لكم مني كل التقدير و الإحترام

ممكن الهدية فارغة واريد احط بيانات غير الموجوده

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

ماشاء الله وبارك الله فيك في ملاحظه اذا تسمح لي 1-في حالة اضافة( فرع )جديد او (موظف )جديد اخاف يكون الاسم مدخل مسبق 2-وهل استطيع بعد اضافة الموظف في الفرع رقم 1 وارغب في نقل الموظف الي الفرع 2 3- في حالة نقل الموظف الي فرع وتم سحب كشف حساب للموظف يكون مكونات الكشف حساب الفرع رقم 1 والفرع رقم 2 يعني مفصل من تاريخ الي تاريخ هذا والله ولي التوفيق

أخي الكريم @hanan_ms ، جميلة الأفكار لا شك .. ولكن ما علاقتها في نوع التحدي 😅 .

جزاكم الله خيرا على هذا المجهود الجميل.. وأعتذر إن لم أكن قد أوضحت فعلاً مقصدي . ولكن الحمد لله لحل الخلل 😇

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

وغليكم السلام ورحمة الله وبركاته الصورة وحدها لا تكفي لتحديد المشكلة، لأن الخطأ مرتبط بمحتوى الملف نفسه (مثل عناصر التحكم أو كود VBA). يرجى إرسال الملف حتى يمكن فحصه بدقة.