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

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

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

مرحبا اخ عمرو الحقيقة وجدت كود لا يجاد رسالة الباسسوورد ثم تمرير القيمة لها وهي اول ما خطر في بالي وهذا الرابط http://www.siddharthrout.com/2013/04/24/unprotecting-vba-project-password-using-a-password-that-you-know/ ولكن قلت اجرب فكرة تمرير القيمة باستخدام sendkeys ونجحت معي ولا اعلم معكم لانه تعتمد على اختصار القوائم واعتقد ان جميع الاصدارات لن تختلف لانه واجهة المشروع متشابهة ولو حصل اختلاف نغير فقط في حروف الاختصار الممررة الان جرب التالي ضع دالة عامة كالتالي (طبعا قبل وضع الحماية): Function ramhan(pass) SendKeys "%{F11}%TE" & pass & "~~%{F11}", True DoEvents End Function ثم تنادي الدالة من زر الامر الذي به حذف الكائن ممرا كلمة المرور وكاتالي مثلا حيث الباسسور=1 واسم التقرير rep1 به حدث عند التحميل Private Sub Command0_Click() Call ramhan("1") DoCmd.DeleteObject acReport, "rep1" End Sub الان احفظ ثم ضع باسسورد للمشروع =1 اغلق القاعدة وحاول الحذف عن طريق النافذة لن يقبل وسيقبل من خلال الزر هنا ولو زبطت التجربة اعتقد انه موضوع جديد كليا وحماية جديدة نتمتع بها تحياتي

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

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

السلام عليكم ورحمة الله وبركاتة برنامج متابعة المخزون بدون باسورد برنامج متابعة المخزون 23.9 مفتوح المصدر.rar

السلام عليكم ورحمة الله في الملف المرفق ثلاثة حلول مختلفة بالمعادلات مع بعض الشرح.... بن علية حاجي جلب بيانات بين تاريخينANAS2017.rar

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

ربما يكون الحل هنا تم جماية خلايا المغادلات لعدم العبث بها عن طريق الخطأ جلب بيانات بين تاريخين SALIM.rar

وقد يكون الأسرع توزيع قيمة هذه الحقول بعد تحويلها أو البحث عن قيمخا المقابلة لها بالكود داخل التقرير مباشرة

السلام عليكم جرب المرفق وفيه الحل بمعادلات... بن علية حاجي 21-6-2017.rar

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

أظنه يكون أسرع لو استخدمنا الدالة فى الاستعلام بدلا من استخدامها فى التقرير هكذا ssun1: rf(nz([sun1];0)) ما رأيك شيفان؟

نعم تمام جزيل الشكر لك و للجميع لكن التقرير يفتح ببطء لأن الدالة تعمل فى حوالى 40 حقلا يمكن الاستغناء عن nz تماما إذا جعلنا قيمة الحقل الافتراضية = 0 لكن وجودها أفضل للاحتياط جزاك الله خيرا بفضل الله ثم بفضل استشاراتكم

الأستاذ المحترم خالد الرشيدي السلام عليكم ورحمة الله وبركاته جزاك الله كل خير وبارك الله لك

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

شكرا اخي خالد الله يجزاك خير هوا المطلوب

السلام عليكم تفضل اخي الكريم عل هذا ما تقصد Sub K_print() 'C من الصف 9 الى اخر صف به بيانات بالعمود D9:K طباعة النطاق 'printpreview بـــ PrintOut ان اردت المعاينه قبل الطباعه استبدل Range("D9:K" & Cells(Rows.Count, "c").End(xlUp).Row).PrintOut End Sub

بارك الله فيكم أخى خالد الرشيدى هذا هو المطلوب فعلا و جزاكم الله خيرا

حياك اخ ايمن احب الاسئلة من النوع ده هذا كود يفلتر النموذج وليس هناك حاجة لفلترة الاستعلام . هذا حسب فهمي Private Sub SearchCmd_Click() For Each itm In Item_List.ItemsSelected xt = xt & Item_List.Column(2, itm) & "," Next Me.tt.Form.Filter = "[no]in(" & xt & ")" Me.tt.Form.FilterOn = True End Sub بالتوفيق

لحظات يوجد نقص في الشرط سأعيد رفع الملف هذا تعديل اخفاء حقول في نموذج3.rar

هذه حيلة بسيطة قد تعجبك

ربما يكون الحل 111 salim.rar

جربت طريقتك استاذى الفاضل شوف المرفق لما فصلتهم على اذون اضافة مختلفة متوسط السعر اتحسب مظبوط ولعلمك فى الواقع العملى استحالة يتكرر الصنف مرتين فى نفس المستند وبالتالى لو هيا دى سبب المشكلة انى كنت بجرب فى نفس المستند المكون كذا مرة يبقى خلاص مش محتاجة معالجة لأن الواقع العملى عكس كده بس المرفق تقييم 10 اللى ارفقته لحضرتك وقلتلك اخر مرفق شغال مكانش فيه المشكلة دى وكان شغال عادى حتى لو كان نفس الصنف فى المستند مكرر اكثر من مرة انا مكنتش واخد بالى من نقطة قبل كده فى حالة انى بضع قيمة الصنف اول بأول وكان اللى فاضل مثلا حركة صرف لوحدها غير مقيمة فبالتالى هتظهر فى نموذج التقييم وانا كده كده مش بقيم الصرف يبقى متوسط السعر لحركة الصرف دى مش هيتحسب غير لما يتم حركة اضافة اخرى على هذا الصنف وهنا هيجيب لحركة الصرف اخر متوسط سعر قبلها فاهمنى ؟ مكنتش واخد بالى منها لأننا كنا بنجرب المنتج 5 مرات مثلا صرف واضافة وبالتالى الصرف كان بيختفى اول بأول زى مانتا فاهم عامة انا معاك شوف الخطوة الجاية ايه 13.rar

هدية لاعضاء وزوارمنتدانا الغاليين قاعدة بيانات مفتوحة تحتوي على 215 لون من الوان الاكسس المرفقات الوان الاكسس.rar

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

:: عليكم السلام استاذ عبد الله تفضل كان الخطا هو الحمع في النموذج الفرعي DB_UP.rar

اتفضل اليك وحدة نمطية هذا Function DeleteAll() On Error Resume Next Dim db As Database Dim idx As Long Dim strName As String Set db = CurrentDb ''Relationships For idx = db.Relations.Count - 1 To 0 Step -1 strName = db.Relations(idx).Name If Left(strName, 4) <> "msys" Then db.Relations.Delete strName Else Debug.Print strName End If Next idx ''Forms For idx = CurrentProject.AllForms.Count - 1 To 0 Step -1 strName = CurrentProject.AllForms(idx).Name DoCmd.DeleteObject acForm, strName Next idx ''Macros For idx = CurrentProject.AllMacros.Count - 1 To 0 Step -1 strName = CurrentProject.AllMacros(idx).Name DoCmd.DeleteObject acMacro, strName Next idx ''Reports For idx = CurrentProject.AllReports.Count - 1 To 0 Step -1 strName = CurrentProject.AllReports(idx).Name DoCmd.DeleteObject acReport, strName Next idx ''Queries For idx = db.QueryDefs.Count - 1 To 0 Step -1 strName = db.QueryDefs(idx).Name If Left(strName, 4) <> "~sq_" Then db.QueryDefs.Delete strName Else Debug.Print strName End If Next idx ''Tables For idx = db.TableDefs.Count - 1 To 0 Step -1 strName = db.TableDefs(idx).Name If Left(strName, 4) <> "msys" Then db.TableDefs.Delete strName Else Debug.Print strName End If Next idx ''Modules For idx = CurrentProject.AllModules.Count - 1 To 0 Step -1 strName = CurrentProject.AllModules(idx).Name If strName <> "Module5" Then DoCmd.DeleteObject acModule, strName End If Next idx End Function وفي النموذج ليس لديه مصدر في خلف زر مثلا او اي حدث اكتب Call DeleteAll

- المطالبة ببيانات الشركة / المؤسسة عند فتح القاعدة للمرة الاولى - نسخة تجريبية للسنة الحالية فقط حتى لو تم التلاعب بتاريخ النظام بالتقديم والتاخير فى شاشة اتفاقية الترخيصعند الضغط على الرز (F6) سوف تتم فتح نافذة لو تم تغيير التاريخ الى الى سنة 2016سوف يعمل البرنامج بنجاح - اخفاء اطارات الاكسس - انشاء مجلدات تخص نظم قاعدة البيانات -مشاركة الصور بحفظ مسارتها داخل المجلد الخاص بها بنفس مسار القاعدة -عرض الصور على الشبكة دون تغييرها او تغيير مسارها او تعديله او دون اى تدخل من المبرمج بدون عناء ( تصلح لصور الموظفين) تم ادراج نموذج يتحكم بكل صغيرة وكبيرة فى القاعدة لزيادة الحماية ملحوظة : القاعدة لن تعمل عند محاولة تغيير اسمها لم اخفى كل كائنات القاعدة بلا رجعة لم اقم بغلاق زر الشيفت demo.rar

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