AlwaZeeR

حسب علمي لا اظن ذلك جرب احذف سجل وانظر الى امر التراجع في الاكسس في الأعلى هل يظهر؟؟ لا يظهر اذن لا اظن على حسب خبرتي يتم التراجع بعد الحذف نهائياً

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

وعليكم السلام ورحمة الله وبركاته تفضل وابتعد عن المسميات التي بينها فراغ مثلا استخدم بدل هذا Opening balance Opening_balance New Microsoft Access Database.accdb

وعليكم السلام ورحمة الله وبركاته لا اعتقد وحسب خبرتي المتواضعة جدا انه يصلح عمل ما تريد في النماذج المستمرة يمكن التحايل على ذلك عن طريق خلق ماسك بواسطة IIF مثلا Mask: IIf([WDelivered]="لا","███████████████","") وتعمل مربع نص وتجعل مصدره mask وتنسيقه شفاف وتضعه على مربع التاريخ لاخفائه :: هذه المشكلة واجهتني قديماً في أحد البرامج واتحدث عن قديماً ارجو ان يكون قد تم تطوير حل لها غير ما ذكرت انا :: تحياتي

اعتقد لان السؤال غير واضح يا ريت شوية تفصيل وان شاء الله تجد من يساعدك :: تحياتي

سبب تحديد الكل أنك لم تحدد مصدر مربع التحديد وهو DelChk عموما تفضل 3 (2) - Copy.rar

مصدر النموذج أصلاً من الجدول بمعنى ان حددت في النموذج فتلقائي سيتم تحديث الجدول والعكس صحيح

يعطيكم العافية جميعا اسمحوا لي بمداخلة بنفس الطريقة اخي العزيز تستطيع التحديد والالغاء لتحديد الكل: CurrentDb.Execute "UPDATE L SET [Delchk] = true " Me.Requery وإلغاء التحديد: CurrentDb.Execute "UPDATE L SET [Delchk] = False " Me.Requery وتستطيع وضعها تحت نفس الزر مع بعض التغييررات لاسم الزر تحياتي لشخصك الطيب أستاذ عبد اللطيف القيمة نعم يتم تخزينها أصلا -1 والقيمة لا 0

وعليكم السلام ورحمة الله وبركاته اسهل طريقة أنشئ حقل في جدول L الخاص بك وليكن اسمه DelChk واجعل نوع البيانات فيه رقم والقيمة الافتراضية false الان اذهب الى النموذج الخاص بالجدول وهو عندك L وانشئ زر أمر وضع في الحدث الخاص به الكود التالي CurrentDb.Execute "DELETE * FROM L WHERE [delchk] = true" Me.Requery تفضل هذه قاعدتك عليها مطبق عليها ما ذكرت لك Delchkrecord.accdb

انا لم يكن للباركود يوماً سبيلاً في عملي واظن انه لن يكون ولكن رايت موضوعا للأستاذ العزيز جعفر ابدع فيه بذلك انتظر رايه وسوف تجد الحل الشافي باذن الله تحياتي

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

تفضل وهذه النتيجة بعد التنقل بين صفحات التقرير FahrasTest.accdb طبعا لا اعرف هل هذه النتيجة التي تريدها ام لا لكن الكود الذي وضعته انت يقوم بهذا عند معاينة التقرير والتنقل بين محتوياته

تفضل الكود يعمل بشكل سليم قم بتطبيق ما يلي :: يوضع الكود في حدث عند الطباعة لتذييل الصفحة PageFooterSection ضع مربع نص في نفس قسم التذييل وضع فيه =[Pages] وسميه ما شئت قم بتغيير مسميات الجدول الخاص بتخزين الفهرس لان المسميات الموجودة في الكود محجوزة للنظام مثلا انا سميتها Wpage pageName هذا هو الكود بعد التعديل Dim db As Database 'To reference what db we're in Dim rs As DAO.Recordset 'This holds the records to loop Dim strSQL As String 'Your SQL statement Dim GrpStPage As String Dim GrpLastPage As String GrpStPage = Page GrpLastPage = Pages 'Objects like databases & records need to be "set" Set db = CurrentDb Set rs = db.OpenRecordset("Table1") 'Now rs is equal to your select statement With rs .AddNew .Fields("Wpage") = "من صفحة " & GrpStPage & " إلى صحفة " & GrpLastPage .Fields("pageName") = Me.CategoryName .Update End With واذا لم تستطع التطبيق ارفق مثالا صغيرا للتطبيق عليه

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

بالنسبة لعمل ملاحظة تفيد بان الموظف في إجازة الان فهي كالتالي: Remaining_Days: IIf(DateDiff("d",Date(),[To Date])<0,"انتهت","الموظف في اجازة") اذا كان الموظف في فترة الاجازة يظهر الموظف في إجازة وانتهت في حال انتهت الاجازة ===== بخصوص منع إضافة إجازة للموظف الذي يملك إجازة فتكون كالتالي If DCount("*", "LEAVES", "[No File]=" & [No File] & " And [From Date]= #" & Format([From Date], "yyyy/mm/dd") & "#") = 1 Then MsgBox ("الموظف في اجازة حالية") Else DoCmd.GoToRecord , , acNewRec End If هذا على حسب ما فهمت ملاحظة: برجاء الانتباه الى مسميات الحقول وحبذا لو تكتبها بدون فراغات او بهذه الطريقة مثلا: بدل From Date تكتب هكذا From_Date :: تحياتي

وعليكم السلام ورحمة الله وبركاته ما قصده الأستاذ جعفر شيء من هذا القبيل والتوزيع حسب ما تراه مناسبا وحسب مناسبا مثلاً: المؤهل العلمي التخصص الصف المادة مكان السكن رقم الهاتف وهكذاااا

بخصوص تشغيل قواعد البيانات التي تم تصميمها على اوفيس 2007 فهي تعمل على جميع الإصدارات الأعلى بدون مشاكل سواء على 2010 او 2013 او 2016 او 2019 او 365 المشكلة تكمن في اصدار الاوفيس ان كان قد تم تصميمها (لقاعدة البيانات) على اصدار 32 بت وتريد تشغيلها على اصدار 64 بت هنا تحتاج الى إعادة برمجة وضبط للوحدات النمطية الموجودة فيها كي تعمل بشكل سليم === بعد كل هذا اطرح مشكلتك لنرى هل هي برمجية ام بسبب الاصدار :: تحياتي

وعليكم السلام ورحمة الله وبركاته جرب =DCount("[ID]";"[Table2 Query]";"[Date2]=#" & Format([Date2],"yyyy/mm/dd") & "#")

حياك الله تفضل: If Me.l1.Width >= Me.r1.Width Then Me.TimerInterval = 0: DoCmd.OpenForm "YourFormName": Forms![ThisForm].Visible = False l1.Width = l1.Width + 100 T1 = l1.Width / r1.Width

تفضل If Me.l1.Width >= Me.r1.Width Then Me.TimerInterval = 0: DoCmd.OpenForm "YourFormName" l1.Width = l1.Width + 100 T1 = l1.Width / r1.Width

وضعت لك تلميح في الوحدة النمطية في حال تريدها مجمعة في اسطر عموما تفضل التعديل Optional NewLine As String = ", ") As String استبدله هذا السطر بالسطر الموجود في الوحدة النمطية واخبرني بالنتيجة

استخدم هذا الكود On Error GoTo ErrHandler DoCmd.OutputTo acOutputTable, "tblEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير التقرير الى المسار المحدد بنجاح" ErrHandler: If Err.Number = 2501 Then Exit Sub

تفضل لا حاجة للوحدة النمطية القديمة جرب ووافني بالنتيجة :: تحياتي Horizontal-waz.accdb

نعم جربتها وتعمل TestDBNnn.mdb

هل تم حل المشكلة هنا ام لا؟ هنا الخطأ ليس في عند الخطأ فأنت تقوم بوقف زر الأمر عند الضغط على امر استعراض والخطأ يظهر عند الغاء عملية زر الأمر وليس عند الخطأ السبب هنا أنه تم وضع الأفكار والأكواد في المكان الخطأ وهو عند الخطأ ===