AlwaZeeR

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

بالنسبة لعمل ملاحظة تفيد بان الموظف في إجازة الان فهي كالتالي: 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

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

بعيدا عن الدالة السابقة ممكن صورة للنتائج التي تريدها في الاستعلام؟

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

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

العفو نعم يمكن بهذه الطريقة '=== هنا مصدر السجلات على شكل جملة اس كيو ال SQLStr = " SELECT EmpTbl.ID as [رقم الهوية], EmpTbl.EmpName As [اسم الموظف], EmpTbl.Begin_Date As [التاريخ] " & _ " FROM EmpTbl;"

تفضل هذا مثال بطريقتين تصدير مصدر الى ملف اكسل موجود تصدير مباشر مع انشاء ملف اكسل === بالنسبة للخطأ خطأ في تعريف المتغير الكود ينقصه ذلك Dim strQry As String TestDB.mdb

تفضل مع تغيير ما يلزم بما يناسبك Dim strSQL As String Dim DBs As Database Dim Qdf As QueryDef strQry = "REPORT_QUERY" Set DBs = CurrentDb Set Qdf = DBs.CreateQueryDef(strQry) '=== هنا مصدر السجلات على شكل جملة اس كيو ال SQLStr = " SELECT EmpTbl.ID, EmpTbl.EmpName, EmpTbl.Begin_Date " & _ " FROM EmpTbl;" Qdf.SQL = SQLStr DoCmd.TransferSpreadsheet acExport, , _ strQry, "D:\MQudsy.xls", True, _ "Mpage1" DoCmd.DeleteObject acQuery, strQry

ان كنت تستخدم هذا الامر في البحث والذي يبنيه المعالج الافتراضي DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 استبدله بهذا DoCmd.RunCommand acCmdFind او هذا RunCommand acCmdFind واذا لم يفلح الامر ضع قاعدة تجريبية بالمشكلة وان شاء الله ستجد الحل :: تحياتي

اضف الى استعلام البحث الذي وضعه الأستاذ عبد اللطيف معيار رقم السند [Forms]![Frm_search]![رقم السند]

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

لان عدد السجلات لديك كبير والإجراءات التي يقوم بها الاستعلام كثيرة ومعقدة

تفضل Lab 2019-waz.rar

تفضل Lab 2019NLast.rar

تفضل Lab 2019Nz.rar