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

تحويل صيغه ملف الاكسيس برمجيا من accdb الي accde برمجه قواعد البيانات المصممه بالاكسيس تتوفر بها العديد من وسائل حمايه التي توفرها شركه مايكروسوفت في البرنامج او التي يستطيع ان يصممها مبرمج قواعد البيانات فيسطيع المبرمج اخفاء الجداول و الاستعلامات و النماذج و وضع كلمه سر علي ملف قاعده البيانات بحيث لا يستطيع احد فتح الملف الا بعد معرفه كلمه السر او كلمه سر علي محرر الاكواد او يسطيع المصمم حمايه النماذج من الفتح في وضع التصميم من خلال ايقاف تفعيل زر Shift او عمل صلاحيات للنماذج برمجيا بحيث لا يسطيع المستخدم الدخول الا للنماذج المسموح له بها فقط كل هذه الوسائل بالاضافه الي تغير صيغه ملف الاكسيس الي صيغه accde ليتم تشفير الكود البرمجي و النماذج بحيث لا يمكن التعديل ليس علي النماذج فقط انها علي قاعده البيانات كلها و كل ما يكون متاح فقط هو ادخال و استعراض البيانات بالصور التي يحددها المصمم للمستخدم النهائي لقاعده البيانات ما هي صيغه accde صيغه accde هي صيغه ملفات اكسيس قدمتها شركه مايكروسوفت لمزيد من الحمايه فهي صيغه محميه غير قابله للتعديل يتم فيها تشفير الكود و النماذج و جميع وحدات الماكرو شروط استخدام هذه الصيغه accde لتحويل ملف الاكسيس الي هذه الصيغه لابد من ان يكون الكود البرمجي سليم 100% و لا يوجد به اي مشاكل برمجيه و ذلك لعده اسباب اولها انه لايمكن الرجوع مره اخري الي الصيغه الاسابقه حيث يعتبر هذه الضيغه صيغه نهائيه يمكن ان يستخدمها مبرمجي قواعد البيانات حتي يتم حمايه الاكواد البرمجيه و لا يسطيع اي مبرمج اخر التعديل علي الكود مره اخري لانه اصبح مشفر و لا يمكن اضافه نماذج او استرداد نماذج من و الي هذا الملف مره اخري كيف نستطيع تحويل اي ملف اكسيس عادي الي ملف اكسيس من نوع صيغه التشفير accde اولا عليك التاكد من الكود البرمجي و التاكد من صلاحيته و مراجعته و يتم ذلك من خلال فتح محرر الاكواد ثم الضغط علي debug و من خلال هذه القائمه الامر compile 1 ليتم عمل مراجعه للكود فاذا اكتشفت اي مشكله في الكود عليه علاج هذه المشكله حتي تستطيع ان تكمل باقي الخطوات بعد التاكد من سلامه الكود البرمجي قم باغلاق محرر الاكواد انتقل الي شاشه الاكسيس وافتح القائمه File من خلال هذه القائمه اختر Save as ثم اختر من خلال save Datebase as اختر الصيغه المشفره Mack Accde كل هذه الخطوات تمت بشكل يدوي لكن كيف يتم ذلك بالكود فقد نحتاج الي عمل كل ذلك بالكود خاصا اذا كنا نعمل علي جهاز المستخدم النهائي لقاعده البيانات و نريد ان ننجز عملنا في خطواه واحده بضغطه واحده و قد نحتاج الي عمل ذلك علي جهاز العميل حيث اننا قد نحتاج الي الدخول الي وضع التصميم علي جهاز العميل قبل تشفير قاعده البيانات مثلا لاضافه مكتبه برمجيه او اي شئ من هذا القبيل علي افتراض اننا قد وصلنا الي مرحله مراجعه الكود قبل نقل ملف قاعده البيانات الي جهاز المستخدم النهائي و تاكدنا من سلامه الكود البرمجي كل ما علينا القيام به هو اضافه داله برمجيه الي قاعده البيانات لتقوم بتحويل صيغه الملف و لكن لن نستطيع عمل ذلك من نفس الملف حيث اننا علي جهاز المستخدم النهائي نحتاج الي حذف ملف قاعده البيانات الاساسي بعد تحويل الصيغه لضمان عدم تعديل الكود فلن يستطيع الاكسيس حذف ملف مفتوح فلذلك نستخدم ملف قاعده بيانات اخري ليمكننا من تحويل اي قاعده بيانات و نقوم باضافه هذه الداله في مديول جديد و يمكن ربط هذه الداله بزر في نموذج بحيث بمجرد الضغط عليه يتم تحويل قاعده البيانات المحدده بالكود برمجيا لتحميل الكود المستخدم

السلام عليكم مشاركة مع استاذنا ناقل وهي محاولة ارجو ان تكون موفقة ملاحظة: يتعامل مع النسب المئوية ولكن لا يتعامل مع النصوص Result.rar

شكرا لك اخي الفاضل على المعلومات القيمة ولاكتمال الفائدة في مكان واحد تم نقل الكود هنا Function accdeConvert() Dim app Dim strDBName Dim strADEName Set app = CreateObject("Access.Application") strDBName = CurrentProject.Path & "\1.accdb" strdeName = CurrentProject.Path & "\0.accde" app.SysCmd 603, CStr(strDBName), CStr(strdeName) Set app = Nothing Follow Kill strDBName End Function Function Follow() FollowHyperlink strADEName End Function وهذه هي ايضا تعليقاتك الاخيرة على الكود هناك: لاحظ اننا استخدمنا السطر strDBName = CurrentProject.Path & "\1.accdb" و الذي يحتوي علي 1.accdb حيث تمثل اسم قاعده البيانات المراد تحويلها كما اننا استخدمنا السطر strdeName = CurrentProject.Path & "\0.accde" لتحديد اسم و مسار ملف قاعده البيانات بعد تحويلها كما استخدمنا Kill strDBName لحذف ملف قاعده البيانات من النوع accdb بعد اتمام عمليه التحويل

بارك الله فيك استاذنا أحمد الفلاحجى وهذا خل اخر تحياتي FrEmpl.rar

وعليكم السلام مشاركه مع اخى واستاذى @محمد أبوعبدالله جزاه الله خيرا هل هذا ما تريد ؟ FrEmpl.rar

السلام عليكم هذا البرنامج من اعداد فريق عمل مايكروسوفت اكسس فيه فوائد عديدة وخاصة الاكواد المستعملة اتمنى لكم الفائدة ملاحظة -- هذا البرنامج موجود مع اكسس 2016 الطلاب مايكروسوفت.accdb

لا أفهم ما لزوم هذه التكسيوكسات الكثيرة (12) في حين نحن لسنا بحاجة الى اي منها جرب هذا الكود الذي يقوم بانشاء قائمة منسدلة مطاطة (بدون تكرار) كلما عدلت في الأسماء او اضفت اسماء جديدة وعلى اساسها تجد ماتريد Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("I4:I100")) Is Nothing _ And Target.Count = 1 Then data_VAL End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++++++++++++++++++ Sub data_VAL() Dim RO%, i%, Obj As Object Set Obj = CreateObject("Scripting.Dictionary") With Me RO = .Cells(Rows.Count, "I").End(3).Row If RO < 4 Then RO = 4 For i = 4 To RO If .Cells(i, "I") <> vbNullString Then Obj(.Cells(i, "I").Value) = vbNullString End If Next If Obj.Count Then With .Cells(2, "I").Validation .Delete .Add 3, Formula1:=Join(Obj.keys, ",") End With End If End With End Sub Sooos.xlsm

اذا اردت اعدناه للقسم المفتوح و لكن علي ما اعلم القسم المفتوح لا يتابعه الكثيرين بعكس القسم هنا

تفضل اخي الكريم Db15.rar تحياتي

تفضل اخي الكريم وعذرا على التأخير Dim X As Integer X = (DCount("ItmNumber", "TItems")) ReDim itms(X) As String Dim itm As Integer For itm = 1 To DMax("ItmNumber", "TItems") itms(itm) = DLookup("ItmName", "TItems", "ItmNumber =" & itm) List1.AddItem (itms(itm)) Next تحياتي

طالما ان تستعمل activesheet فان الماكرو ينفذ على الشيت النشطة مثال كود للزر الاول والثاني (طبقه على بقية الأزار) Dim sh As Worksheet, lrow As Long, i As Long Private Sub CommandButton1_Click() Application.EnableEvents = False If TextBox1.Value <> "" And _ TextBox2.Value <> "" And TextBox3 <> "" _ And TextBox4.Value <> "" _ And TextBox5.Value <> "" Then Set sh = ActiveSheet With sh lrow = .Range("B" & Rows.Count).End(xlUp).Row With .Range("B" & lrow + 1) For i = 1 To 5 .Offset(, i - 1) = _ Me.Controls("TextBox" & i).Value Me.Controls("TextBox" & i).Value = "" Next End With End With Else MsgBox ("InComplete data") End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++++++++++++++++ Private Sub CommandButton2_Click() Set sh = ActiveSheet For i = 2 To 5 Me.Controls("TextBox" & i).Value = "" Next lrow = sh.Range("B" & Rows.Count).End(xlUp).Row For i = 2 To lrow If sh.Cells(i, 2) = TextBox1.Text Then sh.Cells(i, 2).Select Exit For End If Next i For i = 2 To 4 With ActiveCell .Offset(0, i - 1) = Me.Controls("TextBox" & i).Text End With End Sub

تفضل لا تنسى تغيير مسار الملف على حسب مكان التخزين Sub Test() Dim sr As Workbook Set sr = Workbooks.Open("C:\Users\alhagag\Downloads\touati\touati1.xlsx", True, True) ThisWorkbook.Activate Worksheets("sheet1").Range("B2:E200").Value = sr.Worksheets("sheet1").Range("a2:d200").Value sr.Close End Sub touati.rar

ممكن ولكن لا انصح بذلك الاجراء الصحيح لحقل تاريخ ان يكون تنسيقة في النموذج احد تنسيقات التاريخ لعدة امور اضافة الى الاستفادة من الاداة المساعدة لكتابة التاريخ

التصميم فكرة مش مجرد برنامج ___البوربوينت أكثر من مجرد إنشاء شرائح العرض التقديمي يوجد أدوات وطرق جديدة لاستخدام PowerPoint لهواة رسم وتحريك الروسومات اتعلم موشن جرافيك بالبوربوينت l رسم وتصوير بالكاميرا https://youtu.be/95RmLp4QoYw

تصميم شريط ريبون احترافي في الاكسيس يتم اضافه شريط ريبون الي البرامج المصممه بالاكسيس لاعطائها شكل احترافي مبسط لسهوله الاستخدام من قبل المستخدم النهائي للبرنامج ليسهل عليه البحث علي الادوات داخل البرنامج في اصدار اوفيس 2003 كان من السهل تصميم شريط ادوات يشبه شكل الريبون بشكل مبسط لانه كان بنظام قوائم منسدله مبسطه لكن بدايه من اصدار اوفيس 2007 تطور شكل الريبون ليعطي شكل مصور بالقوائم بشكل احترافي و تم تعديل طريقه تصميمه ليكون بناء علي نموذج بلغه xml لغه xml هي لغه تنتمي للغه HTML و هي شبيه بها في قواعد كتابه اللغه الي حد كبير و هي اختصار لـ eXtendable Markup Language و هي لغة الترميز القابلة للتوسع . XML صُمّمت لتخزين و نقل البيانات يمكن استخدامها في تصميم بعض البرامج للاندرويد او تصميم المواقع و غيرها دعنا الان نبدا في تصميم شريط ريبون جديد لمشاهده المقال بالكامل قم بزياره موقع المحاسب العربي https://www.acc-arab.com/2020/05/blog-post_92.html في البدايه نحتاج الي اضافه جدولين جدول لحفظ كود xml و جدول لحفظ الصور المصغره التي نريد وضعها علي الشريط ( يمكن ان هذه الصور في ملف مستقل خارج قاعده البيانات الا ان هذا الامر قد يؤثر ببعض المشاكل عند محاوله نقل ملف قاعده البيانات من جهاز الي اخر ) سنقوم بانشاء الجدول الاول جدول حفظ كود xml و سنقوم بحفظه باسم USysRibbons id AutoNumber RibbonName Text RibbonXml Memo او Long Text حيث ان RibbonName يمثل اسم شريط الريبون RibbonXml يمثل مكان حفظ كود xml و تم وضعه هذا الحقل Memo او Long Text حتي يتناسب مع الاكود التي تزيد عن 255 حرف حيث ان short text او text اقصي قدره استعابيه لها في الاكسيس 255 حرف يعد اسم جدول USysRibbons من جدول النظام و بمجرد حفظها لن تظهر بشكل افتراضي و يجب اظهار جداول النظام حتي نستطيع التحكم بها و اذا اردنا ان يكون شريط الريبون مصور و الصور داخل قاعده البيانات سنقوم باضافه جدول باسم tblImagesRibbons idImage AutoNumber imageRibbon Attachment حيث ان imageRibbon من النوع "Attachment" و ذلك لحفظ الصور داخل القاعده البياناتيفضل ان تكون صيغه هذه الصور من النوع ico لتكون متناسقه مع شريط الريبون الان دعنا نتعرف علي كود xml و طريقه كتابه هذا الكود ليتناسب مع الاكسيس نبدا بكتابه معرف التالي <customui loadimage="fncLoadImage" onload="fncRibbon" xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startfromscratch="true"> <tabs> <!-- نص الكود هنا --> </tabs> </ribbon> </customui> و نلاحظ التشابه الكبير في بين لغه xml و لغه html و طريقه صياغه الاوامر البرمجيه هذا الوسم يتوافق مع اصدار اوفيس 2010 فيما فوق نحتاج طبعا الي بعض الخبره البسيطه في قواعد كتابه لغات xml او لغه html لنتمكن من كتابه هذا الكود نقوم باضافه الوسم <tab id="MyTab1" label="اسم القائمه"> </tab> و ذلك بعد الوسم tabs في كل مره نريد اضافه قائمه جديده و لاضافه مجموعه جديده داخل القائمه نستخدم الوسم group و يكون بالصيغه التاليه <group id="MyGroup1" label="اسم المجموعه"> </group> و لاضافه الازرار داخل الجروب نستخدم الوسم button <button id="bt1" image="1.ico" label="الاسم الظاهر للزر" onaction="fncOnAction" size="large"></button> و نلاحظ ان المعامل id يكون لاعطاء اسم برمجي عند استدعاء هذا الزر برمجيا و يختلف هذا المعامل عن معامل label فهو للاسم الظاهر للمستخدم النهائي بينما الخاصيه image تستخدم لاضافه صوره علي هذا الزر و المعامل onAction يستخدم لحجز متغر في الكود البرمجي عند استدعاء الزر البرمجي او عند الضغط علي هذا الزر يتم اعطاء ارقام او اسماء لكل زر بحيث لا يتكرر اي اسم حيث انه في حاله تكرر اي اسم سيتوقف كود xml و لن يظهر شريط الريبون في التصميم <customui loadimage="fncLoadImage" onload="fncRibbon" xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startfromscratch="true"> <tabs> <tab id="MyTab1" label="الاعدادات"> <group id="MyGroup0" label="اعدادات"> <button id="bt00" image="00.ico" label="اعدادات النسخ الاحتياطي" onaction="fncOnAction" size="large"> </button></group> </tab> </tabs> </ribbon> </customui> يتم تخزين جميع الصور في جدول الصور الذي سبق و ان قمنا بتصميمه tblImagesRibbons نحتاج في هذا العمل لاضافه مكتبه برمجيه التي تسهل علي الاكسيس استدعاء الصور من الجداول و يمكن ان نستخدم المكتبه البرمجيه Microsoft office 16.0 object library حيث يمثل الرقم 16 لرقم اصدار الاوفيس و بالتالي سيختلف من اصدار الي اصدار اخر و في حاله عدم عثورنا علي هذه المكتبه البرمجيه يمكن البحث عنها داخل ملفات النظام و هي موجوده ضمن الملف MSO.DLL نقوم باضافه داله برمجيه لتشغيل ازار شريط القوائم و نستخدم الامر البرمجي Select Case و ذلك للمرور علي كافه ازار التشغيل في الشريط ففي حاله الضغط علي زر يقوم هذا الكود بتحديد الزر و تشغيل الكود الذي يخص هذا الامر Public Sub fncOnAction(control As IRibbonControl) Select Case control.Id Case "bt0" MsgBox "مرحبا" Case "bt1" MsgBox "22222222" Case Else MsgBox "عفوا لا تمتلك صلاحيه الوصل " & control.Id, vbInformation, "انتبه" End Select End Sub يمكن استخدام الداله dlookup لاستخراج الصور من الجدول لاضافتها في الشريط يجب تشغيل xml بمجرد تشغيل قاعده البيانات و اذا قمنا باي تعديل علي هذا الكود لن يظهر تاثير هذا التاثير الا عند اعاده فتح ملف قاعده البيانات من جديد لمشاهده المقال بالكامل قم بزياره موقع المحاسب العربي https://www.acc-arab.com/2020/05/blog-post_92.html

دقايق وأرسل لك التعديل

جرب هذا الملف اكتب فقط رقم الشهر الذي تريد في الخلية F1 في اي صفحة والتاريخ يتجدث تلقائياً واذا كان اسم الشهر (C1) يساوي اسم الصفحة يتم اخفاء الصفوف التي تريد Muneef.xlsm

السلام عليكم مشاركة مغ استاذ محمد أبوعبدالله Root111.rar

كيفية كتابة نص توضيحي داخل TEXT BOX واخفاءه بمجرد الضغط عليه وازاي اقدر اغير لون الكتابة داخل TEXT BOX فى الاكسيس https://youtu.be/pWm5_-fm4rk

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

كبسة يمين عليه ثم Edit Text

اليس من الأفضل والاسهل الكتابة في خلية بدلاً من الــــ TextBox على كل حال لك ما طلبت بعد تعيئةالـــ TextBox بالاسم الصحيح دون زيادة مسافات أو نقصانها و التقيد بحرف الالف (مع همزة او بدونها ) و حرف الياء في اخر الكلمة (مع نقاط او بدونها) اضغط على الخلية I1 Sooos_1.xlsm

هذه المعادلة واسحب نزولاً =IF(COUNT($D4:$F4),TODAY(),"")

وعليكم السلام ورحمة الله وبركاته جرب الحل التالي Expr1: IIf([total marks]>90;"ممتاز";IIf([total marks]>70;"جيد جدا";IIf([total marks]>60;"جيد";IIf([total marks]>50;"مقبول";IIf([total marks]<50;"راسب";"ناجح"))))) mark.rar تحياتي

بارك الله فيك ورحم الله والديك

عاشت ايدك

أتوجه بالشكر لأستاذنا الفاضل إبراهيم الحداد على مروره وبعد إذنه تم التعديل على كوده وأصبح يعمل بصورة ممتازة قوائم (1).xls

وين البرنامج ؟؟

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

السلام عليكم ورحمة الله استخدم هذا الكود Sub DistStudents() Dim ws As Worksheet, Sh As Worksheet Dim C As Range Dim p As Long Dim A As Variant, B As Variant Set ws = Sheets("قائمة") Set Sh = Sheets("تسجيل البيانات") A = ws.Range("I2") B = ws.Range("J2") x = Sh.Range("B" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False ws.Range("A8:H47").ClearContents For Each C In Sh.Range("E2:E" & x) If C.Value = A And C.Offset(0, 1) = B Then p = p + 1 If p <= 40 Then ws.Cells(p + 7, 1) = p ws.Cells(p + 7, 2) = C.Offset(0, -3).Value ws.Cells(p + 7, 3) = C.Offset(0, -2).Value ws.Cells(p + 7, 4) = C.Offset(0, -1).Value ElseIf p > 40 Then ws.Cells(p - 33, 5) = p ws.Cells(p - 33, 6) = C.Offset(0, -3).Value ws.Cells(p - 33, 7) = C.Offset(0, -2).Value ws.Cells(p - 33, 8) = C.Offset(0, -1).Value End If End If Next Application.ScreenUpdating = True End Sub

إليك هذا المرفق Dlookup & Query Compare.rar

يمكن اختصار الكود لكل زر على النحو التالي (مثال على الزر رقم 1) Dim sh As Worksheet, lrow As Long Private Sub CommandButton1_Click() Application.EnableEvents = False If TextBox1.Value <> "" And _ TextBox2.Value <> "" And TextBox3 <> "" _ And TextBox4.Value <> "" _ And TextBox5.Value <> "" Then Set sh = ActiveSheet Dim i With sh lrow = .Range("B" & Rows.Count).End(xlUp).Row With .Range("B" & lrow + 1) For i = 1 To 5 .Offset(, i - 1) = _ Me.Controls("TextBox" & i).Value Me.Controls("TextBox" & i).Value = "" Next End With End With Else MsgBox ("InComplete data") End If Application.EnableEvents = True End Sub

رائع تسلم ايديك على مجهود

شكر وتقدير واحترم من اخيك استاذ عبد الفتاح

السلام عليكم ظهرت هذه المشكلة فبي البداية ؟

السلام عليكم ورحمة الله ربما تقصد هذا الشكل id 2.xlsm

فكرة عمل انترو مقدمه احترافيه بكل سهوله على الباوربوينت عمل انترو intro او مقدمة فيديو احترافية وجميلة تستخدمها فى قناتك على اليوتيوب وبخطوات سهله جدا وكل هذا على برنامج بوربوينت وهنتعرف على انيميشن او حركة جميلة على البوربوينت https://youtu.be/G-fUXXGJsBM

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

السلام عليكم 🙂 مع ان الاكسس ممكن يتساهل مع عرض التاريخ بعدة اشكال ، ولكن يجب ان نضع في بالنا ، ان الاكسس ، وبغض النظر عن طريقة التنسيق التي نستعملها في الجدول/الاستعلام/النموذج/التقرير/الوحدة النمطية/الماكرو لعرض التاريخ ، فإن الاكسس يحتفظ بالتاريخ بالطريقة الامريكية : الشهر / اليوم / السنة . ولتأكيد هذا ، اليك هذه التواريخ في الاستعلام (مع ان الاستعلام يعرض عليك التنسيق الذي طبعته انت ، ولكن الاكسس في عمله يستعمل التاريخ الامريكي) : . ثم قم بتحويل واجهة الاستعلام الى SQL : . والنتيجة : . لهذا السبب ، نجد في بعض البرامج ان الاكسس يعطي نتائج صحيحة لبعض التواريخ (اليوم بين 13-31) لأنه لا توجد شهور بهذه الارقام ، ونتائج غير صحيحة لتواريخ اخرى (اليوم بين 1-12) لأنه توجد شهور بهذه الارقام ، خلينا نشوف جدولك وهو بهذا التنسيق : . وبعد استعمالك استعلام التحديث: . هذه نتائج الجدول : نلاحظ ان التواريخ جميعها صحيحه ، ولكن المستخدم اخطأ في ادخال التاريخ 29/2/01 ، لأن سنة 2001 ليست سنة كبيسة ، فقام الاكسس بتصحيح التاريخ لهذا اليوم ظنا منه انك اخطأت في المعادلة : [d] & "/" & [m] & "/" & [y] لماذا قام الاكسس بهذا التغيير ، لأن البيانات لم تكن صحيحة ، ولأن استعلام التحديث لم يُلزم الاكسس بالتأكد من التاريخ !! وللتغلب على هذه الاشكالية ، يجب علينا ان نخبر الاكسس اسم حقل اليوم والشهر والسنة ، عن طريق الاوامر الخاصة بالتاريخ ، مثل : DateAdd او DateDiiff او DatePart او DateSerial لذا ، فإذا استعملنا : . نرى ان النتيجة صحيحة ، بحيث اضاف يوم ليعطي النتيجة الصحيحة : . الاختيار الآخر هو ، ان تكتب السنة بأربع ارقام (2001) ، فعليه ، سيعطي الاكسس خطأ لحقل التاريخ ، بإستعمال طريقتك 🙂 جعفر

العنوان يدل على المحتوى كثير ما تظهر علينا رسائل أكسس والتي نعلم ان ظهورها انما هو لحصول مشكلة ما ولكن هذه الرسائل لا تحمل الا رقم هذا الخطأ فقط ، ولا توضح سببه في التطبيق المرفق ابحث برقم الخطأ لتعلم سببه AccessErrors.rar