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

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

السلام عليكم ورحمة الله انا طلبت منك عمل قائمة منسدلة لتسهيل الامر عليك فى التنفيذ و لكن حقيقة الامر ما تم تنفيذه عندى باستخدام زر سبينر "Spinner 2" و لذلك سأرسل اليك الملف بعد التعديل لتطلع عليه بنفسك نهال.xlsm

السلام عليكم ورحمة الله استخدم الكود التالى Sub Cold_Cells() i = 2 Do While i <= 30 For Each c In Range("F2:F8") If Cells(i, 9) = c.Value Then Cells(i, 9).Interior.ColorIndex = 6 End If Next i = i + 1 Loop End Sub

ضع الكود الاتى فى موديول Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer On Error GoTo Err_Handler Dim strMsg As String If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then RunCommand acCmdSaveRecord RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext) DoMouseWheel = Sgn(lngCount) End If Exit_Handler: Exit Function Err_Handler: Select Case Err.Number Case 2046& Resume Next Case 3314&, 2101&, 2115& strMsg = "Cannot scroll to another record, as this one can't be saved." MsgBox strMsg, vbInformation, "Cannot scroll" Case Else strMsg = "Error " & Err.Number & ": " & Err.Description MsgBox strMsg, vbInformation, "Cannot scroll" End Select Resume Exit_Handler End Function ثم فى النموذج فى حدث On Mouse Wheel ضع السطر التالى Call DoMouseWheel(Me, Count)

ولا زالت الإبداعات مستمرة .. 🙂 وهذا التصميم الثالث : القوائم المطوية وكالعادة ملف التطبيق 🙂 صفحة رئيسية مطورة - التصميم الثالث.accdb

السلام عليكم ورحمة الله استخدم تلك المعادلة =IF(LEN(C4)>0;YEAR(TODAY())-MIN(YEAR(C4);D4);YEAR(TODAY())-YEAR(D4))

جرب المرفق عند الضغط على اي خليه بعمود B ستختفي الاعمدة التي حددتها وعند الضغط مرة اخرى ستظهر جرب المرفق ملف.xlsm

تفضل التعديل reglemen1.accdb

تفضل اخي الكريم حسب طلبك reglemen1.accdb

جرب هذه المعادلة =INDEX(C:C,MIN(IF(SUBTOTAL(3,OFFSET(C5,ROW(C5:C12)-ROW(C5),0)),ROW(C5:C12)))) انظر للمرفق Filter.xlsx

جرب المرفق Book1 (2).xlsx

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

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

السلام عليكم 🙂 انا متابع الموضوع من البداية ، ونصيحة الاخوان في مكانها ، وبقية النصائح هنا: . كما عندي هذه الملاحظات في الكود: 1. لا تستخدم On Error Resume Next إلا في حالات جدا خاصة ، وانما استعمل رقم الخطأ وتعامل معاه: Private Sub Form_Load() On Error GoTo err_Form_Load Me.TNO.SetFocus DoCmd.FindRecord Forms!FRM_01!TNO, , , , , , True No_FRM: 'continue code here Exit_Form_Load: Exit Sub err_Form_Load: If Err.Number = 1234 Then 'ignore, Resume Next ElseIf Err.Number = 2145 Then 'ignore, No proper value from incoming Form Resume No_FRM Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Form_Load End If End Sub . 2. ولو انك تقدر تستخدم فلتر النموذج هكذا : myCriteria = "" myCriteria = myCriteria & "(" myCriteria = myCriteria & "[BRANDS]= '" & Me.cmbBRANDS.Column(1) & "'" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Filter = myCriteria Me.FilterOn = True . وهذه نصائح على استعماله: . ولكني انصحك بإستخدام فلتر النموذج عن طريق الاستعلام : . 3. لا تستخدم Dim بدون ان تُعرّف نوع المتغير ، يعني اذا استخدمت (Dim i) فهذا معناه Dim i as Variant 4. لما تستعمل الامر Set rs = CurrentDb.OpenRecordset ، فإنك تضع جميع البيانات الجدول/الاستعلام في ذاكرة الكمبيوتر Ram ، فيجب عليك حذف هذه البيانات في نهاية الكود ، هكذا: rst.close: set rs = nothing جعفر

عن اذن استاذي محمد ابو عبد الله جرب المرفق اخي الكريم Dmax.accdb

تفضل اخي الكريم =Dmain("Field_Name"; "Table_Name"; "Field_Name3 =" & myWhere) =Dmax("Field_Name"; "Table_Name"; "Field_Name3 =" & myWhere) =Dfirst("Field_Name"; "Table_Name"; "Field_Name3 =" & myWhere) =Dlast("Field_Name"; "Table_Name"; "Field_Name3 =" & myWhere) تحياتي

وهذا حل يالتنسيق الشرطى هام.xlsx

الجزء الاول حالة العامل نشط بعد كده المفروض ايه اللى يحصل ؟ حضور وانصراف موظفين.accdb

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

سلام عليكم ورحمة الله وبركاته إخواني الأعزاء .. يسرني ويسعدني أن أقدم لكم اليوم هذه الهدية الجميلة الرائعة والتي كثيرا ما تم طلبها في مختلف المحافل .. وهي عبارة برنامج مجاني وجاهز للدردشة بين المستخدمين على الشبكة الداخلية .. البرنامج شبيه جدا ببرنامج الواتسأب المشهور لذلك سيسهل على المستخدمين فهمه واستخدامه وهذا ما اجتهدت عليه .. وهو برنامج مفتوح المصدر .. يمكن استخدامه كبرنامج منفصل ومستقل .. ويمكن دمجه مع قواعد البيانات الأخرى كجزء من البرنامج الأصلي .. أطلقت على البرنامج اسم : وهذه لقطتين واحدة لشاشة قائمة المراسلات والثانية لقائمة الرسائل في أحد المحادثات .. لن أطيل عليكم الشرح فقد شرحت البرنامج في مقطعين فيديو الأول يشرح البرنامج والثاني كيفية تنصيب البرنامج على الأجهزة .. أولا : شرح عمل البرنامج واستخدامه : ثانيا : شرح كيفية تنصيب البرنامج على الأجهزة : وأخيرا لا تنسوني من صالح دعواتكم ونصائحكم وإرشاداتكم .. ولا أنسى أن أتقدم بالشكر الجزيل لأخي المهندس @ابا جودى على مراجعته النهائية للبرنامج ودعمه الدائم .. لتحميل النسخة الغير مقسمة من هنا :: https://drive.google.com/file/d/1OQFZJ_4hc1_dyNyz8PLkNPABE_4yM7e1/view?usp=sharing ولتحميل النسخة المقسمة ( جداول و واجهات ) من هنا :: https://drive.google.com/file/d/1oj-5wqwLgq8d6TSEyjikhGbEGAloz_Xp/view?usp=sharing أخوكم ومحبكم ،، موسى الكلباني

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

السلام عليكم 🙂 انا ضد وضع الساعة في النموذج ، لأن حدث On Timer يحدث كل ثانية (ساعتك تشير الى انك تعرض الثواني ايضا) : 1. ومستحيل انه يستطيع ان يحدث كل ثانية ، لأن هذا الامر مرتبط بساعة الجهاز ، وعلشان اكسس يقدر يحصل على هذه المعلومة ، فإنه يطلبها من الوندوز ، والذي معناه ان المعالج CPU يجب ان ينفذ هذا الامر ، ومن المعروف ان المعالج يكون لديه طابور من الاوامر لتنفيذها ، والأولوية لتنفيذ أوامر الوندوز ثم اوامر البرامج ، ومستحيل ان المعالج يكون فاضي ومستعد 100% لتنفيذ امر الاكسس في تلك الجزئية من الثانية. لهذا السبب ترى ان معظم الوقت الثواني تعمل بطريقة صحيحة ، وبعض الاوقات تتوقف الثواني (لما المعالج يكون مشغول بتنفيذ أوامر اخرى) ، ولا حقا نرى ان الساعة تعمل بطريقة صحيحة!! طبعا كلامي ليس معناه ان بعد التوقف يكون الوقت خطأ ، وانما كلامي انه يكون فيه تأخير في عرض الثواني بعض الاوقات ، 2. وبما ان الساعة موجودة في زاوية الكمبيوتر (ولاحظ انه لا يوجد بها ثواني ايضا) ، فمافي داعي ان نضع ساعة في النموذج ، إلا اذا كان عندنا نموذج منبثق يملئ الشاشة ، واللي من الخطأ استعمال النموذج المنبثق إلا في حالات نادرة ، وهذه احد مشاكله !! 3. حدث الساعة سيكون يعمل طوال وقت استعمال البرنامج ، ولما تفتح احد النماذج وتريد تنفيذ احد الاوامر ، قد تجد فيه بطئ في التنفيذ ، 4. بما ان حدث الساعة يعمل طوال وقت استعمال البرنامج ، واذا اردت ان تعمل تغيير في كود احد النماذج الاخرى في البرنامج ، فسترى انك لا تستطيع كتابة الكود بحرية ، لأنه كل ثانية سترى ان مؤشر الكتابة يرجع الى اول السطر ويترك السطر بلون احمر لأنك لم تكمل كتابة الكود ، الى ان تغلق النموذج الرئيسي او تضعه في وضع تصميم فيتوقف حدث الساعة 🙂 عند استعمال الصور يجب المحافظة على نسبة الطول الى نسبة العرض ، حتى تظهر الصورة بمقاسات صحيحة ، لذلك لا تستعمل Stretch (لاحظ الخيار الثاني في القائمة) إلا بنسبة قليلة ، وإلا فالشكل الدائري سيظهر كشكل بيضاوي (وهذا غير صحيح وعمل غير احترافي) ، ولاحظت هذا على احد صورك في النموذج : . جعفر

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

بعد اطيب واجمل تحية اتمنى لكم وقتا ممتعا وفائدة ولاتنسونا من دعاؤكم 🌷 https://www.youtube.com/watch?v=3_QDoXynQs0

ما هو كود استبدال اجداول الذى تستخدمه ؟