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

http://www.mediafire.com/file/0ilvrdi5ergx3o8/DBtoEXE.exe/file تفضل DBtoEXE.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذه مجموعة من ملفات ريجستري لتخفيض الأمان حسب نسخة الاوفيس للأخت الفاضلة زهرة zaSecurityLowLevel2003.rar zaSecurityLowLevel2007.rar zaSecurityLowLevel2010.rar zaSecurityLowLevel2013.rar تحياتي

بصراحة أنا وضعتها من أجلك لكن عندما لم تعلق على الموضوع ظننت أن الفكرة لم تعجبك.

من الملفات القديمة التي تمت مشاركتي لها والتي تطلب غالباً كيف نحمي الخلايا غير الفارغة بواسطة باسوورد (الباسورد في الملف / الخلية H3/ يمكن حفظة و مسحه عن عيون الفضوليين) مع حرية الغاء الجماية كما تشاء protect non empty data with Pass word.xlsm

تمام والآن ، علشان تخفي الحقول الغير مطلوبة ، وتمدد/تقلص حجم الحقول ، شوف هذا الرابط جعفر

شكرا لك استاذ سليم بس انا اريد ان اقول : اذا كانت الخلية A1 تحتوي على الارقام من واحد الى تسعة ( يعني اما 1 او 2 او 3 او 4 او 5 او 6 او 7 او 8 او9) يعني رقم واحد فقط بالخلية من هذه الارقام محصول بين ( الواحد والتسعة مثلا)فأن A1 تكون مضروبة في 10 وعدا هذا تكون النتيجة FALSE باستخدام الدالة IF ولكم جزيل الشكر

شكرا ليك اخى واستاذي الغاالي وجزاك الله كل خير

اليك هذا الموضوع للاستاذ جعفر ::بالتوفيق::

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

جزاك الله كل خير وبارك الله فيك الى الأمام دائما

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

تفضل اخى عامر aamir-1.xlsm

السلام عليكم ورحمة الله وبركاته اخواني ومعلميني " لكم مني كل التقدير والاحترام " لقد تعلمت منكم الكثير في الاكسيل والنموذج الذي ارفقته هذا من تعليمي من المنتدي العظيم " اوفيسنا " ولكني اريد ان اكمل الجزء الخاص بالمستودعات " نموذج متابعة كميات المستودعات " حيث قد وقفت امامي بعض الامور الخاصة بالاكواد لانني لم اتطرق بعد في الاكواد فرجاءا من عباقرتنا المكرمين مساعدتي في الحل البسيط بالنموذج وانا اكثر من موضوع واجد النتيجه من سيادتكم فلكم جزيل الشكر والتقدير وجزاكم الله خيرا Inventory Qtty Tracking ( Template ).xlsm

برجاء في حال الافادة من الاعضاء ابلاغي

جزاك الله كل خير وبارك الله فيك أحسنت-وهذا حل مناسب جعله الله فى ميزان حسناتك

استاذي الفاضل الرابط لايعمل

الرابط لا يعمل

اخي الرابط لا يعمل

السلام عليكم بطريقة اخرى اخفاء قيم الصفر في ورقة تذهب الى خيارات اكسل و منه خيارات متقدمة تلغي الإشارة الموجودة على - اظهار صفر في الخلايا التي قيمتها صفر كما في المرفق تعديل على معادلة جلب الوقت.xlsm

الفكرة هي الرجوع للاستعلام ، وعمل كل شيء هناك: ولكن لفهم الاكواد في التقرير ، كان يجب تحليلها: . وضعنا الكود في الاستعلام ، ولذي سيزيد وينقص عدد السجلات حسب عدد لفصول : . وعملنا تقرير فرعي من الاستعلام اعلاه ، ووضعناه داخل التقرير الرئيسي: . جعفر mezanya.zip

خزن فى قاعدة البيانات الحالية currentdb جملة الاستعلام التالية مع ملاحظة Where (group=) Fs اسم المتغير الذى سيتم استدعاء الوظيفة به وعند الاستدعاء نجعل المتغير يساوى رقم المجموعة من 1 إلى 11 داخل حلقة تكرارية والبقية تأتى إن تيسر الحال

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

الاكسل يفعلها كيفما تريد By_class Or by_ section.xlsm

نعم وهذا الذى تم فى الملف المرسل سابقا بعد التعديل هل رأيته ؟

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

السلام عليكم ورحمة الله وبركاته الشرح داخل ملف الاكسيل aamir.xlsm

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

وعليكم السلام تفضل الكود: https://access-programmers.co.uk/forums/showpost.php?p=994044&postcount=1 جعفر

وعليكم السلام اخي حمدي ، 1. نت غيرت حدث "قبل التحديث" ، بدل ان يكون للحقول ، جعلته للنموذج ، والعمل اختلف كليا !! 2. وحدة الافلات هي التي كانت المشكلة ، وليس الكود الذي اعطيتك ، 3. انت نسيت ان تنسخ سطر Exit Sub للكود !! على العموم ، تفضل: Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo err_chk_BeforeUpdate Dim ctl As Control Dim rst As DAO.Recordset Dim dbs As DAO.Database Dim fName As String: Dim myCriteria As String Dim A0 As String: Dim A1 As String: Dim A2 As String 'Set ctl = Me.ActiveControl Set ctl = ctlDrop fName = "[" & Mid(ctl.Name, 1, Len(ctl.Name) - 1) & "-مادة" & Right(ctl.Name, 1) & "]" '[الاثنين-مادة1] myCriteria = "[" & ctl.Name & "]=" & Chr(39) & ctl.Value & Chr(39) 'A0 = DLookup(ctl.Name, "Teacher Class", myCriteria) 'A1 = DLookup(fName, "Teacher Class", myCriteria) 'A2 = DLookup("[NAMEe]", "Teacher Class", myCriteria) Set dbs = CurrentDb Set rst = dbs.OpenRecordset("Select * From [Teacher Class] Where " & myCriteria) A0 = rst(ctl.Name) A1 = rst(fName) A2 = rst!NAMEe ' If A0 > 0 Then Beep If MsgBox("...هذا الفصل " & ctl.Name & "..لديه مادة.." & vbCrLf & _ " باسم : " & A1 & vbCrLf & _ " للمدرس : " & A2, _ vbYesNo + vbCritical + vbMsgBoxRight, "تنبيه") = vbNo Then Me.Undo Cancel = True End If ' End If Exit_chk_BeforeUpdate: rst.Close: Set rst = Nothing: dbs.Close Exit Sub err_chk_BeforeUpdate: If err.Number = 3021 Then Resume Next Else MsgBox err.Number & vbCrLf & err.Description End If End Sub جعفر

السلام عليكم كود المسح Range("D1").Select Selection.ClearContents و الباقي غير واضح مامعنا يساوي هل المطلوب اكبر تاريخ او مجموع التواريخ او غير ذلك

وهذا هو الكود المستخدم فى حدث الصفحة بالملف : Private Sub Workbook_Open() If Date >= DateValue("15/07/2018") Or Sheets("sheet1").Range("a1") = 1 Then Sheets("sheet1").Range("a1") = 1 MsgBox "Expire ÅäÊåÊ ÕáÇÍíÉ ÇáãáÝ" ThisWorkbook.Save Application.Quit End If End Sub

وعليكم السلام -اهلا وسهلا بك اخ كريم فى المنتدى تفضل ترحيل.xlsx

كيف نعرف اذا كان رقم ما هو أوّلي او لا واذا لم يكن أولياً ما هي قواسمه و ما هو عددها? (ما عدا الواحد والعدد نفسه) Prime Or Not Prime.xlsx

السلام عليكم غير هذا السطر الأخير : DoCmd.RunSQL sql_statment بهذا السطر: CurrentDb.Execute sql_statment

وتغيير اخير ، إضافة عرض الحقول بغير بيانات ، الى الحقول التي بها بيانات ، وبهذه الطريقة الحقول دائما تملئ عرض التقرير عمل التجربة في تقرير جديد: . . جعفر 783.عرض تقرير.zip

وهذه تحسين لفكرة اخي الفنان جعفر ! وحسب فهمه ! يعني لو خطأ مالنا شغل ! الصق جملة الاستعلام التالية كمصدر للاستعلام TRANSFORM Sum(Table1.ammount) AS Sumمنammount SELECT Year([dates]) AS السنة FROM Table1 GROUP BY Year([dates]) PIVOT IIf(Month([dates]) Between 1 And 6,"1-6","7-12"); بالتوفيق

وعليكم السلام اذا اللي فهمته صح ، جدولك فيه حقل التاريخ والقيمة: وانت تريد النتيجة هكذا: والتي عملناها هكذا: جعفر 87.Database1.accdb.zip