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

يمكنك حذف هذا السطر If Target.Column = 2 Then وكتابة هذا السطر If Target.Column > 3 and target.column < 14 and target.row > 2 and target.row < 11 Then أو هذا السطر If Not Application.Intersect(Target, Range("D3:M10")) Is Nothing Then بدلا منه بالتوفيق

في زر امر ضع Dim intnewrec As Integer intnewrec = Form.NewRecord If intnewrec = True Then MsgBox "You're in a new record." End If ويمكن ايضا استخدام الشرط في اي حدث او ضمن كود معين مثلا اذا رغبنا في منع التعديل للسجلات ماعدا السجل الجديد او .... الخ

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله عنا كل خير استخدم القناع التالى 00/00/"202"0;0;_ بالتوفيق Database1.accdb

عليكم السلام ورحمة الله وبركاته لفصل التاريخ عن الوقت يمكنك استعمال النص إلى أعمدة text to columns وفي هذا الحالة يجب إضافة عمود واحد بين تاريخ الإصدار وتاريخ الصرف ليتم كتابة الوقت فيه أو يمكنك استعمال flashfill ولكن في هذ الحالة يجب إضافة عمودين بين تاريخ الإصدار وتاريخ الصرف حتى يمكن كتابة التاريخ في الأولى والوقت في الثانية أو يمكنك استعمال المعادلات لتقسيم النص مثل هذه المعادلة لجلب التاريخ فقط من عمود تاريخ الإصدار =MID(A3,1,10) وهذه المعادلة لجلب الوقت فقط من عمود تاريخ الإصدار =MID(A3,12,8) ويمكن تنفيذها على عمود تاريخ الصرف بالتوفيق

وعليكم السلام استخدم هذا الكود بدلا من السابق Nz(DSum("[add_dis_T]";"[Tbl_dis_add]";"[emp_id] =" & [emp_id] & " And [a_d_date] Between [Forms]![frm_migrate_salaries]![st_date] And [Forms]![frm_migrate_salaries]![end_date]");0) TEST_2022 - Copy.rar

تفضل التعديل بعد التعديل.rar

استكمال للرد السابق الاساتذة الفضلاء استخدموا دالة if وبجهد كبير وعمل رائع يستحق كل التقدير فقط وددت عدم تكرار الكود في حدثين والامر الاخر تكرار استخدام الدالة بينما يمكن استخدام ElseIf بدلا من اعادة الجملة الشريطية للاحتمال الثاني وفي حالتي استخدمت Select Case الان ماذا لو اردنا تنفيذ المطلوب بدون اكواد ممكن ذلك عن طريق التنسيق الشرطي نختار الحقل المطلوب اغلاقة ثم تنسيق شرطي ثم قاعدة جديدة ثم تعبير ونكتب [نوع الخطاب]="داخلي" ومثلة للحقل الاخر مع اختيار خارجي تحياتي

محاولة للاجابة ورقة.xls

فكرة اخرى مشاركة مع الاساتذة @Matin_Murad و @abouelhassan الفكرة طالما راح نستخدم الكود في اكثر من حدث في حدث الحالي للنموذج وفي حدث بعد التحديث للحقل النوع فاجد انه لا داعي لتكرار كتابة الكود اولا نعمل اجراء في النموذج اسميته k او اي اسم Sub k() Select Case Me.نوع_الخطاب Case Is = "داخلي" Me.الجهة_الخارجية_الوارد_منها.Enabled = False Me.الجهة_الداخلية_الوارد_منها.Enabled = True Case Is = "خارجي" Me.الجهة_الداخلية_الوارد_منها.Enabled = False Me.الجهة_الخارجية_الوارد_منها.Enabled = True End Select End Sub ثم في حدث الحالي للنموذج وفي حدث بعد التحديث للحقل نوع الخطاب call k تحياتي

New Microsoft Office Access Application.mdb

وعليكم السلام ورحمه الله وبركاته مشاركه مع اخى ومهندسنا العزيز @Eng.Qassim جزاه الله كل خير 💐 اولا يجب الابتعاد عن تسميه الكائنات كالجداول والنماذج وغيرها وكذلك عن تسميه الحقول بالعربى واستخدام خاصيه التسميه التوضيحيه واكتب فيها بالعربى واذا كان الاسم مكون اسمين لا تستخدم مسافات بينهم يفضل الابتداء بحرف كابتل او علامه _ للفصل بينهم بالنسبه لتصميم النموذج ليس من المنطقى وضع حقول للقيم لكل مرحله قمت بالتعديل واستخدام استعلام التحديث وتشغيله فى حدث بعد التحديث لحقل المرحله اكتب القيم المناسبه لكل مرحله ثم قم باختيار المرحله لتحديثها ارجو ان يكون التعديل مناسب لك بالتوفيق اخوانى school.accdb

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

فورم المخزن الترقيم بطريقتين وتبهيت التكست لمنع الكتابه عليه

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير نعم يمكن اطلع عالمرفق بعد التعديل تم استخدام فنكشن بداخل النموذج واستدعائها فى حدث بعد التحديث لحقل المرحله املىء الحقول بالقيم ثم اخترالمرحله Function strUPDate(strTxt As String) strSql = "SELECT Tmasrofat.[المصروفات الاساسية], Tmasrofat.الكتب, Tmasrofat.الزي, [بيانات الطلاب].المرحلة " & _ "FROM [بيانات الطلاب] LEFT JOIN Tmasrofat ON [بيانات الطلاب].[كود الطالب] = Tmasrofat.[كود الطالب] " & _ "WHERE [بيانات الطلاب].المرحلة='" & strTxt & "'" Set rs = CurrentDb.OpenRecordset(strSql) If rs.RecordCount <> 0 Then rs.MoveFirst While Not rs.EOF ' strNew = Me.Text129.Value Me.Dirty = False rs.Edit rs.Fields("المصروفات الاساسية") = Me.Text125 rs.Fields("الكتب") = Me.Text127 rs.Fields("الزي") = Me.Text129 rs.Update rs.MoveNext Wend End If rs.Close End Function بالتوفيق school_1.accdb

وعليكم السلام واياكم اخى الحمدلله انك وجدت ما تبحث عنه اتفضل اطلع ع الرابط التالى من اعداد مهندسنا العزيز محمد طاهر جزاه الله عنا كل خير https://officena.net/Tips/Access-Mask.htm والتالى لميكروسوفت https://support.microsoft.com/ar-sa/office/التحكّم-في-تنسيقات-إدخال-البيانات-بواسطة-أقنعة-الإدخال-e125997a-7791-49e5-8672-4a47832de8da بالتوفيق

عليكم السلام ورحمة الله وبركاته أخي الكريم حتى يتوافق ملفك مع أنظمة قواعد البيانات والمعادلات المتبعة في إكسل يمكنك جعل الأيام الموجودة في الأعمدة من J إلى AG على شكل صفوف أسفل بعضها وإضافة عمود التاريخ لتصبح الأعمدة في قاعدة بياناتك هي: م / اسم الدليل / لغة الدليل / اسم المنفذ / عدد صفحات الدليل الأساسي / التاريخ / عدد الصفحات المخططة / عدد الصفحات المنجزة / المتبقي / ملاحظات بهذا التنظيم يمكنك استعمال دوال مثلsumif أو sumifs بكل سهولة ويسر أو يمكنك استعمال هذه المعادلة ويبقى الملف على حاله في الخلية F4 =SUMPRODUCT($G$18:$AG$30, ($G$17:$AG$17=F$3)*($E$18:$E$30=$C4)) ويمكنك سحب المعادلة يسارا وأسفل مع ضرورة تصحيح عناوين أعمدة عدد الصفحات المخططة في الأيام حيث أنها مكتوب بها المخططة مرتين بالتوفيق

الطريقة المستخدمة في LoginForm تحتاج الى مراجعة حيث يمكن ادخال اي كلمة في حقل Username بطريقة معينة يعتبرها access جملة برمجية تؤدي الى الحصول على خطا وبالتالي يمكن تعطيل عمل الاكواد والدخول بصلاحية كاملة الحل الاسهل في بداية الكود لزر الامر ok ضع On Error Resume Next وانت كنت افضل طرق اكثر احترافيه ولكن هذا موضوع اخر فالموقع به العديد من طرق معالجة الاخطاء تحياتي

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

اخي ان كان فهمي صحيح هذا طلبك تفضل ضع هذه الدالة في عمود متبقي وقم بسحبي للاسفل =IF(D2="2000";"0";D2-$G$1)

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

تفضل هذا التعديل sa1.4.zip

أي إجراء مثل sub tar7eel غير مرتبط بحدث مثل تغير الخلايا داخل الشيت أو فتح المصنف أو غيرها من الأحداث يجب ربطه بزر أو بشكل عن طريق asign to macro الموجودة في كلك يمين على الشكل أو الزر

دفتر صنف.xls

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

Private Sub نوع_الخطاب_AfterUpdate() If Me.نوع_الخطاب = "داخلى" Then Me.الجهة_الخارجية_الوارد_منها.Enabled = False Me.الجهة_الداخلية_الوارد_منها.Enabled = True End If If Me.نوع_الخطاب = "خارجى" Then Me.الجهة_الداخلية_الوارد_منها.Enabled = False Me.الجهة_الخارجية_الوارد_منها.Enabled = True End If End Sub

اتفضل New Microsoft Office Access Application.mdb

بارك الله فيك مهندسنا الحبيب .. 😊 سرني جدا أنك جربت ☺️🌹

اللهم آمين واياكم اخى واستاذى ووالدى الحبيب اللهم بارك لاخوانى فيما زرعوه واجعل حصادهم مبارك يارب العالمين وجازهم عنا كل خير ياكريم اسال الله لكم ولوالديكم ولكل من تحبون وكل اخوانى واساتذتى بان يبارك فيكم ويغفر لكم ولاهليكم وان يرزقكم شربه هنيئه من يد سيدنا محمد صلى الله عليه وسلم وان يرزقكم الفردوس الاعلى 💐

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

بسيطة ان شاء الله اتفضل يا سيدى New Microsoft Access Database (2-1).accdb

يمكنك استعمال المعادلة التالية في الخلية H5 =IF(OR(F5="",G5=""),"",G5-F5+1) وتعني إن كانت إحدى الخليتين فارغة تكون النتيجة فارغة وإلا يقوم بطرح الأكبر - الأصغر ويضيف يوم البداية لأنه محسوب بيوم مع سحبها لأسفل للتطبيق على الخلايا بالأسفل مع ملاحظة أن التاريخين بالصف الأول 6 مارس 2022 و 6 أغسطس 2022 وبينهما 154 يوما وهي كالتالي: 26 و 30 و 31 و 30 و 31 و 6 وليست من 3 يونيو إلى 8 يونيو حتى يكون الفرق بينهم 6 أيام بالتوفيق

Have a look. Is that the desired output

تفضل 🙂 هذا الكود على "بعد تحديث" حقل التاريخ : Private Sub التاريخ_AfterUpdate() If Len(Me.المعرف & "") = 0 Then Me.المعرف = Nz(DMax("[المعرف]", "تتبع") + 1, 0) End If End Sub جعفر Database5.zip

في النموذج ، على حدث "بعد التحديث" لأي حقل اساسي ، تقدر تضع هذا الكود : If Len(Me.المعرف & "") = 0 Then Me.المعرف = Nz(DMax("[المعرف]", "تتبع") + 1, 0) End If . بس نصيحة ، وبما ان البرنامج بعده في اوله ، اكتب اسماء الحقول في الجدول باللغة الانجليزية ، ومو لازم تكتب معنى الكلمة بالانجليزي ، فبدل كلمة طالب/تلميذ ، مو لازم تكتب Student ، تقدر تكتبها مثل نطقها بالعربي Talib ، مثلا 🙂 جعفر

اخي @almamare12 🙂 قصد اخوي @ابو البشر ، ان الكود يعمل بطريقة صحيحة ، ولكن معلومات المعرف غير موجودة في جدول تتبع 🙂 جعفر

انظر لجدول تتبع المعرف غير موجود أقصد اكتب 1 في المعرف ويعمل معك

AutoFilter with 34 Dynamic Filter Criteria اتوفلتر ب 34 دينامك شرط كما لم تراه من قبل !!!_XlDynamicFilterCriteria.xlsb

الشكر لله الذي وفقنا