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

اضافة لما اشار اليه استاذي الفاضل جعفر اود ان اشير الى ان الاشكاليه كانت في النسخ الاولى للاصدار 2007 وتم حلها بعد ذلك مع ذلك هناك اربع خطوات اشارت اليها مايكروسوفت فيما يتعلق بعملية الضغط والاصلاح بعنوان قبل البدء نفذ الإجراءات التالية قبل بدء عمليه الضغط والإصلاح: إنشاء نسخه احتياطيه لقاعده البيانات فأثناء عملية الإصلاح، قد يقتطع Access بعض البيانات من الجداول التالفة. وفي بعض الأحيان يكون من الممكن استعادة هذه البيانات من النسخة الاحتياطية. بالاضافه إلى استراتيجية النسخ الاحتياطي العادية ، يجب إنشاء نسخه احتياطيه علي الفور قبل استخدام الأمر " ضغط قاعده البيانات وإصلاحها ". الحصول علي حق وصول حصري إلى قاعده البيانات تتطلب عملية ضغط قاعدة بيانات وإصلاحها امتلاك وصول حصري إلى ملف قاعدة البيانات نظراً لأن هذه العملية قد تتسبب في تعطيل المستخدمين الآخرين. لذا يجب عليك إعلام المستخدمين الآخرين بموعد تشغيلك لعميلة الضغط والإصلاح حتى يتمكنوا من تجنب استخدام قاعدة البيانات خلال هذا الوقت. يجب عليك إخبارهم (المستخدمين الاخرين) بالمدة التي يجب خلالها تجنب استخدام قاعدة البيانات. وإذا كنت تقوم بتشغيل عمليات ضغط وإصلاح بشكل منتظم، فقم بتسجيل الوقت الذي تستغرقه. وبذلك تتمكن فيما بعد من وضع تقديرات أكثر دقة تتيح للمستخدمين الآخرين معرفة الإرشادات اللازمة حول المدة التي يجب فيها تجنب استخدام قاعدة البيانات. الحصول علي اذن الملف الكافي إلى قاعده البيانات إذا لم يكن لديك أذونات كافيه وكانت بحاجه إلى ضغط قاعده بيانات وإصلاحها ، فاتصل بمسؤول النظام للحصول علي المساعدة. النقطة الرابعة متعلقة بصلاحيات الوصول لنظام التشغيل مما سبق تجنب استخدام خيار ضغط واصلاح عند الاغلاق واستخدم الامر فقط عند الحاجة ووفقا للاجراءات التي اشارت اليها مستندات الدعم المشار اليها اعلاه. من الصعب الاجابة عن ذلك والتخمين لكون المشكله قد تنتج من اسباب متعددة ولكن استخدام ويندوز سيرفر وان كان هناك تشابه في النظام مع اصدارات ويندوز للمستخدم العادي الا ان هناك فروقات كبيرة ومتطلبات للنظام فويندوز سيرفر يعمل على الاجهزة المكتبية ولكن للحصول على طاقة النظام نحتاج الى اجهزة ذات عتاد اقوى استخدام كمية اكبر من الرام استخدام معالجات Xeon هي الخيار المناسب والافضل معالجين كحد ادنى عالما بان هذه المعالجات خيار غير مناسب للمستخدم العادي حاليا سعر المعالج انتل بوكسد زيون جولد بحدود 15000 ريال توجد نسخ اخرى باسعار اقل من ذلك الافضل عند استخدام ويندوز سيرفر عدم استخدام الواجهة الرسومية لتوفير موارد النظام وجود موظف لديه الخبرة لادارة السيرفر لكون المشاركة بشكل فعال تتطلب ان يكون السيرفر مسئول عن منح الصلاحيات للمستخدمين الاخرين وادارة كلمات المرور لكل منهم اي بمعنى ان السيرفر يتحكم بشكل كامل بالاجهزة الطرفية . سبق ان اشرت في موضوع سابق الى اصدارات ويندوز سيرفر واعتذر عن الاطالة

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

اتفضل تحت زر التقرير Private Sub أمر1_Click() DoCmd.OpenReport "ur", acViewReport, , Forms!form3!form1.Form.Filter End Sub بالتوفيق ur.accdb

تم ضبط الصلاحية باستخدام العناصر الموجودة داخل النموذج واستخدمت كلمة نصية مشفرة "modeer" للتمييز بين المدير وغيره بدلا من خانة الاختيار والتي يسهل الوصول اليها من الجدول ,والتلاعب بها هذا يعني انك اذا اردت تسجيل مستخدم جديد واردت تعيينه كمدير يلزم كتابة كلمة modeer في حقل Admin ايضا اظهرت لك اسم المستخدم في حقل خاص الطريقة لإظهارة في اي حقل سواء في النماذج او التقارير هو ان تكتب الدالة التالية في مصدر بيانات الحقل =myUserName() انظر الى الكود ادناه في حال عدم كون المستخدم مدير فسوف يتم اخفاء العناصر واحدا واحدا فاذا ارد اظهار عنصر للمستخدم فقط عطل السطر الخاص به والعكس صحيح حيث يمكن اضافة ازرار اخرى If myCheckUser <> "modeer" Then cmd_rpt_Items_Dates_3.Visible = False cmd_rpt_Items_Dates_3_No_Labels.Visible = False cmd_rpt_Items_Pages_3.Visible = False cmd_frm_Items_All.Visible = False srch_Date_From_3.Visible = False srch_Date_To_3.Visible = False srch_All_3.Visible = False srch_Page_From_3.Visible = False srch_Page_To_3.Visible = False zerUsers.Visible = False Box21.Visible = False End If اي استفسار لا يخص الصلاحية يفضل عرضه في موضوع جديد DATA11.rar

وعليكم السلام ورحمة الله وبركاته ضع الكود التالي في وحدة نمطية جديدة Option Compare Database Public Function Diff2Dates(interval As String, Date1 As Date, Date2 As Date, Optional ShowZero As Boolean = False) As Variant On Error GoTo Err_Diff2Dates Dim booCalcYears As Boolean Dim booCalcMonths As Boolean Dim booCalcDays As Boolean Dim booSwapped As Boolean Dim dtTemp As Date Dim intCounter As Integer Dim lngDiffYears As Long Dim lngDiffMonths As Long Dim lngDiffDays As Long Dim varTemp As Variant Const INTERVALs2 As String = "ddmmyyyy" interval = LCase$(interval) For intCounter = 1 To Len(interval) If InStr(1, INTERVALs2, Mid$(interval, intCounter, 1)) = 0 Then Exit Function End If Next intCounter If Not (IsDate(Date1)) Then Exit Function If Not (IsDate(Date2)) Then Exit Function If Date1 > Date2 Then dtTemp = Date1 Date1 = Date2 Date2 = dtTemp booSwapped = True End If Diff2Dates = Null varTemp = "" booCalcYears = (InStr(1, interval, "yyyy") > 0) booCalcMonths = (InStr(1, interval, "mm") > 0) booCalcDays = (InStr(1, interval, "dd") > 0) If booCalcYears Then lngDiffYears = Int(DateDiff("yyyy", Date1, Date2)) - IIf(Format$(Date1, "mm") <= Format$(Date2, "mm"), 0, 1) Date1 = DateAdd("yyyy", lngDiffYears, Date1) End If If booCalcMonths Then lngDiffMonths = Int(DateDiff("m", Date1, Date2)) - IIf(Format$(Date1, "dd") <= Format$(Date2, "dd"), 0, 1) Date1 = DateAdd("m", lngDiffMonths, Date1) End If If booCalcDays Then lngDiffDays = Int(DateDiff("d", Date1, Date2)) - IIf(Format$(Date1, "hh") <= Format$(Date2, "hh"), 0, 1) Date1 = DateAdd("d", lngDiffDays, Date1) End If If booCalcYears And (lngDiffYears > 0 Or ShowZero) Then varTemp = lngDiffYears & IIf(lngDiffYears <> 1, " سنه ", " سنه ") End If If booCalcMonths And (lngDiffMonths > 0 Or ShowZero) Then If booCalcMonths Then varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _ lngDiffMonths & IIf(lngDiffMonths <> 1, " شهر ", " شهر ") End If End If If booCalcDays And (lngDiffDays > 0 Or ShowZero) Then If booCalcDays Then varTemp = varTemp & IIf(IsNull(varTemp), Null, " ") & _ lngDiffDays & IIf(lngDiffDays <> 1, " يوم", " يوم") End If End If If booSwapped Then varTemp = "-" & varTemp End If Diff2Dates = Trim$(varTemp) End_Diff2Dates: Exit Function Err_Diff2Dates: Resume End_Diff2Dates End Function وفي الاستعلام استخدم التالي AGE: diff2dates("ddmmyyyy";[Fdate];[Ldate];True) Fdate = التاريخ الاول = 15-07-1991 Ldate = التاريخ الثاني = 05-02-2021 تحياتي

تفضل جرب هذا الملف قوم بالضغط ضغطه امام اسم الشخص officena.xlsm

تم اصلاح الخلل في المرفق وتم ايضا تنقيح المشاركات وذلك بحذف ما لا يلزم DATA12.rar

لا مو واضح!! الافضل ان تعمل مثال على الاكسل مثلا ، ويمكن لبكرة الصباح يكون احد الاعضاء شاف وفهم المثال ، وعمل لك ما تريد 🙂 اما انا ، فحان وقت اقفل المحل 😁 جعفر

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

وعليكم السلام 🙂 العمل بهذه الفكرة غير صحيح !! ثم انك لن توفر اي وقت اضافي (غير الضغط على زر Tab ثلاث مرات لكل سجل) !! جعفر

مشاركه مع معلمنا العزيز جعفر جزاه الله عنا كل خير قمت بادراج استعلام واصبح النموذج والتقرير يتم تصفيتهم بناء عالكمبوبوكس ur(1).accdb

وعليكم السلام 🙂 ضع هذا الكود على حدث "فتح التقرير" Private Sub Report_Open(Cancel As Integer) Me.OrderBy = Forms!form3.form1.Form.OrderBy Me.OrderByOn = True End Sub جعفر

ربما يفيدك هذا الفيديو للاستاذ المحترم عماد غازي

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

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

نعم ، ولكن اذا كان برنامجك كبير ، واثناء العمل ، انقطعت الكهرباء او اخترب الهارددسك او شيء من هذا القبيل !! جعفر

حتى يتم تطبيق كود الاحداث الكود ينادي الدالة MovCenter ويرسل لها معلومتين لهما علاقة بإرتفاع النافذة وعرضها لا ادري ، لم اتطلع على الكود ، وحتى لو اتطلعت عليها ، فقد تكون الدالة تنادي دالة ثانية ، وهكذا 🙂

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

معلش بشمهندس ، خلينا نرجع لهذه النقطة ، فجميع من عمل عليها ، تم حل مشكلته ، فرجاء التأكد من عملها بطريقة صحيحة (او اعملها مرة ثانية ، ولا تنسى ان تفتح CMD بصلاحية المسؤول) ، ثم اعد تشغيل الكمبيوتر/السيرفر 🙂 الظاهر لا ، فالتحديث يشمل جميع اصدارات الويندوز !! جعفر

ظهرت هذه المشكلة مع تحديث الوندوز 10 رقم 1803 ، بينما تحديث الوندوز 10 الى التحديث 1709 لم يكن به مشكلة ، فحاول: - إما ارجاع الكمبيوتر الى الوراء بحذف التحديث الى ان تصل الى 1709 وتتوقف ، او - تعمل فورمات للكمبيوتر (او تجربه على كمبيوتر آخر فاضي) وتنصب عليه الوندوز 10 الى التحديث 1709 (لا تنسى ، بوجه عام ، انت بحاجة الى عمل هذا للكمبيوتر/السيرفر الذي عليه برنامج الجداول). - واوقف تحديثات الوندوز. وقبل ان تقوم بهذا العمل ، خلينا مع فكرة اخوي ابوخليل البسيطة ، وقم بعمل مجلد جديد في السيرفر ، وضع البرنامج هناك ، فهناك من يقول بأنه بهذه التجربة تخلص من المشكلة 🙂 جعفر

أولا- المرفق لا يوجد به كود ولا بيانات لا يوجد سوي نموذج واحد ومجموعة تقرير ثانيا- فكرتي المقترحة ما دام لا يوجد لديك مرفق: أنت بحاجة لوجود عمودين للقراءات داخل الجدول الخاص باستهلاكات العملاء احدهما يسمي القراءة السابقة والأخر القراءة الحالية وعمود ثالث يسمي القراءة الجديدة. هذا العمود يتم ملأه وفقا لآلية العمل لديكم وفي نهاية الدورة المحاسبية يتم تشغيل استعلام اجرائي يقوم بما يلي: 1- التأكد من كون القراءة الجديدة موجودة وغير خالية وفي حالة خلوها يتم اعتبار القراءة الحالية هي القراءة الجديدة 2- التأكد من بعض الأمور وفقا لطبيعة العمل لديكم مثل وجود عداد لا يعمل وطريقة محاسبته في مثل هذه الحالة أو لا يمكن قراءته لوجود مانع ما وكيف سيتم المحاسبة في هذه الحالة. 3- يقوم بتحويل القراءة الحالية الي عمود القراءة السابقة 4- يقوم بتحويل القراءة الجديدة الي عمود القراءة الحالية تمهيدا لبدأ عملية احتساب قيم الفواتير هذا والله اعلم أرجو أن أجد وقتا كافيا لأضع لك مرفق بالفكرة اعلاه.

ايضا جرب طريقة ناجحة في الغالب خاصة اذا كان الخلل في جداول النظام ، وهي نقل جداولك الى قاعدة جديدة

حقيقة لا أذكر كيف تم حل المشكلة لدي عند وقوعي بهذه المشكلة من قبل ولعله بعد تحديث نسخة الوندوز الي ويندوز 10 أو تحديث نسخة الأوفس الي أوفيس 16 ربما ولكن لا أذكر تحديدا ما حدث بالضبط ولكن لعل هذه المشكلة تنذرك بكبر حجم قاعدة البيانات لديك وأنها لم تعد تستطيع الصمود لاكمال المسيرة الي النهاية أو هنالك مشكلة أكبر قد تحدث بعد لذي جئت ناصحا بـ: 1- أخذ نسخة احتياطية بشكل يومي الي حين الوصول الي حل ان شاء الله 2- حاول تكبير قاعدة البيانات (أقصد التعامل مع الـ SQL server) حقيقة ستجد به متسع من الأمان وسعة التخزين وبعدا عن مشكلات الأكسس كهذه التي بين يديك. أعرف أن الاقتراح الثاني ليس سهلا للغاية ولكنه لا يصعب علي أبي جودي تمنياتي بالتوفيق وحل المشكلة بأجل قريب ان شاء الله.

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

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

لم ارد عليك ، لأني بدأت أقرأ زيادة من ذلك لوقت (وطلعت من البيت حبتين ، وتغديث ، واخذت غفوة ، وواصلت القراءة 🙂 ) ، اعطيك رابطين من المواقع الاجنبية: الاول مجمع جميع الاقتراحات : Access - Bug - Database is in an Unrecognized Format | DEVelopers HUT (devhut.net) والثاني الاخذ والعطاء فيه لايزال مستمر من حوالي سنتين حول هذه النقطة وما حولها : Access Database is getting corrupt again and again - Microsoft Community الله يعينك ، ورجاء تخبرنا وين توصل 🙂 جعفر

وعليكم السلام 🙂 حتى لا يحدث لك هذا مرة ثانية: 1. تأكد بأن برنامج الاكسس فيه آخر التحديثات ، 2. هذا قد يكون بسبب بعض تحديثات مايكروسوفت للوندوز ، من موقع مايكروسوفت: Access reports that databases are in an 'inconsistent state' - Access (microsoft.com) - يكفي عمل هذا العمل على السيرفر (او الكمبيوتر الذي عليه نسخة الجداول) ، ولا يضر ان تعمله على كمبيوتر الواجهة وكمبيوتر الجداول : - افتح برنامج CMD كمسؤول ، Windows Start and then type Command. Right-click on Command Prompt and choose Run as administrator - ثم اكتب هذه الاسطر الثلاث (انسخ اول سطر من هنا ، والصقه هناك ، واضغط على زر Enter لتنفيذ الامر ، ثم الصق الثاني ونفذ الامر ، ثم الثالث ونفذ الامر) : REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters /v DisableLeasing /t REG_DWORD /d 1 /f NET STOP SERVER NET START SERVER . والآن ، اعمل ضغط واصلاح لقاعدة البيانات ، وجربها في المحيط الجديد 🙂 جعفر