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

السلام عليكم ورحمة الله وبركاتة في مووضوع سابق طرحته بالمنتدى حذرت من موضوع اخفاء الجداول المرتبطه لما يسببه من مشاكل وأخطاء تحذير من إستخدام كود إخفاء الجداول المرتبطة فأخذت افكرفي ايجاد طريقة لحماية كائنات قاعدة البيانات كافة من وصول المستخدم ومن ضمنها عدم وصول المستخدم لكلمة سر قاعدة البيانات الخلفية والتي تكون مخزنة بالجدول MsysObjects فلم أجد افضل من طريقة وضع كلمة سر لقاعدة البيانات بشرط أن تكون بصيغة accdb أو accde هنا لن يتمكن المستخدم من تفعيل الشفت ببرنامج خارجي ولن يتمكن من الوصول الى الكائنات وهذا كان سبب طرحي لموضوع هل لديك تجربه لكسر كلمة سر قاعدة بيانات ؟ وقد اكد استاذنا @jjafferr صعوبة الحصول على الرقم السري لمثل هذا النوع من قواعد البيانات فقررت وضع كلمة السر لقواعد البيانات !!!!!!! لكن ماهو الحل مع المستخدم ؟ هل سنقوم بتسليمه كلمة السر ليستخدم قاعدة البيانات اذا كأننا لمن نصنع شئ ففكرت بإيجاد وسيط نقوم بتسليمه كلمة السر ويكون هو الوسيط بين المستخدم والبرنامج ( الواجهة ) اذا الوسيط سنضعه جنب البرنامج ونأمره بفتح البرنامج للمستخدم اذا اراد استخدامه بدون أن يفصح له عن كلمة السر بالمرفق يوجد ملفين ملف قاعدة البيانات الاساس Start محمي بكلمة سر والاخر الوسيط الذي سنقوم بمن خلاله فتح البرنامج StartDatabes. بعد تمرير كلمة السر اليه والملفين تم تحويلهما الى صيغة accde بعد تنزيل المرفق اجعل الملفيين في مجلد واحد وشغل الملف StartDatabes ملاحظة من المحتمل ان تظهر لديك رسالة في بدأ التشغيل لا يمكن قراءة مشروع Vba هنا اعتقد يجب أن يكون الوندوز لديك محدث بأخر تحديث ويجب أن تكون حزمة Microsoft .NET Framework محدثة بأخر اصدار حسب لغة الوندوز ونوعه عندك او كما يوجد لدي انا عندي الحزمة Microsoft .NET Framework 4.5.1 windos 10 office10 أخر تحديث ارجو التجربه ونتمنى الاستفاده للجميع Free.rar -------------------------------------- ملاحظات جعفر 14-7-2021 : بعد ان تم حذف الملف الاصل ، اصبح من الصعب على بعض الاعضاء متابعة الموضوع ، لذا ، وبعد إذن الاخ @kaser906 فعملت ملفاته مرة اخرى وارفقتها هنا: 1. الملف Locked.zip ، وهو الملف النهائي والذي سيتم تسليمه للزبون ، وهو الملف الذي يجب ان يجربه الاعضاء ، وفيه ملفين بصيغة accde ، 2. الملف Locked_Open_Source.zip ، يحتوي على ملفات مفتوحة المصدر ، بصيغة accdb ، والتي حولناها الى ملفي رقم 1 علاه ، 3. الملف Open_Source.zip ،يحتوي على نفس ملفي رقم 2 اعلاه بصيغة accdb ، ولكن بدون تجهيزهم لتحويلهم لصيغة accde . Locked.zip Locked_Open_Source.zip Open_Source.zip

السلام عليكم 🙂 الطريقة التي توصلت لها : 1. التقرير الرئيسي له جدول خاص به ، به رقم صفحات التقرير (سيتم عمل هذا تلقائيا) ، 2. التقرير الفرعي رقم 1 ، والتقرير الفرعي رقم 2 ، لكل تقرير فرعي مصدر بيانات خاص به (سيتم عمل هذا تلقائيا) ، ويحتوي على حقل رقم الصفحة ، 3. بيت القصيد ، ربط التقرير الرئيسي بالتقارير الفرعية عن طريق رقم الصفحة . يجب ان اقوم بتنظيف البرنامج ، واعادة عمله على اساس ما قلته اعلاه ، وللعلم فبعض بيانات التقارير الفرعية قد تم ادخالها يدويا حتى احصل على النتيجة 🙂 التقرير الذي يعمل حسب هذه الخطة هو Report2 🙂 ولا تحاول تعمل تغيير في بيانات الجداول الاصل ، فلن تتغير النتيجة في التقرير ، في هذه النسخة اخي ابا جودي ، اعتذر عن التأخير ، بس هذا كان تحدي 🙂 ورجاء ، اذا عندك اي ملاحظة او تغيير ، وبدون اي احراج ، رجاء تخبرنا عنه ، لأن العمل تقريبا انتهى 🙂 بكرة الصباح ان شاء الله اعمل البرنامج بصورته النهائية 🙂 جعفر 1135.2.Consumable Material Check List (40).accdb.zip

وعليكم السلام -يمكنك تحميل هذا من هنا فلا يحتاج الى تفعيل https://www.4shared.com/rar/vx1cv9Hxca/KutoolsforExcel1650.html وهذا رابط اخر http://www.mediafire.com/file/xcvjc4oywbvonda/Kutools.for.Excel.16.50.rar/file

وعليكم السلام 🙂 وبدون انزال المرفق ، رجاء جرب هذا التعديل: =Nz(DSum("[mone]";"table1";"[client]='" & [x2] & "' and [id]<>" & [id]);0) جعفر

ولقيت الحل ، بالاكسس 🙂 بس محتاج شوي علشان اعرضه ان شاء الله 🙂 جعفر

شكرا لمرورك نتمنى ان تكون طريقة مفيدة وفعالة

بارك الله فيك أخي كاسر @kaser906.. فكرة جديدة

هل هذا ماتريد ؟؟؟؟؟ K_1.rar

اخي الفاضل قمت بتطبيق المعادله على الخليه E9 قم بسحب المعادله اسفل او اعلا وسوف تطبق على باقي الخلايا تنسيق ارقام.xlsx

بعد إذن أستاذنا kha9009lid أ.أيمن عبادي .. هل هذا ما تريد ؟ NR in SubForm.accdb

كان عليك رفع ملف للمعالجة لكن بامكانك تجربة هذا الشيء Abscence.xlsx

السلام عليكم بعد اذن استاذى العزيز @essam rabea ارفق لك مثال للاستاذ رضا عقيل جزاه الله خيرا ان شاء الله تستفاد منه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم إضافة الرواتب للموظفين-لسنةوشهر ومكان العمل.rar

العفو منكم استاذى بل انا من يستوجب عليه الاعتذار لكم استاذى القدير ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr الموضوع بالنسبة لى كان تقريبا شبة مستحيل لاننى بحث على الانترنت فى المواقع برسم الجداول برمجيا من خلال الـ vba وجدت القليل جدا بهذا الصدد وما لم استطع فهمه النتيجة الان بفضل الله تعالى ثم فضلكم استاذى الجليل رائعة باقى شئ بسيط وهو انت تظهر فقط البيانات فى الجزء العلوى او السفلى بناء على شرط true بما يتم اختياره والشكــر كل الشكر والتقدير لكم استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr والشكــر كل الشكر والتقدير لكم استاذى الجليل ومعلمى القدير و اخى الحبيب استاذ @AlwaZeeR والشكــر كل الشكر والتقدير لكم استاذى الجليل ومعلمى القدير و اخى الحبيب استاذ @essam rabea

بالتوفيق

كفاك تشويقا أبا جعفر أبشر أبا جودى سيأتيك مطوِّع الأوفيس بالحلول العتيه .. للتقارير الفرعيه

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

انظر عدلت في استعلامك شوي .... K_1.rar

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

ممكن تستخدم الكود التالى Sub my_fill() cmb_Fill.Clear For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row cmb_Fill.AddItem (Cells(i, "A")) Next i End Sub و المجال مفتوح و قابل للتعديل مرفق ملف Fill_01.xls

وعليكم السلام-جرب هذا الملف به طلبك الفاتورة_MZM.xlsm

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

الوحدة النمطية دى ماليش دعوة بيها .. مش تبعى ومعرفش بتعمل ايه تقريبا انت شغال على أوفبيس 64 بت جرب تكتب PtrSafe بعد Declare

أ.ramy145236 انا مش عارف كد انا فهمت ولا لأ .. جرب ووافنى بالنتيجة بالتوفيق final.zip

عليكم السلام، هذه دورة مبسطة جدا في كيفية تصميم فاتورة

وعليكم السلام يمكنك فتح هذا الرابط بنفسك وفك كلمة السر مباشرة https://www.lostmypass.com/file-types/ms-excel/ طالما الملف مقفل من الخارج فهذا من الصعب فكه

و عليكم السلام و رحمة الله و بركاته تفضلي أختي الكريمة .. و وافينا بالنتائج 1.accdb

كل التقدير والمحبة والاحترام لك اساتذتي الكرام الاستاذ الكبير a.kawkab والاستاذ القدير الـعيدروس وجبر الله بخاطركم دنيا وآخره وجزاكم الله عنا كل خير 🌴🌴 بارك الله بكم ودمتم لهذا الصرح العملاق

وعليكم السلام مثال جميل الله يعطيك العافية اخي @أحمد الفلاحجى انا كانت ملاحظتي عن المرفق الاول لاني جربت تعديله الى مفتاح اساس وعمل علاقة تقبل كل الود 😃

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

ممتاز اخي احمد بارك الله فيك

تم تعديل الاستعلام بالحلقات التكرارية شكرا للاستاذ العيدروس لتعديله للكود وتم تنشيط رقم المسلسل ويعمل بانتطام مرقق رابط مباشر للملف بعد التعديل الاخير 101استعلام عن طريق الاسم (4) .xlsm

السلام عليكم استاذى الغالى @kha9009lid هذا مثال على حذف السجلات ذات رقم تلقائى مفتاح اساسى ويتم الحذف واعاده الترقيم وجزاهم الله خيرا كل من قدم لنا معلومه وعلمنا مما علمه الله وفى امثله اخرى ان وجدتها سوف ارفقها للاستفاده منها وكتنويع فى الحلول تقبل تحياتى وتمنياتى لكم جميعا بالتوفيق طبتم واهتديتم إعادة ترقيم تسلسل حقل ترقيم تلقائي دون الحاجة إلى فتح الجدول-ReAutoNumber.rar

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

يعني النصف العلوي لازم يكون فاضي في الصفحة الثانية والثالثة ووو ؟ جعفر

انا اسف اتعبتكم كثيرا معى جزاكم الله خيـــــــرا

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

استاذى الجليل ومعلمى القدير بعد كل الشكر والتقدير والعرفان جزاكم الله خيــــرا لكن لى سؤال واعذرنى انا ضعيف جدا جدا جدا فى التقارير ليه التقرير اللى بالنصف العلوي بيكرر نفسه بتانى صفحة ؟؟؟ Consumable Material Check List (ES).zip

ويعنى لو حبيت جرب ده كمان يمكن يقول معاك .. بس أنا من غير شرح عشام مش فاهم أى حاجة من اللى فى الكود 😍 Consumable Material Check List (ES).zip

وعليكم السلام -يمكنك استخدام هذه المعادلة لجعل نطاق القائمة المنسدلة مطاطية وبدون فراغات وتكون جاهزة لزيادة اى بيانات جديدة =OFFSET($D$6,,,COUNTIF($D:$D,"?*"),1) كما انه يمكن ايضا استخدام هذه المعادلة لتسمية نطاق لإستخدامه فى الكمبوبوكس كما ترى بالصور تعبئة القوائم 1المنسدلة.xlsm

تعديل بسيط على الكود وضع سطر اضافي بين علامات الـــ +++++ Option Explicit Dim ARR() Dim D As Worksheet, P As Worksheet, I# Sub Data_VAL() Dim K%: K = 1 Set D = Sheets("data"): Set P = Sheets("pv") For I = 1 To D.Cells(Rows.Count, 1).End(3).Row If D.Range("A" & I).Interior.Color = RGB(220, 230, 241) Then ReDim Preserve ARR(1 To K) ARR(K) = D.Range("A" & I).Value K = K + 1 End If Next With P.Range("H5").Validation .Delete .Add 3, , , Join(ARR, ",") End With End Sub '++++++++++++++++++++++++++++++++++++++++++++ Sub get_data() Dim First_Ro%, Laste_ro% Dim Copy_RG As Range Dim clas Dim m%: m = 11 Dim col: col = 2 Set D = Sheets("data"): Set P = Sheets("pv") P.Range("A11:C500").ClearContents P.Range("I11:K500").ClearContents clas = P.Range("H5").Value First_Ro = D.Range("A:D").Find(clas, after:=D.Cells(1000, 1), LOOKAT:=1).Row + 4 Laste_ro = D.Range("A" & First_Ro).End(4).Row Set Copy_RG = D.Range(Cells(First_Ro, 2), Cells(Laste_ro, 3)) For I = 1 To Copy_RG.Rows.Count '++++++++++++++++++++++++++++++ If I > P.Range("H6") Then Exit Sub '+++++++++++++++++++++++++++++++ If m = 36 Then m = 11: col = 10 With P.Cells(m, col - 1) .Value = I .Offset(, 1) = Copy_RG.Cells(I, 1) .Offset(, 2) = Copy_RG.Cells(I, 2) End With m = m + 1 Next End Sub الملف من جدبد med_SALIM_new.xlsm

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

اهلا بك فى المنتدى وذلك بإستخدام هذه المعادلة =SUMIFS(INDIRECT("'"&F$1&"'!$F:$F"),INDIRECT("'"&F$1&"'!$D:$D"),$D2,INDIRECT("'"&F$1&"'!$E:$E"),$E2) نموذج1.xlsx

السلام عليكم اخ حسام النتائج صحيحة الظاهر انك بتعمل على ملف اخر

السلام عليكم ورحمة الله أعتذر مرة أخرى للخطأ الذي وقع في ملفي المرفق الثاني، مع ملاحظة أن الخطأ مني وليس منك، وقد تم التصحيح في الملف المرفق (أرجو ذلك إن لم يظهر مشكل آخر)... ملاحظة: تم إظافة رقم حساب للبيانات المرحلة "حساب رقم 44" المذكور في اليوم الثالث وغير موجود في جدول الترحيل... بن علية حاجي ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls

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

لك ما تريد comp_2_tabl.xlsx

تفضل لك ما طلبت على الرغم انى افضل العمل على ملف الإكسيل مباشرة دون العمل على الفورم Followup patients.xlsm

السلام عليكم جرب المرفق Ali_2تعديل فورم.xlsm

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

استبدل هذا: Expr1: DSum("[Rest_leave]","vacations","[EmpID]=" & [EmpID] & "") بهذا: Expr1: Nz(DSum("[Rest_leave]","Vacations","Nz([EmpID],0)=" & Nz([EmpID],0) & "AND Nz([ID],0)<=" & Nz([ID],0)),0) اجازات الموظفين.rar