ابو جودي

ووفقا للمشاركة التى اشرتم اليها لاستا DateDiff("s",#1/1/1970 3:00:00 AM#,[اسم الحقل فى الجدول]) وكما اشرتم الى موضوعكم وطبقا لحل استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr اتفضل الحل وهذا هو المرفق تم اضافة حقل To Timestamp والذى يقوم بتحويل التاريخ من الحقل Saudi الى Timestamp من خلال المعادلة Timestamp: DateDiff("s",#1/1/1970 3:00:00 AM#,[Saudi]) 1459.unix_tTime_Stamp V2.accdb

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

اتفضل يا سيدى احلام معاليك اوامر يا باش مهندس @Moosak اى خدمه يارب تنبسط بس تعتمد الفكرة على وضع الروتين الاتى فى وحدة نمطية Public opt As Integer Public Function MesgBox(ByVal msgText As String, _ Optional ByVal TimeInSeconds As Integer, _ Optional ByVal intButtons = vbDefaultButton1, _ Optional TitleText As String = "WScript") As Integer On Error GoTo MesgBox_Err Dim winShell As Object Set winShell = CreateObject("WScript.Shell") MesgBox = winShell.PopUp(msgText, TimeInSeconds, TitleText, intButtons) MesgBox_Exit: Exit Function MesgBox_Err: winShell.PopUp Err & " : " & Err.Description, 0, "MesgBox()", vbCritical Resume MesgBox_Exit End Function ويتم استدعاء الورتين من خلال opt = MesgBox(Me.n & vbCr & vbCr & " Please wait . . .", 1, vbInformation, "Info") حيث ان بناء الكود كالاتى 'Syntax: opt = MesgBox(msgTxt,intSeconds,Buttons+Icon+DefaultButton,"Title") aa V2.accdb

من فضلك ممكن مرفق القاعدة

اولا بارك الله فى عمرك وعلمك وعملك وجزاكم كل خير ثانيا انا اقل طويلب علم ولست مبرمجا على الاطلاق مجرد هاو ثالثا كنت ابلور فكرة من الامس شبيه بفكرة حضرتك استخدمت الروتين الاتى فى وحدة نمطية Function OpenReport(ByRef rptName As String, ByRef qryName As String) On Error GoTo ErrorHandler DoCmd.OpenReport rptName, acViewPreview, , , , qryName procDone: Exit Function ErrorHandler: MsgBox$ Err.Number & ": " & Err.Description Resume procDone End Function على ان يتم استدعاءه بالسطر الاتى OpenReport("rpt2", "Query2") نفس فكرة حضرتك طبعا بسبب الغموض وعدم التوضيح الكافى كنت فى انتظار اضافة المرفق Chang Record Sources Report VBA(V3).mdb

تسلم الايادى يا @مبرمج سابق يا عالم يا معقدين شايفين البساطة ما شاء الله

جزاكم الله خيرا استاذى الجليل ومعلمى القدير الاستاذ @Barna واسمح لى ممكن نختصر الكود ليكون Dim qdf As DAO.QueryDef Dim strSQL As String CurrentDb.QueryDefs.Delete "qr1" If com1 = "التقرير الاول" Then strSQL = "SELECT tblA.* FROM tblA;" ElseIf com1 = "التقرير الثاني" Then strSQL = "SELECT tblB.* FROM tblB;" End If Set qdf = CurrentDb.CreateQueryDef("qr1", strSQL) DoCmd.OpenReport "rptFlayReport", acViewPreview ولارد بضاعتكم اليكم بطريقة مختلفة بعض الشئ تجنبا لاستخدام الحروف العربية , واضفاء مرونة أكبر فى حال اردنا تمرير اسم التقرير من خلال الكود الافكار كثيرة وتتصارع وتتلاحق فى رأسي بسبب عدم فهمى الهدف والمطلوب تحقيقة بصورة مباشرة من السؤال بسبب غموض الهدف ولكن على حال تبقى الحاجة هى ام الاختراع وفهم السؤال هو شطر الجواب Chang Record Sources Report Barna V2.mdb

انا اريد مرفقا انا لم افهم اى شئ

لابد من تنصيب اكروبات ريدر

طيب ممكن تجربة المرفق الاتى لانه يبدو لى ان التقرير نريده ان يقتح على اكثر من مصدر بيانات حسب الحالة ان لم افهم الموضوع جيدا برجاء مرفق حتى اسطيع الفهم >>---> صعيدى بيفهم بالعافية Chang Record Sources Report.mdb

شوف يا باش مهندس @Eng.Qassim قمت فى هذا المرفق ببعض التعديلات الطفيفة والتى تظهر امامك كل شئ تفصيليا حمل المرفق وقم بفتح الاستعلام qryActualDays ActualDaysCalcult Eng.Qassim.accdb

الله يسلمك ويحفظك يا باش مهندس قاسم وما هى المشكلة 01/06/2022 >>---> يوافق يوم الاربعاء >>---> 1 02/06/2022 >>---> يوافق يوم الخميس >>---> 2 03/06/2022 >>---> يوافق يوم الجمعة >>---> 0 04/06/2022 >>---> يوافق يوم السبت >>---> 0 05/06/2022 >>---> يوافق يوم الاحد >>---> 3 06/06/2022 >>---> يوافق يوم الاثنين >>---> 4 07/06/2022 >>---> يوافق يوم الثلاثاء >>---> 5 08/06/2022 >>---> يوافق يوم الاربعاء >>---> 6 09/06/2022 >>---> يوافق يوم الخميس >>---> 7 11/06/2022 >>---> يوافق يوم الجمعة >>---> 0 11/06/2022 >>---> يوافق يوم السبت >>---> 0 12/06/2022 >>---> يوافق يوم الاحد >>---> 8

اولا جزاكم الله خيرا لبحثكم وتقديم المساعدة ولكن اسمح لى بعد اذن حضرتك 1- يعيب الدالة من موقع مايكرسوفت استخدام اسم اليوم سواء بالعربية او الانجليزية بسبب اختلاف الاجهزة على الرغم من امكانية تحاشى تلك المشكلة ولكن هذا شق الاجابه على السؤال وهو الفرق بالايام بين تاريخين مع عدم احتساب ايام الجمعة والسبت 2- وماذا عن الشق الاخر ؟

اولا انشئ جدول باسم tblHolidays يتكون هذا الجدول من حقلين الحقل الاول باسم HolidayType نوع الحقل نصى ليحتوى على اسم او وصف الأعياد والأجازات الرسمية لهذا العام الحقل الثانى باسم HolidayDate نوع الحقل تاريخ ليحتوى على تاريخ الأعياد والأجازات الرسمية لهذا العام بعد ذلك انشئ وحدة نمطية وضع بها الروتين الاتى Function ActualDays(ByVal dtStartDay As Date, ByVal dtEndDay As Date, Optional nDay As Integer = 0) As Long Dim dtNominalEndDay As Date Dim lngTotalDays As Long Dim lngTotalWeeks As Long Dim lngTotalHolidays As Long Dim lngstart As Long Dim lngend As Long 'Check to see if dtStartDay > dtEndDay. If so, then switch the dates If dtStartDay > dtEndDay Then ActualDays = 0: Exit Function ' If dtStartDay >= dtEndDay Then ' dtNominalEndDay = dtStartDay ' dtStartDay = dtEndDay ' dtEndDay = dtNominalEndDay ' End If 'Here are how many weeks are between the two dates lngTotalWeeks = DateDiff("w", dtStartDay, dtEndDay) 'Here are the number of weekdays in that total week lngTotalDays = lngTotalWeeks * 5 'Here is the date that is at the end of that many weeks dtNominalEndDay = DateAdd("d", (lngTotalWeeks * 7), dtStartDay) 'Now add the number of weekdays between the nominal end day and the actual end day While dtNominalEndDay <= dtEndDay If Weekday(dtNominalEndDay, 2) <> 5 Then If Weekday(dtNominalEndDay, 2) <> 6 Then lngTotalDays = lngTotalDays + 1 End If End If dtNominalEndDay = dtNominalEndDay + 1 Wend 'convert end date and startdate into long integer format for the DCount operation to avoid misreading of dates as US format lngstart = dtStartDay lngend = dtEndDay 'Here are how many holiday days there are between the two days lngTotalHolidays = DCount("HolidayDate", "tblHolidays", "HolidayDate <= " & lngend & " AND HolidayDate >= " & lngstart & " AND Weekday(HolidayDate,2) <> 6 AND Weekday(HolidayDate,2) <> 5") ActualDays = lngTotalDays - lngTotalHolidays 'Here are how many holidays between the two dates plus the number of weekends 'If nDay = 1 Then ActualDays = DateDiff("d", dtStartDay, dtEndDay) - ActualDays + 1 If nDay = 1 Then ActualDays = DateDiff("d", dtStartDay, dtEndDay) + 1 If nDay = 2 Then ActualDays = DateDiff("d", dtStartDay, dtEndDay) - ActualDays + 1 If nDay = 3 Then ActualDays = lngTotalHolidays If nDay = 4 Then ActualDays = (DateDiff("d", dtStartDay, dtEndDay) - ActualDays + 1) - lngTotalHolidays End Function ولاستدعاء الروتين السابق لاحتساب الايام الفعلية بين تاريخين بدون العطل الرسيمة داخل الجدول المحدد لذلك وبدون ايام الجمعة والسبت ActualDays([BeginDate],[EndDate]) وان اردت استخلاص عدد العطلات الرسمية بين تاريخين والتى تم تحديدها مسبقا بجدول tblHolidays + العطلات الاسبوعية ( الجمعة + السبت ) قم ياستدعاء الروتين بالشكل الاتى ActualDays([BeginDate],[EndDate],1) وهذا التعديل الاخير لى على الأكود فى المرفق الذى اشار اليه الباش مهندس @Moosak تم تعديل المرفق ActualDaysCalcult.accdb

جزاكم الله خيرا معذرة على طول الغياب

الحل هنا

تحديث property sheet visible or not _ UP V2.mdb

السلام عليكم اتفضل يا باش مهندس @Eng.Qassim اولا حمل التطبيق الاتى وقم بتنصيبه على الحاسوب https://drive.google.com/uc?id=1xHo6J688Vox4u9zwLzNbZUE1Mm1-9Vp4&export=download بعد ذلك جرب قاعدة البيانات الاتية Test.accdb

اتفضل fullName after.accdb

اتفضل طلبك هنا

كنت متخيل ان سهل تطبيقة معلش الموضوع كان دسم شوية والشرح كان كتير حبتين انا اسف على الاطالة وعدم وعدم وضع المفتاح من قبل على زر الامر Paste فى نموذج FrmNotReg غير ما يلزمك بدلا من هذا يا دكتور MsgBox _ Chrw("89") & Chrw("111") & Chrw("117") & Chrw("32") & Chrw("104") & Chrw("97") & Chrw("118") & Chrw("101") & Chrw("32") & Chrw("117") & _ Chrw("115") & Chrw("101") & Chrw("100") & Chrw("32") & Chrw("116") & Chrw("104") & Chrw("101") & Chrw("32") & Chrw("119") & Chrw("114") & _ Chrw("111") & Chrw("110") & Chrw("103") & Chrw("32") & Chrw("108") & Chrw("105") & Chrw("99") & Chrw("101") & Chrw("110") & Chrw("115") & _ Chrw("101") & Chrw("32") & Chrw("110") & Chrw("117") & Chrw("109") & Chrw("98") & Chrw("101") & Chrw("114") & Chrw("46") & Chrw("13") & _ Chrw("10") & Chrw("80") & Chrw("108") & Chrw("101") & Chrw("97") & Chrw("115") & Chrw("101") & Chrw("32") & Chrw("99") & Chrw("111") & _ Chrw("110") & Chrw("116") & Chrw("97") & Chrw("99") & Chrw("116") & Chrw("32") & Chrw("116") & Chrw("104") & Chrw("101") & Chrw("32") & _ Chrw("100") & Chrw("101") & Chrw("115") & Chrw("105") & Chrw("103") & Chrw("110") & Chrw("101") & Chrw("114") & Chrw("32") & Chrw("111") & _ Chrw("102") & Chrw("32") & Chrw("116") & Chrw("104") & Chrw("101") & Chrw("32") & Chrw("97") & Chrw("112") & Chrw("112") & Chrw("108") & _ Chrw("105") & Chrw("99") & Chrw("97") & Chrw("116") & Chrw("105") & Chrw("111") & Chrw("110") & Chrw("46")

المرفقات النهائية وسبق الشرح تفصيلا واجمالا لكل جزئية بالكود Anti Copy 3.accdbKey.accdb

السلام عليكم ورحمة الله وبركاته اعتذر لقلة حضورى بسب بعض الظروف القهرية فى الوقت الراهن ولكن امر على المنتدى من حين لاخر مرور الكرام وهذا المرفقين المرفق ضد النسخ لاى جهاز أخر ولا تعمل القاعدة الا بالرقم الخاص بالتفعيل الخاص لكل جهاز ومرفق لتوليد رقم التفعيل وهذه المشاركة تم فيها الشرح تقصيلا Anti Copy 3.accdb Key.accdb

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

لا شكر على واجب يا سيدى اهلا بيك