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

السلام عليكم 🙂 اشكرك على المثال الذي ارفقته ، فقد ساعدني للوصول الى التالي: البرنامج كان يحتاج الى تعديلات اساسية ، فقمت بعمل بعض الاضافات والتعديلات عليه: 1. عمل جدول خاص للمدرسين ، ولكل واحد رقمه الخاص Teacher_ID (حتى لا تتشابه الاسماء) ، ورقم المدرسة التي هو بها SID : . 2. عملت جدول ، ذكرت فيه رقم المدرسة SID ، والقاعات المسموح ان يقوم المدرسين بمراقبتها : . 3. على هذا الاساس ، عملت استعلام ، حتى نعرف القاعات التي نسمح للمدرسين ان يراقبوها : . والنتيجة: . وسنقوم بعمل القرعة من جديد ، بناء على اعلاه ، فسؤالي: هل نتائج الاستعلام صحيحة؟ انت قلت في مشاركاتك الخاصة بالموضوع: 1- وضع كل ستة مدرسين في كل قاعة 2- يجب اختيار هؤلاء المعلمين الستة في ثلاث مدارس مختلفة ولكن نصفهم من الذكور وآخرون الإناث 3- كل المعلم في قاعات مدينتهم 4- تكرار اسم المعلم غير مسموح في قاعات المختلفه‌. ممكن تساعدني مرة ثانية وتعمل لي مثال في صفحة اكسل (ولكن رجاء استعمل الاسماء Teacher_ID الموجودة في قاعدة البيانات المرفقة) ، وحسب شروطك اعلاه ، للقاعات 111 و 113 . يعني شغلنا سيكون على الاستعلام فقط ان شاء الله 🙂 شكرا 2020.zip

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

تسلم بالتوفيق .... الحمد لله رب العالمين

بارك الله في اخي الكريم @زياد الحسناوي

تفضل ..... Security.accdb

تفضل ..... Security1.rar

السلام عليكم ورحمة الله تم عمل المطلوب بمعادلات صفيف (التأكيد يكون بالضغط على CTRL+SHIFT+ENTER بعد حجز المعادلة في الخلية ثم تُنسخ بالسحب إلى الأسفل)... بن علية حاجي عدد أخر فراغات.xlsx

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

وعليكم السلام-اهلا بك اخى الكريم بالمنتدى قسيمة مشترك.xlsm

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

If Not Len(Dir("C:\Users\ACER\Desktop\Date1.mdb")) > 0 Then Me.Com1.Visible = True Else Me.Com1.Visible = False End If Date1.mdb

السلام عليكم برنامج محاسبة ومخازن 2019 يهم كل شخص صاحب مصلحة تتعلق بالبيع والشراء برنامج مفتوح المصدر من تصميمي اتمنى لكم الفائدة كلمة السر 12345 أي استفسار انا جاهز ........... او على واتس اب 00962787787573 ** قريبا انتهي من تصميم برنامج محاسبة شركات شامل وموسع ........ عند الانتهاء سأرفعه لكم لكي تعم الفائدة الان شغال على برنامج ادارة مكتب محامي ........ اللي يهمه هذا البرنامج يكتب ملاحظة وسأزوده به مجانا محاسبة ومخازن 2019.rar

السلام عليكم ورحمة الله وبركاته عندما يكون برنامج الاكسس يعمل ، وفجأة بدأ بإعطاء رسائل خطأ وبدون اي تعديل في البرنامج ، او عند عمل تعديل على البرنامج يُغلق الاكسس: . فغالبا المشكلة يمكن حلها بعمل هذه الخطوات: @Echo off Echo decompiling D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /decompile /cmd shutdown Echo compacting D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /compact Echo compiling D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /cmd compile Echo compacting D:\Testing\myDataBase_FE.accdb "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" /compact Echo Opening D:\Testing\myDataBase_FE.accdb , and Exiting .bat start "" "C:\Program Files\Microsoft Office\Office14\msaccess.exe" "D:\Testing\myDataBase_FE.accdb" وانا استعمل هذا الملف المرفق ليقوم بالعمل كله: سيفتح البرنامج ، ويجب عليك غلقه ، الى ان لا يفتح تلقائيا مرة اخرى. ولكن ، يجب دائما اخذ الاحتياط وعمل نسخة من البرنامج قبل عمل هذه الخطوات. اقدم لكم شرح بسيط عن الموضوع: في الكثير من الاوقات ، لما نعمل الكود ، نقوم بتعديل وتغيير وتضبيط الكود عدة مرات ، ولكن الاكسس في بعض الاحيان يبقى محتفظ بالكود القديم في ذاكرته !! لذلك : 1. اثناء البرمجة ، وبشكل يومي اقوم بتشغيل هذا الملف المرفق ، 2. وقبل تسليم البرنامج الى الزبون ، اقوم بتشغيل الملف للمرة الاخيرة ، واجهز البرنامج لتسليمه الى الزبون 1Decompile2.zip xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx النسخة رقم 2 ، والتي لا نتعامل مع الكود ، وانما بواجهة فقط 🙂 جعفر

السلام عليكم كما وعدتكم .......... البرنامج جاهز ,,, وهو حسب نظام المملكة الاردنية الهاشمية تستطيعون التعديل عليه بما يتناسب مع منطقتكم من حيث الاسماء والاضافات البرنامج مفتوح المصدر وهو من تصميمي للتواصل والاستفسار عبر الواتس اب 00962787787573 اتمنى لكم الفائدة برنامج المحامي 2019 - Copy.rar

والله ربنا يباركلك انا مش عارف اشكر حضرتك ازاى جزاءاك الله كل خير

السلام عليكم ورحمة الله أولا / جازانا الله وإياكم وكل المسلمين خيرا... ثانيا / تم عمل المطلوب (في الملف المرفق) بإضافة قائمة منسدلة للصف المختار مع زر طباعة شهادة واحدة (فقط) للتلميذ المختار من هذه القائمة... ثالثا / أردتَ شرحا بسيطا لهذا العمل، فقد تم إضافة معادلات وأكواد في الملف : المعادلات تجلب بيانات الطلبة من القاعدة، والأكواد تقوم ببساطة بطباعة الشهادات كود للطباعة الكلية وكود للطباعة الفردية... وقد استعنت أيضا ببعض النطاقات بالتسمية لتسهيل بعض العمليات... مع تنسيقات تجسينية لصفحة الشهادات... بن علية حاجي نتيجة.xlsm

نفضل DIFF period-فرق السنوات والشهور والأيام على ثلاثة خلايا.xlsx

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

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

شكرااااا

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

آه نسيت هذه الجزئية ، شكرا اخب خلف 🙂 هنا نقاش عن هذا الموضوع كذلك: . وهنا جعفر

جرب هذه المعادلة =INDEX(A:A,MOD(ROWS($A$1:A1)-1,COUNTA(A:A))+1) الملف مرفق salim_formula.xlsx

السلام عليكم لكي تعمل نسخة البرنامج من لاحقة ACCDE على جهاز غير الذي تم تكوينها عليه، لا بد أن تكون محفوظة على جهاز من نفس فئة البت 64 أو 32. السؤال هل جربت البرنامج بصيغة ACCDE على الجهاز الذي حولته عليه؟ إذا لم يعمل عندها فالحل : 1- عمل COMPILE 2- إذا لم تنجح عملية التجميع فعليك بحذف الأكواد الفارغة أو وضع أمر ما فيها ،مثل: Private sub ....() ' ترك الأمر فارغاً end sub

مشكور فتح البرنامج بدون واجهة الدخول

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

شكرا جزيلا ولكن البرنامج لايفتح معي

ياريت لو تنزل الملف مفتوح قبل تحويله

السلام عليكم تم التعديل على المعادلة بما يناسب... ملاحظة: لا تفتح موضوعا جديدا للسؤال نفسه ما دام أنه لم تكتمل الإجابة عنه بصفة نهائية، وقد تم دمج الموضوع الجديد مع الموضوع الأصلي (الموضوع "عدد آخر خلايا فارغة")... بن علية حاجي عدد أخر فراغات (1).xlsx

وعليكم السلام 🙂 من الصعب مساعدتك في برنامج مغلق ، ولكن: 1. استخدم هذا الرابط ، وبعدها جرب برنامجك: 2. الشيء الثاني اللي يجي في بالي ، هو ان توقف اي شيء فيه ActiveX ، وكذلك جرب (لاحظ ، ان النموذج الذي فيه هذه الاداه ، هو النموذج الذي ينتج منه خطأ). جعفر

السلام عليكم الجواب في الملف المرفق... بن علية حاجي استفسار.xlsx

أستاذ @jjafferr ما ينقصني هنا هو كود معرفة نوع عناصر التقرير لدي هذا الكود يقوم بإستخراج عناصر التقرير و إريد إضافة الدالة التي تقوم بإعطائنا نوع هذا العنصر (textbox ,label, image...) Dim frm As Report Dim fc As Control Dim xname as String For Each fc In frm.Controls xname = fc.Name Next fc

بارك الله فيكم جميعا😊😊😊

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

الأخ الكريم سؤالك غير منطقى وغير مفهوم انت تقول ... ((( على سبيل المثال البحث عن تاريخ 5/2/2018 هو تاريخ محصور بين تاريخين فى شيت الاكسل هما من 1/2/2018 : 28/2/2018 وفى المقابل يقوم بعرض البيانات المقابله له فى التكست بوكس المقابله له . على الرغم ان تاريخ 5/2/2018 غير مدرج فى شيت الاكسل ولاكن هو فترة زمنيه محصورة بين تاريخين معينين . ))) فكيف للاكسل ان يجد هذا التاريخ !!!! ؟ وكيف يكون له بيانات وهو غير مدرج !!!! ؟

لك جزيل الشكر والامتنان الاستاذ علي

وهذه طريقة اخرى ....... اختر ما شئت الصيانة (1).accdb

وعليكم السلام تفضل Attendance Report.xlsx

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

بس قلب جميل استاذي الفاضل

وعليكم السلام اخي عبداللطيف 🙂 شكرا لك على هذه البرامج التشجيعية 🙂 عندي مداخله لوسمحت لي 🙂 وبإستعمال طريقة Dcount ، ولكن بشكل يختلف: لسنا بحاجة الى نموذج فرعي ، ولا الى الحقل الذي يأخذ قيمة النموذج الفرعي ، كل الذي نحتاجه هو: Private Sub الاسم_BeforeUpdate(Cancel As Integer) If DCount("*", "العميل", "[الاسم]='" & Me.الاسم & "'") > 0 Then MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع" Me.Undo Cancel = True End If End Sub . ولكن ، بعض الاوقات لما المستخدم يلاقي ان الاسم تم ادخاله مسبقا ، فإنه يريد الذهاب الى ذلك الاسم للتأكد من عدم تشابه الاسماء (وهذا ما حصل مع بعض مستخدمي برامجي 🙂 ) ، لذلك ، اليك هذه الطريقة: Private Sub الاسم_BeforeUpdate(Cancel As Integer) Dim ID As Integer Dim Msg, Style, Title, Response ID = Nz(DLookup("[المعرف]", "العميل", "[الاسم]='" & Me.الاسم & "'"), 0) If ID <> 0 Then Me.Undo Cancel = True Msg = "هذا الاسم موجود بالفعل" & vbCrLf & _ "المعرف رقم " & ID & vbCrLf & vbCrLf & _ "Yes : نعم اذهب الى ذلك السجل" & vbCrLf & _ "No : فقط الغي هذا السجل" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "التكرار ممنوع" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then DoCmd.FindRecord ID, , , , , acAll, True End If End If End Sub . والنتيجة: جعفر 1006.التكرار ممنوع.accdb.zip

اخ خالد دى صورة اخرى للفورم بالبحث بكتابة اول حرف وظهور الاسم فى ليست

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

أساتذتى وإخوتى الكرام .. الملف التالى حول احد الدوال البحثيه .. Find.. الملف يتناول شرح وسائط الدالة .. اتمنى ان يمثل إضافه بسيطة .. المرفقـــات Find_2.rar

السلام عليكم ===== اليوم ساقدم لكم استخدام مبهر للدالة VLOOKUP تعودنا ان الدالة VLOOKUP تبحث عن قيمة معينة فى نطاق محدد " فى صفحة محددة" اليوم ستقوم الدالة VLOOKUP بالبحث عن قيمة محددة فى عدة نطاقات وفى عدة صفحات الدالة اسمها multvlookup وهى من النوع U D F Option Explicit[/b] [b]Public Function MultVlookup( _[/b] [b] FindThis As Variant, _[/b] [b] LookIn As Range, _[/b] [b] SheetRange As String, _[/b] [b] OffsetColumn As Integer) _[/b] [b] As Variant[/b] [b]Dim Sheet As Worksheet[/b] [b]Dim strFirstSheet As String[/b] [b]Dim strLastSheet As String[/b] [b]Dim SheetArray() As String[/b] [b]Dim blnFirstSheet As Boolean[/b] [b]Dim rngFind As Range[/b] [b]Dim blnFound As Boolean[/b] [b]Dim n As Integer[/b] [b]'جعل نطاق البحث عمود واحد[/b] [b]If LookIn.Columns.Count > 1 Then[/b] [b] Set LookIn = LookIn.Resize(LookIn.Rows.Count, 1)[/b] [b]End If[/b] [b]'حجم الصفيف لاحتواء كافة أسماء ورقة عمل[/b] [b]ReDim SheetArray(ActiveWorkbook.Worksheets.Count)[/b] [b]'الحصول على أسماء ورقة العمل[/b] [b]strFirstSheet = Left(SheetRange, InStr(1, SheetRange, ":") - 1)[/b] [b]strLastSheet = Right(SheetRange, _[/b] [b] Len(SheetRange) - InStr(1, SheetRange, ":"))[/b] [b]'وضع أسماء ورقة عمل في "نطاق ورقة" مجموعة في صفيف[/b] [b]blnFirstSheet = False[/b] [b]n = 0[/b] [b]For Each Sheet In ActiveWorkbook.Worksheets()[/b] [b] If Sheet.Name = strFirstSheet Then[/b] [b] blnFirstSheet = True[/b] [b] End If[/b] [b] If blnFirstSheet = True Then[/b] [b] SheetArray(n) = Sheet.Name[/b] [b] n = n + 1[/b] [b] End If[/b] [b] If Sheet.Name = strLastSheet Then[/b] [b] blnFirstSheet = False[/b] [b] End If[/b] [b]Next Sheet[/b] [b]'نطاق البحث في كل ورقة عمل في مجموعة[/b] [b]blnFound = False[/b] [b]For n = 0 To UBound(SheetArray, 1)[/b] [b] With Worksheets(SheetArray(n)).Range(LookIn.Address)[/b] [b] Set rngFind = .Find(FindThis, LookIn:=xlValues, _[/b] [b] MatchCase:=False, LookAt:=xlWhole)[/b] [b] End With[/b] [b] If Not rngFind Is Nothing Then[/b] [b] 'ايجاد النتيجة[/b] [b] blnFound = True[/b] [b] End If[/b] [b] If blnFound = True Then Exit For[/b] [b]Next n[/b] [b]'عودة القيمة[/b] [b]If blnFound = True Then[/b] [b] MultVlookup = rngFind.Offset(0, OffsetColumn - 1)[/b] [b] Else[/b] [b] MultVlookup = "Not Found"[/b] [b]End If[/b] [b]End Function[/b] [b] وسوف لا اتكلم كثيرا فالدالة تتحدث عن نفسها المساعدة.rar