ابو جودي

الله يسلمك ويحفظك يا باش مهندس قاسم وما هى المشكلة 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

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

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

بسيطة ان شاء الله اتفضل يا سيدى New Microsoft Access Database (2-1).accdb

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

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

لا احنا كده جمعنا اربع روس فى الحلال

اتفضل يا سيدى لا تنسى وضع افضل اجابة وهذه هى الاكواد المستخدمة Dim CalcAge As String Public Function IDData(IDNumber As Variant, Optional stype As Integer = 1) As Variant If IsNull(IDNumber) Or IDNumber = "" Or IDNumber = "" Or IDNumber = Empty Or IDNumber = vbNullString Or Len(IDNumber) = 0 Then IDData = "" Exit Function ElseIf Len(IDNumber) < 14 Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1571") & ChrW("1589") & ChrW("1594") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("49") & ChrW("52") & ChrW("32") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("41") Exit Function ElseIf Len(IDNumber) > 14 Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1571") & ChrW("1603") & ChrW("1576") & ChrW("1585") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("49") & ChrW("52") & ChrW("32") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("41") Exit Function ElseIf Not IsNumeric(IDNumber) Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1604") & ChrW("1575") & ChrW("1576") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1573") & ChrW("1587") & ChrW("1578") & ChrW("1582") & ChrW("1583") & ChrW("1575") & ChrW("1605") & ChrW("32") & ChrW("1571") & ChrW("1585") & ChrW("1602") & ChrW("1575") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1602") & ChrW("1591") & ChrW("32") & ChrW("41") Exit Function ElseIf Not IsDate(Format(IIf(Left(IDNumber, 1) = 3, Mid(IDNumber, 2, 2) + 2000, Mid(IDNumber, 2, 2) + 1900) & "/" & Mid(IDNumber, 4, 2) & "/" & Mid(IDNumber, 6, 2), "yyyy/mm/dd")) Then IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1582") & ChrW("1591") & ChrW("1571") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1578") & ChrW("1575") & ChrW("1585") & ChrW("1610") & ChrW("1582") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1610") & ChrW("1604") & ChrW("1575") & ChrW("1583") & ChrW("32") & ChrW("41") Exit Function Else If stype = 1 Then Dim DateOfBirth As Date: DateOfBirth = Format(IIf(Left(IDNumber, 1) = 3, Mid(IDNumber, 2, 2) + 2000, Mid(IDNumber, 2, 2) + 1900) & "/" & Mid(IDNumber, 4, 2) & "/" & Mid(IDNumber, 6, 2), "yyyy/mm/dd") IDData = DateOfBirth Dim strYear As String: strYear = ChrW("1587") & ChrW("1606") & ChrW("1607") Dim strMnth As String: strMnth = ChrW("1588") & ChrW("1607") & ChrW("1585") Dim strDy As String: strDy = ChrW("1610") & ChrW("1608") & ChrW("1605") CalcAge = CalcAgeY(DateOfBirth, Date) & " " & strYear & " " & "," & CalcAgeM(DateOfBirth, Date) & " " & strMnth & " " & "," & CalcAgeD(DateOfBirth, Date) & " " & strDy ElseIf stype = 2 Then Dim strRegionCode As String: strRegionCode = Mid(IDNumber, 8, 2) Select Case strRegionCode Case Is = "01": IDData = ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1575") & ChrW("1607") & ChrW("1585") & ChrW("1577") Case Is = "02": IDData = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1587") & ChrW("1603") & ChrW("1606") & ChrW("1583") & ChrW("1585") & ChrW("1610") & ChrW("1577") Case Is = "03": IDData = ChrW("1576") & ChrW("1608") & ChrW("1585") & ChrW("1587") & ChrW("1593") & ChrW("1610") & ChrW("1583") Case Is = "04": IDData = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1608") & ChrW("1610") & ChrW("1587") Case Is = "11": IDData = ChrW("1583") & ChrW("1605") & ChrW("1610") & ChrW("1575") & ChrW("1591") Case Is = "12": IDData = ChrW("1575") & ChrW("1604") & ChrW("1583") & ChrW("1602") & ChrW("1607") & ChrW("1604") & ChrW("1610") & ChrW("1577") Case Is = "13": IDData = ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1585") & ChrW("1602") & ChrW("1610") & ChrW("1577") Case Is = "14": IDData = ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1604") & ChrW("1610") & ChrW("1608") & ChrW("1576") & ChrW("1610") & ChrW("1577") Case Is = "15": IDData = ChrW("1603") & ChrW("1601") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1588") & ChrW("1610") & ChrW("1582") Case Is = "16": IDData = ChrW("1575") & ChrW("1604") & ChrW("1594") & ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1577") Case Is = "17": IDData = ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1610") & ChrW("1577") Case Is = "18": IDData = ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1581") & ChrW("1610") & ChrW("1585") & ChrW("1577") Case Is = "19": IDData = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1587") & ChrW("1605") & ChrW("1575") & ChrW("1593") & ChrW("1610") & ChrW("1604") & ChrW("1610") & ChrW("1577") Case Is = "21": IDData = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1610") & ChrW("1586") & ChrW("1577") Case Is = "22": IDData = ChrW("1576") & ChrW("1606") & ChrW("1610") & ChrW("32") & ChrW("1587") & ChrW("1608") & ChrW("1610") & ChrW("1601") Case Is = "23": IDData = ChrW("1575") & ChrW("1604") & ChrW("1601") & ChrW("1610") & ChrW("1608") & ChrW("1605") Case Is = "24": IDData = ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1606") & ChrW("1610") & ChrW("1575") Case Is = "25": IDData = ChrW("1571") & ChrW("1587") & ChrW("1610") & ChrW("1608") & ChrW("1591") Case Is = "26": IDData = ChrW("1587") & ChrW("1608") & ChrW("1607") & ChrW("1575") & ChrW("1580") Case Is = "27": IDData = ChrW("1602") & ChrW("1606") & ChrW("1575") Case Is = "28": IDData = ChrW("1571") & ChrW("1587") & ChrW("1608") & ChrW("1575") & ChrW("1606") Case Is = "29": IDData = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1602") & ChrW("1589") & ChrW("1585") Case Is = "31": IDData = ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1581") & ChrW("1585") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1581") & ChrW("1605") & ChrW("1585") Case Is = "32": IDData = ChrW("1575") & ChrW("1604") & ChrW("1608") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1583") & ChrW("1610") & ChrW("1583") Case Is = "33": IDData = ChrW("1605") & ChrW("1591") & ChrW("1585") & ChrW("1608") & ChrW("1581") Case Is = "34": IDData = ChrW("1588") & ChrW("1605") & ChrW("1575") & ChrW("1604") & ChrW("32") & ChrW("1587") & ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1569") Case Is = "35": IDData = ChrW("1580") & ChrW("1606") & ChrW("1608") & ChrW("1576") & ChrW("32") & ChrW("1587") & ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1569") Case Is = "88": IDData = ChrW("1605") & ChrW("1608") & ChrW("1575") & ChrW("1604") & ChrW("1610") & ChrW("1583") & ChrW("32") & ChrW("1582") & ChrW("1575") & ChrW("1585") & ChrW("1580") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1607") & ChrW("1608") & ChrW("1585") & ChrW("1610") & ChrW("1577") Case Else: IDData = ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1608") & ChrW("1605") & ChrW("1609") & ChrW("32") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1589") & ChrW("1581") & ChrW("1610") & ChrW("1581") & ChrW("32") & ChrW("40") & ChrW("32") & ChrW("1582") & ChrW("1591") & ChrW("1571") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1605") & ChrW("1581") & ChrW("1575") & ChrW("1601") & ChrW("1592") & ChrW("1577") & ChrW("32") & ChrW("41") End Select ElseIf stype = 3 Then Dim GenderCode As Long: GenderCode = Mid(IDNumber, 13, 1) Select Case GenderCode Case Is = 1, 3, 5, 7, 9: IDData = ChrW("1584") & ChrW("1603") & ChrW("1585") Case Is = 0, 2, 4, 6, 8: IDData = ChrW("1571") & ChrW("1606") & ChrW("1579") & ChrW("1609") Case Else: IDData = "" End Select ElseIf stype = 4 Then IDData = CalcAge End If End If End Function Function CalcAgeY(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeY = vYears End Function Function CalcAgeM(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeM = vMonths End Function Function CalcAgeD(vDate1 As Date, vdate2 As Date) As String Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If Day(vDate1) = 31 Then vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) - 1 If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAgeD = vDays End Function على اعتبار أن xxx = الرقم القومى IDData(xxx, 1) او IDData(xxx) >>---> تاريخ الميلاد IDData(xxx, 2) >>---> محافظة الميلاد IDData(xxx, 3) >>---> النوع IDData(xxx, 4) >>---> حساب العمر قاعدة بيانات موظفين - (3).accdb

اتفضل السبب فى الخطأ ان حضرتك وضعت فى مصدر بيانات مربع النص fullName التعبير الاتى =[firstName] & " " & [secondName] & " " & [thirdName] & " " & [fourthName] ولذلك تم بالفعل نجميع الاسم الرباعى ولكن اصبح مربع النص fullName غير منضم ترى فيه النتيجة بالفعل ولكن لم تتم ادراج القيمة فى الجدل فى الحقل المطلوب fullName.accdb

دى طريقتى قاعدة بيانات موظفين - (2).accdb

جرب ضغط المرفق بأحد برامج الضغط اولا مثل WINRAR OR 7ZIP

أتفضل يا افندم انا فعلا غلطان واتسرعت فى الفكرة ممكن الحل بأكثر من طريقة 1- كتابة جملة الاستعلام ملخص حسابات العملاء2 فى محرر الاكواد بحيث يتغير المعيار تبعا لحالة مربع السرد مصدر التمويل وبناء على حالة مربع السرد كذلك يتغير مصدر بيانات النموذج تجميعات ملخص مصدر التمويل والذى سوف يتم كتابته كذلك من داخل محرر الاكواد 2- الطريقة الثانية كما فى المرفق الاتى بعمل عدد 2 استعلام ملخص حسابات العملاء2 , ملخص حسابات العملاء2A وعدد 2 نموذج ملخص مصدر التمويل , ملخص مصدر التمويلA Test1(4).accdb

طيب بعد التمعن فى الفوكيرة اللى فاتت لابد من التطبيق بتلك الالية بعدد 7 استعلامات الاستعلام النهائى والذى يظهر القيم المكررة هو qryUnionMob 3or2Colume (2).accdb

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