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

السلام عليكم ورحمة الله وبركاتة في مووضوع سابق طرحته بالمنتدى حذرت من موضوع اخفاء الجداول المرتبطه لما يسببه من مشاكل وأخطاء تحذير من إستخدام كود إخفاء الجداول المرتبطة فأخذت افكرفي ايجاد طريقة لحماية كائنات قاعدة البيانات كافة من وصول المستخدم ومن ضمنها عدم وصول المستخدم لكلمة سر قاعدة البيانات الخلفية والتي تكون مخزنة بالجدول 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

- موديول إخفاء إطار الأكسس - التوسيط - التصغير بجوار الساعة - تغيير الأيقونة - استدعاء بيانات ورسائل من جدول تم وضع التذكيـــر الاتى برأس الموديول لسهولة التعامل مع الأكودا واستدعائها 'icon path >>---> CurrentProject.Path &"\"&"\File Library\Fav Ico\Myicon.ico" 'Hide Access >>---> CallStartForm() 'CenterObjects >>---> Call CenterFrm(Me) 'Minimize To Systray >>---> Call AppMini() 'To Quit Application >>---> Call AppQuit() 'To Close Any Forms >>---> Call AppCloseFrm() 'Application Name >>---> Call AppName() 'Designer Name >>---> Call DesName() 'Designer Phone >>---> Call DesPhone() 'Designer Email >>---> Call DesEmail() 'call Any Message From Table '>>>>> StrMyCriteria = "MyCriteria ='xxxx'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle '>>>>> Change "xxx" By Criteria From Table >> UsystblUsefulData << By Criteria From Field [MyCriteria] '>>>>> Example MyCriteria >>---->> msgDesData '>>>>> StrMyCriteria = "MyCriteria ='msgDesData'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle هذا المرفق الاول بدون عمل اختصار للبرنامج Utilities Hide Ico Minimze To SysTray.zip --------------------------------------------------------------- هذا المرفق للإضافة إختصار أليا الى سطح المكتب وتحكم كامل فى كل ما يخص الاختصار من الجدول UsystblUsefulData اسم الاختصار الوصف مفتاح الاختصار من الكيبور لفتح التطبيق وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية Utilities Hide Ico Minimze To SysTray V.02.zip

عندى برنامج فى حالة فتحه يظهر ليه خطأ sub من فضلكم ازاى اصحح هذا الخطأ Declare Sub CLTAPI_ChooseColor Lib "msaccess.exe" Alias "#53" _ (ByVal hwnd As Long, rgb As Long)

السلام عليكم ورحمة الله حل باستعمال الدالتين INDEX و MATCH (بالفرنسية EQUIV) في الملف المرفق... بن علية حاجي Etude.xlsx

تعديل فقط على كود الاستاذ جعفر ليعمل بالمثال جزاك الله خيرا استاذى العزيز جعفر

السلام عليكم تم إضافة معادلة أخي الكريم سليم بتصرف طفيف (حسب ما تريد) وتم أيضا التعديل على الكود ليقوم بالعمل نفسه وبالشروط نفسها (في عمود آخر) وما يبقى إلا برمجة هذا الكود ليعمل تلقائيا عند فتح الملف (وعند التعديل على البيانات)... بن علية حاجي Book1 (3).xlsm

ممكن تستخدم الكود التالى 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

بارك الله للجميع على المجهودات القيّمة

اخي احمد الفلاحجي هل ممكن نجعله رقم بدل رقم تلقاثي اي بعد الترتيب من رقم تلقائي ارجعه الى رقم كوني استخدم داله Dmax

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

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

أ.عبدالعزيز محمد هو صراحة ليس مطالب من السادة أعضاء ورواد المنتدى أن تنشئ جداول وملفات إكسيل حتى تحل لك مشكلة أنت أدرى بها وقد تفضل أخى @SEMO.Pa3x برفع مقاطع فيديو لشرح ما تريد من إستيراد جدول إكسيل الى الأكسيس .. وكان من الأحرى أن ترفق ملفاتك ليجرى العمل عليها فهناك طرق كثيرة لتنفيذ ما تفضلت وطلبته .. وبالنسبة لسرية البيانات كان يمكن التغلب عليها بإدراج 20 سجل فقط ببيانات وهمية وعموما 1- قم بربط ملف الإكسيل بالأكسيس المراد الاستيراد له (ملف الإكسيل يجب أن يحتوى على رأس جدول واحد) 2- قم بعمل إستعلام إلحاق من ملف الإكسيل المرتبط الى ملف الأكسيس إذا كان موجودا أو إستعلام إنشاء جدول من ملف الإكسيل الى إسم الجدول الجديد إن لم يكن موجودا 3- شغل الإستعلام .. مبروك جدول إكسيل تم نسخه 4- قم بحذف جدول الإكسيل المرتبط بالتوفيق

@احمد الفلاحجي جزاك الله خيرآ أخي الكريم قد يفي بالغرض وجاري التجربة

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

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

جرب DoCmd.SetWarnings False Dim x1 (x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.aa), 0) If x1 = 0 Then "MsgBox "This code is not registered", vbMsgBoxRight + vbCritical, "notes" DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord else MsgBox " This is a registered code", vbMsgBoxRight + vbCritical, "notes" Exit Sub End If

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

السلام عليكم حدد المدى اخي مايحتاج تحط مسمى لكل ورقة For Each ws In ThisWorkbook.Worksheets If ws.Name = Me.ComboBox3.Value Then With ws .Select Me.ComboBox1.RowSource = .Range("A6:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Address '"name1" ' A Me.ComboBox2.RowSource = .Range("B6:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).Address '"data1" ' B End With End If Next

بكرة الصباح ان شاء الله اكمل فيه 🙂 جعفر

على اساس 11 سجل. الكلام عن الجزء العلوي: اذا كان عندنا 5 سجلات : الصفحة الاولى: نكتبها فوق ، وباقي 6 سجلات فارغة اسفلها ، والصفحة الثانية : فقط سجلات فارغة ، اذا كان عندنا 15 سجل : نكتب 11 فوق ، وطبعا مافي سجلات فارغة في اسفلها ، والصفحة الثانية : نكتب 4 سجلات ، وباقي 7 سجلات فارغة اسفلها هل هذا صح؟

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

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

أشكر الجميع على المجهوذات القيّمة

تصدق والله انا فى الوقت الحالى مش فارق معايا الشرح انا عندى تفتيش دولى وهذه طلبات جديدة من ادارة الجودة

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

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

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

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

جرب المرفق واعتذر ما انتبهت لاعادة رفعك للموضوع NR in SubForm.accdb

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

ما هي دي نفس المعادلات شغالة زي الفل في الملف المرفق book_s.xls

هذا ماكرو اخر يعتمد على المصفوفات (يجب ان يكون اسرع بكثير خاصة اذا كانت البيانات كثيرة ) لا وجد لاي معادلة Option Explicit Sub get_val_BY_ARRYS() Dim My_Sh As Worksheet Dim ARR, S#, T#, R#, I#, k As Byte Set My_Sh = Sheets("Sheet1") R = My_Sh.Cells(Rows.Count, 3).End(3).Row My_Sh.Range("E4").Resize(R - 3, 4).ClearContents For I = 4 To R With My_Sh.Range("D" & I) If Not IsNumeric(.Value) Then GoTo next_i Select Case .Value Case Is < 100: ARR = Array(.Value, "", "") Case Is < 200: ARR = Array(100, .Value - 100, "") Case Is > 200: ARR = Array(100, 100, .Value - 200) End Select .Offset(, 1).Resize(, 3).Value = ARR For k = LBound(ARR) To UBound(ARR) If IsNumeric(ARR(k)) Then T = ARR(k) * Range("L4").Offset(, k) Else T = 0 End If: S = S + T Next .Offset(, 4) = S: S = 0 End With next_i: Next End Sub

بعد اذن الاستاذ هذا الكود يطبع جميع الشيتات باستثناء شيت DATA ويمكنك تعديله حسب المدى المطلوب sub test 'كود طباعة جميع الشيتات dim ws as worksheet dim sh as worksheet: set sh = sheets("DATA") ' الشيت المستثنى من الطباعة Dim lr As Long For Each ws In Sheets lr = ws.Range("a" & Rows.Count).End(xlUp).Row If ws.Name = "DATA" Then GoTo 1 ' الشيت داتا سميه ما شئت ولك غيره في السطر الثاني و السادس ws.Range("a1:g" & lr).PrintOut 1: Next ws end sub

هذه المعادلة في الحلية C4 واسحب نزولاً =MAX($A$4:$A$10000)+ROWS($C$4:C4)

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

وعليكم السلام-تفضل كشف الحساب1.xlsm

استبدل هذا: 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