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

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

تفضل ... ‫‫امانات - نسخة_2.rar

اخي اولا تم ازالة بعض الاعمدة لتوحيد النظام داخل الملف فقط ارجو التجربة في النلف المرفق تحياتي Copy of2 الجدول افقي.xlsm

أهلا @qathi أرجو أن يكون المثال سهل الفهم D3.accdb

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

طيب .. ابشر : 1- انت جعلت حقلي الرقم في الجدولين NewLab و NewAllTests ترقيم تلقائي ( لكن المشكلة أنك جعلتها مرتبطة مع بعض ) يعني كل جدول هيرقم بكيفة 2- الحل : كان في جعل حقل الترقيم التلقائي في الجدول NewAllTests رقم فقط أرجو أن يكون الحل مناسبك لك .... تقبل تحياتي .....

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

جرب هذا لعله المطلوب .... Lab 2019_5.rar

السلام عليكم ورحمة الله وبركاته انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق: http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363 المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس. ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية. هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس. العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه. الكود يعمل على برامج الاكسس بصيغة mdb و accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا). اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي): رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي: C:\jj\Seq.mdb الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ، عند فتحه نرى رسالة أمان الاكسس ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج). . الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود: rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=true set o=nothing . تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب ------------------------------------------------------------------------------------------------------------------------------------------- هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا. هناك طريقتين: 1. ايقونة مختصر البرنامج Shortcut: وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!! لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت): . . . . وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 2. تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك: رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي: http://www.f2ko.de/en/v2e.php احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا ثم نتبع الخطوات التالية: ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ، . في الخطوة 6 تستطيع ان تكتب معلومات شركتك ، ونختار الايقونه التي نريدها للبرنامج (الخطوة 5) . . وتستطيع ان تجعله على سطح مكتب كمبيوترك الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. ملاحظة: الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ، لذلك ، ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt . بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs جعفر Seq.zip Seq_2.zip

في الخلية B5 هذه المعادلة واسحب نزولاً =INDEX('ارقام مالية وشركات '!$D$3:$D$100,MATCH($E5,'ارقام مالية وشركات '!$E$3:$E$100)) في الخلية D29 هذه المعادلة واسحب نزولاً =SUMPRODUCT(--($B$5:$B$24=$E29),$C$5:$C$24) الملف مرفق 12_salim.xlsx

بصراحة انا مش فاهم بس شوف كده هل هذا المطلوب ام لا .. قمت بإضافة حقل غير منضم على نموذج FormM لإضافة مبالغ للسداد .. فإن كان المطلوب فقم بتطبيقة على النموذج الآخر. بالتوفيق التسديد.zip

عسى أن يكون المطلوب FormM و FormO التسديد.zip

أخى الكريم كل طلباتك موجودة في الشيت المرسل منى حتى طلبات جدول summary of payments موجودة في الملف من فضلك شوف الملف كويس

ولإثراء الموضوع وبعد اذن الأستاذ احمد تفضل -يمكنك استخدام هذه المعادلة ايضا =LOOKUP(2,1/((E5>='ارقام مالية وشركات '!$E$3:$E$500)*(E5<='ارقام مالية وشركات '!$F$3:$F$500)),'ارقام مالية وشركات '!$G$3:$G$6500) وتم عمل المطلوب معادلة شرطية لاظهار قيمة معينة.xlsx

أ. احمد خالص امتنانى لمحاولاتك فى المساعدة المعادلة تحتاج لتعديل بسيط موضح بالمرفق حيث ان عند كتابة رقم بين قيمتين تظهر اسم الشركة غير صحيح بمعنى انه فى الجدول خانة بها 1 وخانة بها 5000 لشركةمعينة المطلوب عند كتابة مثلا رقم 4000 تظهر نفس الشركة للقيمة هذه 1(1).xlsx

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

مع ان هذا رايي ايضا مفتاح اساس ثلاثي بس بناء على الحقول في الجدول اعتقد انك بتواجه مشاكل اخرى ولكن دعنا ننتظر ولا نستعجل الحكم مع تمنياتي لك بالتوفيق

السلام عليكم ورحمه الله وبركاته يمكنكم تحميل برنامج العطاء للعقارات الاصدار الثالث (تم حذف الرابط ، وإرفاق المرفق مباشرة في الموضوع) نتمنى من الجميع ابداء الراي بعد التجربه ووضع الملاحظات للتطوير القادم. برنامج العطاء للعقارات الثالث.rar

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

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

تفضل استاذ/ BuMajid ملف عمل خاص بي عله يفي بما طلبت قاعدة بيانات العملاء.xlsx

المهم .. سجل فريد .. يكون هو الرأس احتمال رفع القضية للتمييز فهنا حديث آخر __ وهو لزوم عمل جدول فرعي لتنقلات القضية رفعت للتمييز / رجعت للمحكمة / رفعت مرة اخرى / رجعت

نعم .. سجل فريد.. بغض النظر عن كونه مفتاح للجدول ام لا وغير ما يلزم تغييره

هذا خطأك انت يجب ان تعيد النظر في التصميم

بعد اذن الاستاذ عادل هذا الكود ربما كان أسرع (يدون الكثير من الحلقات التكرارية) تم تغيير اسناء الصفحات (تفادياً لظهور احرف غير مفهومة اثناء نسخه) فقط شيت المصدر ( Source) وشيت الهدف ( Target ) Option Explicit Sub Get_Data() Rem ======>>> Created By Salim Hasbaya On 10/6/2019 Application.ScreenUpdating = False Dim DIC As New Dictionary Dim T As Worksheet: Set T = Sheets("Target") Dim s As Worksheet: Set s = Sheets("Source") Dim laste_ro%: laste_ro = Cells(Rows.Count, "b").End(3).Row Dim i%, stp%: stp = 5 Dim K%, my_key T.Range("a2:p5000").ClearContents With s For K = 17 To laste_ro Step stp DIC.Add .Range("q" & K).Value, _ .Range("B" & K).Resize(stp, 15).Value Next End With i = 2 For Each my_key In DIC.Keys T.Range("a" & i) = my_key T.Range("b" & i).Resize(stp, 15) = DIC(my_key) i = i + stp + 1 Next my_key DIC.RemoveAll Application.ScreenUpdating = True End Sub الملف مرفق Data_with_dictinary.xlsm

القضية هي الأساس او هي رأس الهرم

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

كود ممتاز أستاذ عادل احسنت جعله الله في ميزان حسناتك

جرب هذا الماكرو Option Explicit Sub add_values() Dim r%: r = Range("b7").CurrentRegion.Rows.Count Dim MY_RG As Range Set MY_RG = Range("b8").Resize(r - 1, 5) With MY_RG .Cells(1, 3).Resize(r - 1).Formula = "=SUM(E8,C8)" .Cells(1, 5).Resize(r - 1).Formula = "=SUM(D8,C8)-B8" .Value = .Value End With End Sub

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

اصبر بص

اربط بين النموذج الرئيسيى والفرعى بهذا الرقم مع ان هذا هذا ليس صحيح لان فى درحة التقاضى الاولى برقم وفى الاستئناف تعد قضية ثانية وهكذا اجل له ترقيم متسلسل لكل نوع ويكون بهذا الشكل مثلا مدنى 1/2019 مدنى 2/2019 مدنى 3/2019 ح ش 1/2019 من وجهة نظرى هذه افضل فكرة

هذا اولا ولابد ان تهود عملائك على الا يشترطوا فيما لا يفقهون والا سوف تتعب كثيرا وام لم تستطع اردائهم لن تظهر حينها بالمظهر الذى يلائمك شوف المحمكمة نفسها بتعطى لكل قضية رقم يختلف عن الاخرى رقم فريد يونيك انت مثلا فى برنامج اجهله يحدد نوع القضية من كومبوبوكس مدنى - جنائى - احوال شخصية ........... واجل له ترقيم متسلسل لكل نوع ويكون بهذا الشكل مثلا مدنى 1/2019 مدنى 2/2019 مدنى 3/2019 ح ش 1/2019 مثلا هذه فكرة

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

Me.lbldata.Caption = name$ & Space(1) & "has" & Space(1) & age% & Space(1) & "years old" Me.lbldata.Caption = name$ & " " & "has" & " " & age% & " " & "years old" اتفضل

والطريقة الشائعه ياللى بيستخدمها الكل 'مسافة واحدة TEXT & " " &TEXT 'مسافتان TEXT & " " &TEXT 'ثلاث مسافات TEXT & " " &TEXT 'اربع مسافات TEXT & " " &TEXT معلش شرحت نظرى لان النت بعافيه لسه هم بيحمل المرفق

هههههههههه ما تركز انت فى مرفقاتى ولا موضوعاتى تدفع كام واحكى لك منشان تركز TEXT & Space(1) & TEXT والرقم بين الأقواس بتقدر تغيره اذا بدك تزود ها المسافات وتدلل

لكي تعم الفائدة مرفق برنامج به كود لضغط و اصلاح قاعدة البيانات fix data.mdb

سيدى الخبير kanory نقبل الايادى على الحل الجوهرى الذى طالما ارقنى وعرضنى لمشاكل كثيرة اثناء العمل مشكورررررررررررررررررررررررررررررررر

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

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

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

أخي الفاضل أبو الحسن و الحسين حفظة الله أخي الفاضل المشاغب 301 حفظة الله اشكركم و أثمن لكم ردكم و اقتراحكم و هنا لابد أن أقدم أعتذاري عن تأخري في الرد عليكم و لكن ما يبرر ذلك هو وضع الكهرباء عندنا هنا في قطاع غزة حيث أن الكهرباء جائت 5 ساعات خلال اليومين الماضين مرفق لكم ملف جديد مع ميزات جيدة يمكن اضافة أي عدد من الصفحات دون الحاجة الي أي تعديل في الاكواد اضافة الصلاحيات لعدد 7 صلاحيات عن طريق فورم "يمكن لكم اضافة عدد أخر بالدخول الي الفورم و اضافة العدد المطلوب لكم" اضافة و تعديل بينات المستخدمين من الاسم و كلمة المرور عن طريق الفورم أيضا البحث عن اسم المستخدم بعدة طرق عن طريق الفورم ملاحظة أول خانة في الفورم يتم وضع أول حرف من اسم المستخدم لترتيب الاسماء حسب الابجدية أرجو أن ينال اعجابكم و يفي بما تم طلبة في الختام أرجو منكم الدعاء لوالدي و الي أخي د.جمال رحمة الله عليهما المرفقات: +++ FINAL DATA_20.rar ++++

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

اخي العزيز المشاغب 301 من أجل أضافة صفحات للصلاحيات يتوجب عليك عمل التالي اضافة عدد من الاعمدة بعدد الصفحات المطلوبة وذلك بالوقوف بالفأرة عند أخر عامود لصفحات الصلاحية و من المفترض انة العامود (K) ضع المؤشر على العامود (L) و بالزر الايمن اضف عدد من الاعمدة يساوي عدد الصفحات المطلوب اظهارها للشخص بعد ذلك ادخل الي محرر الاكواد (ALT+F11) كلمة المرور للكود (////yara) اذهب الي frmLogin افتح الاكواد عن طريق الضغط مرتين في أي مكان من Form اذهب الي الجزء الذس يبدأ بـ Private Sub cmdCheck_Click() ثم أذهب للجزء التالي If user <> "" And Not IsNumeric(user) And Code <> "" And IsNumeric(Code) Then For Each AName In Sheet2.Range("T8:T108") 'If AName = Code Then 'Use this for passcode text يتوجب عليك تغيير (T8) الي العامود الجديد الخاص بكلمة المرور للمسؤول علي سبيل المثال لو اضفنا عدد 3 اعمدة سوف تكون علي النحو التالي (W8:W108) هذا الجزء خاص بترعيف كلمة السر للمسؤول نأتي للخطوة الثانية اذهب الى الاسفل في محرر الاكواد حتي تصل الي ما يلي 'unhide worksheet for user If PName.Offset(0, 3) <> "" Then Set ws3 = Worksheets(PName.Offset(0, 3).Value) ws3.Visible = True End If وهذا الجزء مخصص لتعريف الصفحة المطلوب الصلاحية لها اعمل نسخ لهذا الجزء و اضافتة بعد كلمة End if كرر النسخ لعدد الاعمدة ثم ابداء بتغيير الرقم الموجود في المثال التالي هو للصلاحية رقم 3 ضعها 4 لتكون للصلاحية رقم 4 يجب تغير كل رقم 3 برقم 4 (أي أربع أرقام) (ws3) تحول الي ((ws4) وهكذا لعدد الصلاحيات المطلوبة أخر خطوة اذهب للسطر التالي في محرر الاكواد و سوف تجدة في الاول (Dim ws As Worksheet, ws2 As Worksheet, ws3 As Worksheet) هذا لتعريف ان (ws) هي عبارة عن صفحة اضف (,ws4 As Worksheet) و هكذا لكل صلاحية ايضا مرفق لك ملف معدل أردو أن اكون قد قدمت شئ متواضع لك و ان أكون قد أوفيت لك طلبك ===== Login with new sheet.rar =======

اخي العزيز المشاغب 301 اشكرك جداً على اهتمامك و تعليقك بكل أسف لم اشاهد طلبك سوب منذ لحظات و سوف أثوم بتنفيذ ما ترغب و وضع شرح له و لكن أعذرني الان لن اتمكن من ذلكبسبب عدم توافر الكهرباء عندي نحن في غزة تقطع الكهرباء 12 ساعة متواصلة و تأتي من 3-4 ساعات فقط و بطارية الجهاز ربع عمر فور وصول الكهرباء سوف اعمل علي طلبك اخيرا اتمني لك التوفيق أخوك خالد مسعود

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

اخي العزيز المشاغب 301 يحب عليك الدخول كمسؤول و ثم اضافة الاوراق المطلوبة و بعدها يتم اضافة أسم الاوراق في المكان المخصص لها في العامود Q ثم اذهب للشخص المطلوب و ضع له صلاحية للصفحة الجديدة و اعمل حفظ ادخل مرة اخري بالشخص المطلوب و سوف تظخر لك الصفحة أن شاء الله لفتح صفحة المعلومات Alt F11 اختر الصفحة Login اعمل لها اظهار بعد ذلك لا تنسي ان تغلقها مرة اخري اتمني التوفيق لك

السلام عليكم كلمة المرور vba yara////

استاذ khaled_1960 انا لم استفاد نهائيا من هذا الملف لاني حضرتك قافل ال vba بباس ورد - برجاء فتحه أو لا حاجه لرفعه اصلا لاننا مش هنستفاد ؟؟؟