أ / محمد صالح

أعتقد أنك لم تمكن الملف من العمل في أول مرة فهذا ما يحدث عندي بالصور هذه صورة الإعدادات قبل تشغيل الملف وعند فتح الملف لأول مرة تظهر رسالة تمكين المحتوى وبعد تمكين المحتوى وعمل الملف هذه صورة الإعدادات ...... على العموم حتى تظهر رسالة تمكين المحتوى هذه مرة أخرى غيّر اسم الملف ثم افتحه واختر تمكين المحتوى أو تمكين الماكروات لأول مرة فقط وسيغيرها الملف كما مر بالصور

شكرا لك أخي الكريم mhrrd وبانتظار رأي الأخ سعيد فيما تقدم وبانتظار تواصل الأعضاء المحترفين في المعادلات في الموضوع لإثرائه

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

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

أخي الكريم لتخفيض أمان الأكسس برمجيا لجميع نسخ الأكسس ضع في حدث عند التحميل للنموذج الذي تفتح عليه قاعدة البيانات الكود التالي Private Sub Form_Load() If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" End If End Sub ومرفق مثال على ذلك بصيغة 2010 و 2003 يرجى تجربته على أكثر من إصدار أنا جربته على 2010 فقط ولكن بفضل الله الفكرة صحيحة MasAccessSecurity.rar MasAcessSecurity_mdb.rar

افتح النموذج في عرض التصميم ثم اضغط على ورقة الخصائص property sheet من التبويب تصميم design في شريط الأوفيس ribbon ثم ابحث عن الخاصية منبثق popup في قائمة الخصائص وغيرها إلى نعم yes

بالنسبة لتغيير الاسم يمكنك الذهاب إلى لوحة التحكم ----> تعديل اسم الظهور ثم تكتب الاسم الذي تريده وكلمة المرور الحالية ........... وبالنسبة لموضوع العدد أنت الذي قررت أن يكون 30 وتسأل الآن ماذا إذا لم يجد 30 أعتقد أنه يجب مراجعة المطلوب بدقة حتى لا تتعب الناس معك وكل عام أنتم بخير

أخي الكريم كيماس ابا عمر بالنسبة لموضوع إرسال الموقع لتنبيهات على بريدك إذا رد أحد على الموضوع يجب تفعيلها أولا بالضغط على (متابعة هذا الموضوع) الموجودة أعلى يسار الموضوع أو بصورة افتراضية لكل المواضيع التي اشتركت فيها من خلال لوحة التحكم ---> خيارات التنبيهات ستجد جميع خيارات التنبيه عدّلها كما تشاء

أخي الكريم أبو الحسين كل عام أنتم بخير لعمل ما تريد استعمل العمود j لحساب مجموع كل صف من e4:h4 إذا كانت b4 لا تساوي الإجمالي =IF(B4<>"الإجمالي",SUM(E4:H4),0) ثم انسخ المعادلة بطول العمود إلى الخلية j1000 مثلا ثم اكتب في الخلية i4 المعادلة التالية =SUM(J$4:J$1000)-I3 أتمنى أن يكون هذا هو المطلوب

على ما يبدو أخي اسامة أنك تستعمل أوفيس 2007 أو 2010 ولعمل هذا غير خاصية popup إلى yes وأخبرني إذا كان هذا ما تريد أم لا

أخي الكريم سعيد بيرم جزاك الله خيرا على ما تقدم لخدمة العملية التعليمية .... وبملاحظة ما ذكرته سابقاً ملاحظة دقيقة نجد أننا لدينا 4 متغيرات: الأول : الأساسي الثاني: المدة باليوم سواء بأجر كامل أو بنسبة الثالث : عدد الفترات بمعنى أنه من عمل جزء من العام بأجر كامل وجزء بنسبة فعدد فتراته 2 وهكذا الرابع : نسبة الأجر ..... أما موضوع تواريخ الإخلاء وخلافه فلا يهم إلا لمعرفة المدة وهذا يمكن عمله يدويا أو في ملف آخر ..... وبناء على فهمي لما سبق قمت بعمل نموذج بسيط يقوم بكل الاحتمالات: إذا كان الموظف طبيعي ضع له في المدة 180 وعدد الفترات 1 والنسبة 100 فسيتم حساب مكافأته بصورة طبيعية وإذا كان بنسبة لفترة واحدة طوال العام ضع له في المدة 180 وعدد الفترات 1 والنسبة التي يتقاضاها سواء 100 أو أقل سيتم كذلك حساب مكافأته وايضا إذا كان عمل بأجر كامل لمدة 60 يوم والباقي بنسبة فهذا ما تم عرضه في المثال أتمنى أن يكون قد وفقني الله في الوصول للمطلوب ... ويسعدني تواصلك وتواصل الجميع معنا في هذا الموضوع وكل عام والجميع بكل خير mas_sample.rar

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

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

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

سعيد بمرورك أخي نارت وفقنا الله وإياكم لكل ما يحب ويرضى

شكرا لك أخي الكريم بالنسبة لعمل الكود في access runtime فهذا أكيد وبالنسبة لطريقة تفعيل اختيار لون معين وتنفيذه في بداية تشغيل قاعدة البيانات فقد تم اختصار الكود وقمت بعمل ملف يقوم بالآتي قراءة لون الثيم الافتراضي وإذا لم يكن الأسود (3) يتم تغيير اللون إلى الأسود وإعادة تشغيل الأكسس restart MasColorScheme.rar

أنصحك بإلغاء تثبيت الأوفيس وإعادة تثبيته مرة أخرى ممكن يكون السبب نقص في ملفات تثبيت الأوفيس وأثناء التثبيت اضغط على customize ثم اختر all from my computer من رمز الأوفيس ويعني تثبيت الأوفيس كاملا بكل خدماته وملفاته جرب وأخبرني بالنتيجة

من قال أنها طريقة أخرى أخي الكريم؟؟!! هي نفس الطريقة والدليل لو استعملت الكود المذكور في المشاركة 9 بالطريقة الصحيحة يكون الناتج ملف كالمرفق ضعه في نفس مجلد myweb الخاص بك وشاهد النتيجة mas_web.rar

تفضل أخي الكريم هذا رابط لأحدث كود لهذا الغرض منقول من موقعه الأصلي http://blog.nkadesign.com/2008/ms-access-changing-the-color-scheme-programmatically/ ويمكنك تحميل ملف به الأكواد مرئية من نفس الموقع http://blog.nkadesign.com/wp-content/uploads/2008/05/ColorSchemeV1.3.zip ولمزيد من التوضيح الكود يقوم بقراءة اللون الافتراضي للأوفيس حاليا من خلال الريجيستري اعتمادا على نسخة الأوفيس 12 أو 14 وكود آخر يقوم بكتابة القيمة الجديدة في الريجيستري وكود آخر يقوم بإعادة تشغيل قاعدة البيانات ..... كل عام أنتم بكل خير

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

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

أخي الكريم كل عام أنتم بخير سؤالك هذا تعجز شركة ميكروسوفت عن الإجابة عنه لأنه لو كانت الإجابة الأفضل هو الأكسس لما أصدرت الشركة برنامج الإكسل والعكس صحيح كذلك ولكن كما قلت أنت وأهم ما يميز الأكسس هو استخدامك للغة الاستعلامات sql وإمكانية ربط الجداول وأهم ما يميز الإكسل هو كثرة عدد الأعمدة 165000 عمود تقريباً ( لأن أقصى عدد للحقول في برنامج الأكسس هو 255 حقل فقط ) فإذا كانت برامجك تحتاج عدد كبير من الحقول يتجاوز 255 حقل مثل موضوع الكنترولات والمرتبات مثلا يفضل عملها بالإكسل وإذا كانت البرامج قليلة في عدد الحقول وتحتاج لاحترافية في تنسيق مخرجات البرنامج ( التقارير) فيفضل الأكسس والله أعلم

يمكنك عمل ذلك أخي الكريم بتعديل السطر الأخيرفي الدالة إلى التالي date_diff = IIf(years = 0, "", years & " عام و ") & IIf(months = 0, "", months & " شهر و ") & IIf(days = 0, "", days & " يوم و ") & IIf(Hours = 0, "", Hours & " ساعة و ") & IIf(Minutes = 0, "", Minutes & " دقيقة ") & IIf(Seconds = 0, "", "و " & Seconds & " ثانية ")

أخي الكريم تلاحظ أن علامات الفاصلة المزدوجة في الكود الأول حول اسم الملف فقط وليست حول كلمة مسار المشروع الحالي وتم وضعها حول جوجل لأنه نص أما في حالة وجود ثوابت أو متغيرات مع النص فلا يتم إحاطة الثوابت أو المتغيرات بعلامتي الفاصلة المزدوجة ويتم فقط إحاطة النص المختلط معها وهذا هو موضع الخطأ والصواب Private Sub Form_Load() Me.WebBrowser0.Navigate CurrentProject.Path & "\html\file1.html" End Sub وزيادة في الأمان يمكنك وضع المسار للملف بين قوسين Me.WebBrowser0.Navigate ( CurrentProject.Path & "\html\file1.html")

السلام عليكم أخي كيماس ومرحبا بك في واحة الأكسس حيث البرمجة على أصولها بالفعل دالة dcount تستخدم لعد السجلات أما دالة dlookup للبحث عن سجل بمعايير معينة وما دمت وصلت لأنها تعرض لك id الفصل وليس اسمه يمكنك عمل دالة dlookup أخرى لجلب اسم الفصل من جدول الفصول بدلالة الرقم الذي نتج من المرة الأولى جرب أن تقوم بهذا وأخبرني بالنتيجة