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

أختنا كما تعلمين أن الدين النصيحة كما قال رسول الله صلي الله عليه وسلم لذي فأهمس لك وأنا لك ناصح: 1- لا يجوز الحلف بغير الله (فمن حلف بغير الله فقد أشرك كما قال رسول الله صلي الله عليه وسلم) 2- لغتنا العربية أولي بالاحترام والتقديم علي غيرها - وسهلة الفهم (حتي علي مثلي من الصعايدة 😁) فلا داعي للتقليل من شأنها. ودمتم بسعادة وانشراح صدر بالاسلام.

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

السلام عليكم و رحمة الله وبركاته اسعد الله ايمكم بكل خير اشتقت لكم جميعا بارك الله فيكم اخي الكريم يتم تسمية نطاق البيانات بـ Data_001 ثم يتم استخدام الدالة =SUMPRODUCT((INDEX(Data_001;0;1)=$C$2)*(INDEX(Data_001;0;2)=$D$2);INDEX(Data_001;0;MATCH($D6;INDEX(Data_001;1;0);0))) كما في المرفق جلب البيانات بشروط افقية وراسية.rar

هل تقصد هذا؟ Test.accdb

حرب هذا الماكرو Option Explicit Sub ALL_In_One() Dim M As Worksheet Dim sh As Worksheet Dim my_rg As Range Dim t%: t = 2 Set M = Sheets("ورقة4") M.Range("A2", Range("D1").End(4)).ClearContents For Each sh In Sheets If sh.Name <> M.Name Then Set my_rg = sh.Range("A1").CurrentRegion With my_rg M.Cells(t, 1).Resize(.Rows.Count - 1, _ .Columns.Count).Value = _ .Cells(2, 1).Resize(.Rows.Count - 1, _ .Columns.Count).Value t = t + .Rows.Count - 1 End With End If Next End Sub الملف مرفق book1_salim.xlsm

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

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

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

بعد اذن الاخ احمد وزيادة في اثراء الموضوع هذه المعادلة (Ctrl+Shift+Enter) =INDEX(ورقة1!$B$5:$CI$500,MATCH($C$2&$D$2,ورقة1!$B$5:$B$500&ورقة1!$C$5:$C$500,0),MATCH($D6,ورقة1!$B$4:$CI$4,0))

وعليكم السلام -تفضل ~$زيادة او نقصان سنة في عدة صفوف عن طريق زر.xlsm

منع زيادة رقم بالدالة dmax.accdb

السلام عليكم تفضل اخي التعديل كما طلبته ولكن مطبق فقط علي ال bottun رقم واحد فقط يمكنك نسخ هذا التعديل في الموديول رقم واحد الي كل الازرار وسيعمل معك الملف بكفائه الملف لوحة المئه.xlsm

وعليكم السلام-يمكنك استخدام هذه المعادلة لجمع السلف =SUMIFS($L$2:$L$2000,$H$2:$H$2000,$AQ2,$D$2:$D$2000,"<>"&$AC$2:$AC$2000) ومعادلة جمع استحقاق المحطة =SUMIFS($N$2:$N$2000,$H$2:$H$2000,$AQ2,$D$2:$D$2000,"<>"&$AC$2:$AC$2000) جمع مستحقات وسلف واستثناء بعض الارقام1.xlsx

عاوز تفتح النموذج كام مره اقصى عدد ؟

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

السلام عليكم أرجو أن يكون هذا مطلبك انظر النتيجة في الاستعلام SumLastN1N3 Emp.mdb

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

لقد انصفت ونصحت فأبلغت جزاك الله خير اخي الحبيب

و عليكم السلام و رحمة الله و بركاته عند الكتابة في الخلية I3 ينتقل فورا الى H10 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$3" Then Range("H10").Select End Sub KHMP.xls

أخى صلاح بفرض أن قاعدة بياناتك إسمها .. Test.accdr ..وتم تغيير الإسم أو الإمتداد وليكن الى Test.accdb لفك الحمايه لن تفتح القاعدة وسيتم ظهور الرسالة السابقة وسيتم إغلاق القاعدة هناك ملفان يجب وضعهم فى فولدر واحد ومن ثم فتح القاعدة .. Test.accdb .. أما الملف الآخر .. RenameDB.cmd .. وهو المسئول عن إعادة إسم قاعدة البيانات كما كانت ومن ثم تعو للعمل مرة أخرى وبإمكانك نقله لمكان آخر حتى لا يتم التلاعب به مع تغيير مساره فى هذا الكود Private Sub Form_Close() Shell (Application.CurrentProject.Path & "\RenameDB.cmd") DoCmd.Quit acQuitSaveAll End Sub CMD لو تم تغيير مكان ملف فيجب تغيير المسار Application.CurrentProject.Path الى المسار الجديد كما يمكنك التعديل على ملف RenameDB.cmd كما بالصورة أرجو أن أكون أوضحت ويكون هو المطلوب .. السن الكبير برضه ليه عزره بالتوفيق Test.accdb

السلام عليكم في الغالب لا يتم الاكتفاء بوسيلة واحدة للحماية هذه بعض الأمثلة علي ما استخدمه بشكل شخصي وأرجو من أخوتي واساتذتي بذكر بعض وسائلهم بالحماية: 1- وضع كلمة سر علي محرر الأكواد 2- اخفاء كائنات البرنامج (نماذج وتقارير واستعلامات .... الخ) 3- تقسيم البرنامج الي BackEnd & FrontEnd يعني جزء للواجهات وجزء للجداول فقط - مع وضع كلمة سر علي الجزء الخاص بالجداول ثم الربط ما بينهما بكود عند فتح البرنامج وازالة الارتباط بنفس الكود بعد نهاية الاتصال أو نهاية العمل بالبرنامج. 4- تعطيل زر الشفت 5- تحويل البرنامج الي صيغة accde فهي قوية الي حد ما يصعب على المتوسط في البرمجة تجاوزها. 6- يتم تجميع محتويات البرنامج بمجمعات البرامج وانشاء ملف تنفيذي exe لتسطيب البرنامج ووضع مسار قاعدة الجداول داخل مسار معين أو داخل مسار البرنامج مع انشاء اختصار للبرنامج علي سطح المكتب لدي العميل بحيث لا يري منه سوي الأيكونة الخارجية فحسب. 7- بعض الحيل البرمجية كاخفاء خلفية الأكسس و القوائم وأداة الانتقال بين الكائنات. ما أعتقد أن بعد كل هذا ستحتاج لكلمة سر لإيقاف عمل الشفت - أو أنك ستكون قلقا علي تجاوز حماية برنامجك بشكل سهل- علي حسب ظني. تمنياتي بالتوفيق نسيت شيئا قبل كل هذه الاجراءات لابد من أخذ نسخة لا يوجد بها كل هذه الأمور وهي النسخة السورس التي ستكون لديك تعدل عليها عند الحاجة

اخي الكريم اظن ان من الاحسن وضع هذا السؤال في موضوع جديد وانا ساعمل على هذا مع اساتذة المنتدى والى هنا انتهينا تحياتي

تستطيع تجربة الكود التالي حسب الحدث المناسب لقاعدة بياناتك: If Right(CurrentProject.Name,5)<>"accdr" Then QuitAccess Options Exit End If بنفس طريقة الأستاذ عصام لكن هنا يعتمد على الامتداد وليس الاسم كامل

رغم أني لا أري أي مبرر للتجاوز الغير مقبول في التعليق والذي كان يسعني تجاهله كما أذكر في توقيعي ولكن سامحك الله علي سوء الظن وسوء التعليق

اضغط زر حفظ نسخة وانظر شيت 1 كانت فاتورة سعيد واضفنا عبد السلام ثم قمنا بحفظ نسخة وفي شيت1 تم ترحيل اسم الفاتورة ايضا

Private Sub Workbook_Open() Sheets("ورقة1").Activate End Sub هذا مثال لجواب السؤال الثاني اما السؤال الاول كما اجابك الاستاذ احمد يوسف

جرب هذا الكود لعله يفيد Private Sub Form_Load() DoCmd.Close acForm, "form1" DoCmd.OpenForm "form1" Forms!form1.Form.Visible = False End Sub

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

الله يحفظ استاذ على معادلة رائعه

نعم وتصير البداية هكذا public sub openServerConnection() End sub ثم نناديها من داخل الزر هكذا call OpenServerConnection وانتهي الأمر

نعم يمكن مع تغيرات داخل الموديل 1- حول الـ function الي sub 2- مع ازالة البرمترات 3- والغ تعليق الأكواد المعلقة داخل المودل. ودمتم.

هل تقصد هذا Ip.accdb

اخرتها اطلع استاذه

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

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

عذرا هتتعب معى شوى (حلوة الصيغة دى) بعد ما تكتب فى n2 هنضغط انتر لكى تظهر النتيجة .. سامحنى مش عارف اسهلها اكتر من هيك .. يا راجل عاوز توفر كتابة .. كر أو صا ... SearchTest2 (3).mdb

السلام عليكم جرب هذا لعله يكون قريبا من مرادك SearchTest2.mdb

استاذ :: Ali Mohamed Ali بارك الله فيك ... ولكني استخدم VBA للاكسل ... ولقد حاولت ونجحت الطريقة مشكور جدا ... وهي في هذه الخطوة ... wslstrow = .Range("d" & ws.Rows.Count).End(xlUp).Row For ie = 3 To wslstrow If txt = CStr(.Cells(ie, "E")) And .Cells(ie, "I") = adi And .Cells(ie, "ak") > 0 Then banktot = Application.WorksheetFunction.SumIf(.Range("E3:e" & wslstrow), wws.[j3], .Range("ak3:ak" & wslstrow)) End If Next banktot2 = Round(banktot, 3) وهي جزء من منظومة مرتبات لحوالي 1000 موظف ...

جرب هذا الماكرو Option Explicit Dim check% Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Columns(1)) Is Nothing _ And Target.Count = 1 Then Call IsHyperlink(Target) If check Then Sheets(Target & "").Visible = True Target.Hyperlinks(1).Follow End If End If Application.EnableEvents = True End Sub Sub IsHyperlink(r As Range) check = r.Hyperlinks.Count End Sub الملف مرفق للتجربة TEST_HYPER.xlsm

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

جزيت خيرا مشكور تمام

عليكم السلام الاخ محمد عبدالسلام 1 - المرفق عبارة عن تجربة وضعت مجلد باسم back وبداخله ملف فاتورة وكذلك مجلد backup . 2 - المجلد backup مخصص لتخزين النسخ كما قلت في مشاركتك ولكن ستنقله الى مجلد back وكذلك الملف الرئيسي فاتورة 3- في الملف فاتورة اضفت صفحة وفي العمود "A" انسخ اسماء الملفات المخزنة في المجلد backup كما يمكنك التعديل على كود النسخ لديك لكي يضيف اسماء السخة الاحتياطية في العمود "A" sheet1" back.rar

أول حل بمعادلة صفيف... شيت نتيجة .xls

السلام عليكم ورحمة اللة وبركاته موضوع قديم ولكني عملت هذا الكود لأحد أولادي فأحببت ان يستفيد منه من يحب الفكرة تعتمد علي التحقق من صحة ارقام التاريخ ( من الثاني وحتى السابع، من اليسار ) ولكن بطريقة رقميه بعيدا عن مشاكل فورمات التاريخ اي التأكد من ان الرقم الثاني و الثالث الخاص بسنة الميلاد يقع بين الارقام ( من صفر حتي 99 ) و التأكد من ان الرقم الرابع و الخامس الخاص برقم الشهر يقع بين الارقام ( من 1 حتي 12) و التأكد من ان الرقم السادس و السابع الخاص برقم اليوم يقع بين الارقام ( من 1 حتي 31) ثم التأكد من الرقم الرابع عشر وهو خاص بوزارةالداخلية للتحقق من صحة الرقم القومي يقع بين الارقام ( من 1 حتي 9 ) المرفقات !_Check_National_Number_التحقق من صحة الرقم القوميOffceina.xls

راديو احترافى لن تجده الا بمنتديات اوفيسنا الاصدار الاول : JU_Radio v1.zip

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

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته فهذا برنامج لرسم قطاعات الترع لمهندس الري رسم قطاعات الترع 9.rar

السلام عليكم رمضان كريم تلبية لطلب كنت وعدت به الاخ مصطفى وبس في الرابط اضع بين ايديكم هذا البرنامج المتمثل في تسجيل بينات الاشخاص اللاجئين http://www.officena.net/ib/index.php?showtopic=48216&hl وضعت حركة جديدة يمكن تعجبكم في هذا البرنامج عبارة عن عند فتح الملف لاول مرة تظهر شاششة مثل شاشاة Steep (تثبيت البرانج) تطلب منكم اذا اردتم انشاء اسم مستخدم و باسوورد لحماية البرنامج ملاحظة للأخ مصطفى وضعت ميزة عدم تكرار الاسامي و عدم تكرار رقم الهوية لكن في رقم الهوية اذا كان لديك رقم هوية 123 مثلا فان كود منع التكرار لايحتسب الاصفار قبل الرقم اي انه يراى 123 او 0123 او 00123 نفس الرقم 123 تحياتي للجميع هذا البرنامج اهديه بشكل خاص الاخ الحبيب ضاحي الغريب برنامج تسسير الاشخاص.rar