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

الغاء وتمكين عمل زر الـ Shift يتناسب مع جميع تنسيقات قواعد البيانات ولو كانت قواعد البيانات المحمية بكلمة مرور المرفق يتناسب مع كلتا النواتان 32 , 64 Bit تمكين الشفت.mdb

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

وعليكم السلام ورحمة الله وبركاته هلا بيك اخي الكريم ... ارجو ن تكون في صحة وعافية .... من طول الغيبات .... سررت برؤية مشاركتك ..

تفضل أخي العزيز عملتها لك في زر عند النقر على الأزرار الفرعية .. وكذلك عند مرور الماوس مرة تفتح ومرة تقفل 😁 test (2).rar

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

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

اهلا اهلا اهلا باخى العزيز والناقل الكبير قصدى الناقد 😀 وحشنى والله ووحشنى خفه دمك ياغالى ربنا يعزك 🌹 💐 طيب انا منزلتش المرفق ولكن سوف اقوم بتحميله والنظر فيه غدا ان شاء الله بعد عودتى من العمل وقبل انشغالى بالاخر وان شاء الله ربنا ييسر الامور وهذا ان لم يسبقنى احد اخواننا واساتذتنا جزاهم الله عنا كل خير

اهلا بيك اخى ناقل الحمدلله رضا من الله ربنا يعزك اخى انا الاسعد بعودتى وسط اخوانى واحبابى 🌹💐

السلام عليكم اخوانى واساتذتى محمد عصام ومحمد سلامه برجاء الاطلاع ع الرابط التالى وتجربة الحلول التى به ان شاء الله تنحل المشكله لديكم باذن الله https://codekabinett.com/rdumps.php?Lang=2&targetDoc=windows-api-declaration-vba-64-bit تقبلوا تحياتى ومرورى

تم الرد فى هذا الموضوع

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

والله المدير زهق منك وهيسوى لك استدعاء ولى امر 🤭

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

فكرة جديدة تدرج الوان ولا اروع سهولة ومرونة فى تغيير تدرج الالون وبدون برق ورعد فاهم قصدى طبعا يا استاذ @Moosak وبصراحة مش فاضى للتطوير اكثر فى الوقت الحالى ShowHideSideBareRight (4).zip

أيش أسوي مديرنا .. هم يفتحوا مواضيح جديدة 😅

نفس الحال معي وانت شوفت بنفسك في الملف المرفق علي الخاص .. تحياتي 🌹

ارفع من فضلك ملف لما تريد موضح به المطلوب بكل دقة .. تجنباً لإهدار وقت الأساتذة !!!

ومحاولة اخرى للأخ موسى 🙂 جعفر

جزاك الله كل خير اخي Moosak ونفع الله بك الف شكر

تابع المناقشات هنا

مشاركة مع الاستاذ احمد مساعدات2.accdb

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

مشاركة مع اساتذتي..مع الاعتذار عن التاخر فقد نشرته في المشاركة السابقة عدم تكرار نفس الرقم.accdb

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

ليست هناك اي مشكلة لاحظ ..... هذا الكلام على مرفقي السابق ...

تفضل ما تبحث عنه وزيادة بحثت لك عنه في محفوظاتي ، من اعمالي السابقة ، ومؤكد انه هنا ضمن موضوع يخصه انشاء الجداول والعلاقات برمجيا.mdb

لابد من تفعيل هذه الخاصية كما بالصورة .. وشكراً وبالتوفيق

في الأكسس من قائمة ملف أنزل في الأسفل إلى خيارات ومن ثم انتقل إلى تبويب قاعدة البيانات الحالية وقم بتحديد مسار الأيقونة أو يمكنك عمل ذلك من خلال الأكواد باستخدام VBA

النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb

وعليكم السلام ورحمة الله وبركاته في قاعدة البيانات لديك مكتبات غير متوفرة في الجهاز الجديد يمكن تحميلهم من الانترنت او نسخهم من الجهاز الاول الى الجهاز الجديد ستجدهم في المسار التالي windows 32 bit C:\Windows\System32 windows 64 bit C:\Windows\SysWOW64 والمكتبات المطلوبة هي Aec32BitAppServer57.tlb accessibility.api تحياتي

الطريقة الصحيحة في قاعدة البيانات ان: تضيف حقل للسنة ، ولنسميه iYear ، عادة يكون هناك نموذج رئيسي دائما مفتوح ولنسميه frm_Main مثلا ، قم بعمل مربع تحرير Combobox للسنوات الموجودة في حقل السنه ، وعند فتح النموذج ، اجعل القيمة التلقائية التي يأخذها هذا المربع : me.iYear.value= year(Date) . وتكون نماذجك مصدر بياناتها استعلامات ، وفي الاستعلام في حقل السنه ، اجعل المعيار: Forms!frm_Main!iYear . بهذه الطريقة يمكنك الاحتفاظ ببيانات جميع السنوات السابقة ، ولن يحصل اي خلط بين بيانات السنين 🙂 كيف عرفت انا هذه الطريقة ؟ لأني طبقتها على برامج المخازن والمحاسبة للعديد والعديد من المؤسسات ، والطريقة ناجحة وبإمتياز 🙂 جعفر

بعد اذن الاستاذ نزار هذا الكود Option Explicit Sub Fil_Ijasat() Dim Dic As Object, KY Dim I%, lr%, m%, K% Dim txt Dim EE#, FF#, HH#, JJ#, GG#, II#, KK# Dim Source_Sheet As Worksheet Dim Target_Sheet As Worksheet Dim Cur_Value Set Source_Sheet = Sheets("Sheet1") Set Target_Sheet = Sheets("Sheet2") Set Dic = CreateObject("Scripting.Dictionary") lr = Source_Sheet.Cells(Rows.Count, 2).End(3).Row Target_Sheet.Range("a3:k100").ClearContents If lr < 4 Then Exit Sub For I = 4 To lr txt = Source_Sheet.Cells(I, 2).Resize(, 3) txt = Application.Transpose(txt) txt = Application.Transpose(txt) txt = Join(txt, "*") Dic(txt) = Dic(txt) + Val(Source_Sheet.Cells(I, 7)) Next I If Dic.Count Then m = 3 For Each KY In Dic Target_Sheet.Cells(m, 1) = m - 2 Target_Sheet.Cells(m, 2).Resize(, 3).Value = _ Split(KY, "*") m = m + 1 Next KY End If Set Dic = Nothing If m > 3 Then For I = 3 To m - 1 For K = 4 To lr If Target_Sheet.Cells(I, 2) = Source_Sheet.Cells(K, 2) Then Cur_Value = Val(Source_Sheet.Cells(K, 7)) Select Case Trim(Source_Sheet.Cells(K, 8)) Case "اعتيادي": EE = EE + Cur_Value Case "عارضة": FF = FF + Cur_Value Case "اذن": HH = HH + Cur_Value Case "تناوب": JJ = JJ + Cur_Value Case "انقطاع": GG = GG + Cur_Value Case "راحة": II = II + Cur_Value Case "مرضي": KK = KK + Cur_Value End Select End If Next K With Target_Sheet.Cells(I, 5) .Value = IIf(EE = 0, "", EE) .Offset(, 1) = IIf(FF = 0, "", FF) .Offset(, 2) = IIf(GG = 0, "", GG) .Offset(, 3) = IIf(HH = 0, "", HH) .Offset(, 4) = IIf(II = 0, "", II) .Offset(, 5) = IIf(JJ = 0, "", JJ) .Offset(, 6) = IIf(KK = 0, "", KK) End With EE = 0: FF = 0: GG = 0: HH = 0 II = 0: JJ = 0: KK = 0 Next I End If End Sub الملف مرفق Ijasat.xlsm

تفضل 1- يكون العمل فقط في الاعمدة (A,D,E) 2- الاعمدة باللون الاصفر تحوي معادلات 3- تم عمل قائمة منسدلة في العمود ( A ) لاختيار رقم الموظف اعتمادا على ورقة Sheet1 4- تم اضافة عمود (G) لبيان الحالة عند التجاوز على رصيد الاجازات رصيد الاجازات.xlsx

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

يا بشمهندس ابوخليل انا اعرف الا يساعد ما يسال ليس و تبع ايش .... تمام ... الله يبارك فيك و يهديك يا بشمهندس ابوخليل