متقاعد

هل هذا المطلوب xy(3).accdb

اذا كان فهمي صحيح وطالما عندك 10 مربعات سرد في النموذج استبدل كود استاذنا الغالي ابو خليل If x_change = 0 Then Me.Combo0.Enabled = False Me.Combo2.Enabled = False Else Me.Combo0.Enabled = True Me.Combo2.Enabled = True End If استبدلة بــ ⬇️ Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = 111 Then If x_change = 0 Then ctl.Enabled = False ctl.Locked = True Else ctl.Enabled = True ctl.Locked = False End If End If Next ctl الملف مرفق كتبته بشكل سريع ولم اجربه تحياتي تفعيل خانة الاختيار2(1).accdb

امين اللهم اغفر له وارحمه، وعافه واعف عنه، وأكرم نزله، ووسع مدخله، واغسله بالماء والثلج والبرد، ونقه من الخطايا كما ينقى الثوب الأبيض من الدنس، وأبدله دارا خيرا من داره، وأهلا خيرا من أهله، وزوجا خيرا من زوجه، وأدخله الجنة، وأعذه من عذاب القبر، ومن عذاب النار

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

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

اجعل مصدر التقرير استعلام وفيه تتم عملية الجمع الجمع داخل التقرير1.accdb

مشاركة مع استاذنا ابو خليل ممكن عملها بالكود بدون الحاجة الى استعلام في حدث عند النقر لزر الامر بحث نضع الامر التالي ⬇️ Dim strWhere As String strWhere = "" strWhere = "[username] like '*" & [List15] & "*'" strWhere = strWhere & " and " & "[xdate] between " & Format(Nz(start, "01/01/1900"), "\#mm\/dd\/yyyy hh\:nn\:ss\#") & _ " and " & Format(Nz(ind, "01/01/2100"), "\#mm\/dd\/yyyy hh\:nn\:ss\#") & "" Me.Filter = strWhere Me.FilterOn = True ممكن الاستغناء عن طلاسم التنسيق للحقل باستخدام دالة للاخ جعفر ولكن مالي مزاج ابحث عنها في جميع الاحوال طريقة الاستعلام اسهل وانصح بها اخيرا قالت العرب "الصمت حكمه وقليل فاعله" تحياتي

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

2010 ماتزال صامدة وان كان التوجه الى 365 لما سبق ان اشرنا اليه الفروقات بين النسخ ليست كبيرة في نظر البعض والحديث هنا لا يشمل 365 مع ذلك من المميزات في نسخة 21 الاستعلامات اضافة اكثر من جدول للاستعلام من خلال تحديد الجدول المطلوبة ثم اضافة المحدد في نافذة اضافة جداول يمكن البحث عن الجداول تغيير حجم العرض للجدول بالنقر على الزر الايمن ثم تغيير الحجم وبالتالي يتم عرض كافة حقول الجدول ممكن البحث والاستبدال في طريقة عرض sql اطار اكسس فتح عدة تبويبات والتنقل بينها تصميم الجدول اضافة حقل من نوع وقت تاريخ موسع متوافق مع نوع التاريخ "التاريخ والوقت 2 في SQL Server" ولكن عند استخدامه لن تعمل القاعدة مع الاصدارات الاقدم وقد نحصل على نتائج غير صحيحة في العمليات الحسابية في العلاقات تغيير حجم العرض للجدول بالنقر على الزر الايمن ثم تغيير الحجم وبالتالي يتم عرض كافة حقول الجدول و يمكن استخدام عجلة الماوس لمعاينة حقول الجدول لسهولة اختيار حقول العلاقة اضافة الى تحسينات في ادارة الجداول المرتبطة وكذلك نسق اوفيس باضافة رمادي واسود واعدادات النظام هذه ربما ابرز الاضافات ولكن هل تساوي قيمة المبلغ للانتقال من اصدار سابق ربما نعم وربما لا . اخيرا عندما ارسلت مايكروسوف الاصدار 2021 اخبروني ان هذا اخر اصدار سيتم ارسالة لي وان بامكاني مستقبلا الحصول على اصدار 365 فقط تحياتي

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

ولمزيد من الاثراء هنا كان نقاش في موضوع حساب الاقساط ويوجد مرفق من تعديل الاستاد @د.كاف يار

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

تعديل المرفق بعد استثناء الحقلين e و x للطريقتين في الطريقة الاولى If ctl.Name <> "المعرف" And ctl.Name <> "x" And ctl.Name <> "e" Then وفي طريقة التاج فقط ازلنا النجمة من خصائص الحقلين test1(1)(1).accdb

نعم ممكن فقط في الحقل الذي ترغب في عدم احتسابة احذف النجمة في خصائص الحقل تبويب غير ذالك علامة احذف النجمة هذا استخدمنا التاج في تعريف الحقول شاهد الصورة في ردي الاول اما اذا استخدمنا نوع الحقل فعلينا استثناء الحقل If ctl.Name <> "المعرف" Then وهكذا ممكن اضافة حقول اخرى في الاستثناء تحياتي

الملف مرفق test1(1).accdb

مشاركة مع الاستاذ خليفة اذا كان عدد الحقول كبير فيمكن عن طريق حلقة تمر على الحقول بدون الحاجة الى كتابة اسماء الحقول Dim ctl As Control Dim k As String kk = "" For Each ctl In Me.Controls If ctl.ControlType = 109 Then If ctl.Name <> "المعرف" Then k = k & "" & ctl End If End If Next ctl kk = k واذا اردنا عدم تحديد نوع الحقول وعدم كتابة اسماء الحقول التي سوف نستثنيها فيمكن باستخدام Tag Dim ctl As Control Dim k As Variant kk = "" For Each ctl In Me.Controls If ctl.Tag = "*" Then k = k & "" & ctl End If Next ctl kk = k تحياتي

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

تقصد الملفات المصابة او المشبوهة ؟ تجربتي قديمة على ملفات غير مشروعة في ويندوز اكس بي وويندوز 7 لا يتم اكتشاف هذا النوع الا اذا تم عمل فحص شامل للهارد او اذا قام الملف باجراء مشبوه وبشرط ان يكون مكافح الفيروسات محدث ونسخة نظام التشغيل اصليه غير معدلة ومحدثة اما اصحاب النسخ المكركة فلا تعليق بالنسبة للاصدار 10 و 11 فلا علم لدى فقد توقف عن تجريب مثل هذه البرامج اذا كان فهمي صحيح فممكن عمل باتش يقوم بنقل ملف البرنامج الى مكان اخر وضغطة باستخدام الوين رار ويكون ناتج الملف على شكل صورة صيغة امر الدمج copy /b 11.jpg+kha.rar new.jpg وبالتالي يكون لديك ملف صورة بريئة كأي صورة اخرى ولكن من يدقق سيجد ان حجمها اكبر من المعتاد وفي جميع الاحوال سأتوقف هنا فقد ادركنا الصباح افضل برنامج لكتابة اكواد الباتش Notepad++ تحياتي

نعم اخي جعفر عدنا الى بداية الثمانينات والشاشة السوداء على كل حال الطريقة باستخدام شرطين اذا كان الباسورد صحيح اذهب الى a وفيها الشرط الثاني الخاص بالاخفاء والاظهار تاكد من وجود الملف بامتداد اكسس في المسار ثم غير الامتداد الى txt او اي امتداد نرغب ثم اخفي المجلد اما اذا كان الامتداد في المجلد ليس اكسس غيره الى اكسس واظهر المجلد اخيرا اذا كان الباس غير صحيح اذهب الى k وفي اجراء k رسالة ان الباس غير صحيح واغلق الباتش هذا كل شي @echo off set /p pass="Enter your password:" if %pass%==1980 (goto a) else goto k :a if exist d:\folders\myfolder\"kh.accdb" ( ren d:\folders\myfolder\*.accdb *.txt attrib +s +h d:\folders\myfolder goto end ) else ( attrib -s -h d:\folders\myfolder ren d:\folders\myfolder\*.txt *.accdb goto end ) :k echo invalid password pause goto end ) :end فقط افتح برنامج المفكرة ثم احفظ الكود بامتداد bat ولا تنسي تغيير مسار المجلد الى المسار لديك وايضا الرقم السري اخيرا مازالت عند رأيي السابق فكر فيما اشار عليك الاستاذ جعفر ودع عنك الباتشات فانا اشرت اليها على انها حل اخر و من زمن اخر ، فقط لاثراء الموضوع وليس بديلا لما اشار اليه الاساتذه الكرام تحياتي

بداية اعتذر عن التأخير لاسباب خاصة الحقيقة ان الحل المقدم من الاستاذ @jjafferr في رأيي هو الحل الامثل بالنسبة لملف الباتش ممكن عمله وان كنت افضل دائما تجنب ذلك طالما توجد حلول اخرى بداية ممكن كتابة الباتش بطرق كثيرة وجميعها تؤدي العرض الطريقة الاولى ⬇️ اذا كانت كلمة المرور صحيحة اظهر الملف وغير ذلك انهي الباتش @echo off set /p pass="Enter your password:" if %pass%==1980 ( attrib -s -h d:\folders\myfolder goto end ) else ( echo invalid password pause goto end ) :end الطريقة الثانية ⬇️ اذا كان الباس صحيح اذهب الى A وغير صحيح اذهب الى K ولكل منهما اجراء @echo off set /p pass="Enter your password:" if %pass%==1980 (goto a) else goto k :a attrib -s -h d:\folders\myfolder goto end :k echo invalid password pause goto end :end الطريقة الثالثة ⬇️ باستخدام نفي الشرط @echo off set /p pass="Enter your password:" if not %pass%==1980 goto k attrib -s -h d:\folders\myfolder goto end :k echo invalid password pause goto end :end ممكن تغيير الرقم السري من 1980 الى اي رقم تريده ايضا تغيير مسار الملف حسب مسار البرنامج لديك ممكن ايضا تنفيذ الملف من خلال زر امر او حدث في اكسس ممكن ايضا تحويل الملف الدفعي الى ملف تنفيذي exe ولحفظ الملف انسخه في المفكرة ثم احفظ بامتداد bat ممكن ايضا اخفاء ملف الباتش وتنفيذه من خلال ملف باتش اخر هذا فيما يتعلق باظهار المجلد واذا اردنا عكس العملية باخفاء المجلد ممكن استبدال attrib -s -h d:\folders\myfolder الى attrib +s +h d:\folders\myfolder واذا اردنا مزيد من التموية ممكن نضع امر تغيير مسمى البرنامح وامتدادة مثلا ren d:\folders\myfolder\kha.accdb test.ini attrib +s +h d:\folders\myfolder ولكن اذا استخدام تغيير الاسم والامتداد لابد ان نعيدهما بنفس الطريق في باتش اظهار الملف اخير ممكن وضع شرط في الباتش اذا كان الملف مخفي اظهره وان كان ظاهرا اخفيه ولكني سأكتفي بما سبق تحياتي

لا اعتقد ذلك لاننا غيرنا سمات المجلد مع اني لم اجرب مع ذلك يمكن عكس العملية لاخفاء المجلد من خلال الامر التالي attrib +s +h d:\folders\myfolder الان فقط قارن بين الامر هذا للاخفاء والامر السابق للاظهار وشاهد الفرق بينهما بالنسبة لي لو اردت عملها سوف اعمل ملف دفعي يقوم بالمهمة اخفاء واظهار ولكن هذا موضوع اخر وليس برمجة اكسس اخير اشكر لك حسن ظنك وثناؤك الذي لا استحقه

الف مبروك ومزيد من التقدم

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

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

مع اني مبتعد لكن مواضيعك لها طابع خاص بالنسبة لي افضل استخدام سطر الاوامر الدخول على تشغيل ثم كتابة cmd ثم استعراض ملفات المجلد لمعرفة اذا كان هناك ملفات مخفية باستخدام الامر dir /ah الان تأكدت من وجود مجلد مخفي ولاظهاره استخدمت الامر D:\>attrib -s -h d:\folders\myfolder والنتيجة تغيير سمات المجلد و اظهار المجلد المخفي وملفاته طريقة قديمة من ايام ms-dos و pc-dos ولكن لكل اصدار بعض المعلمات تحياتي