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

السلام عليكم ورحمه الله وبركاته اضع بين ايديكم هديه متواضعه صدقه جاريه على روح والدى ( برجاء قراءه الفاتحه ) الانتهاء من برنامج اداره وتوزيع النوبتجيات والاجازات ينفع لكافه الانشطه المدنيه العسكريه التى تعتمد على نوبتجيات او ورديات - متابعه الاجازات بدقه ( يحسبلك المتبقي من العرضيات والسنويات وما الي ذلك ) ورفض تسجيلها فى حاله كون الموظف نوبتجي - توزيع النوبتجيات اتوماتيك لكل القوه حسب النوبتجيه المكلف بها ( استثناء الاجازات من التوزيع ودرجهم فالدور بمجرد انتهاء الاجازات ) - عرض تقارير مفصله ( سواء اجازات - نوبتجيات لكل موظف ) - حجم البرنامج لا يتعدي ١٠ ميجا ويعمل علي كافه انظمه اوفيس بدايه من اوفيس ٢٠١٠ - يضع التقارير والنوبتجيات تلقائي في مجلدات بجانب البرنامج ( تقارير شهريه - نوبتجيات موظفبن - اجازات موظفين - نوبتجيات يوميه ) - يصلح لكافه الاغراض المدنيه التي تعمل علي ورديات مختلفه أو توزيع عماله علي اماكن عمل ومواقع مختلفه ( سواء شركات أمن - شركات نظافه - خدمات بتروليه - مصانع ...الخ ) -😎😎 البرنامج مجاني بكل اكواده وتصميماته ومتاح للتعديل صدقه جاريه على روح والدى الله يرحمه فضلا وليس امرا الدعاء له كلمه المرور 1510 ملحوظه تم الاستعانه بتصميم بعض قواعد البيانات ( تصاميم فقط ) لكن كل اكواد البرنامج هي من تصميمي إن شاءالله نوبتجيات.rar

هههههه مكتبتة دائما عامرة ما شاء الله 🧐 مش بأحسد ولا حاجة بس اقصد الدعوة مجابة اصلا ماشاء الله قبل الدعاء

وعليكم السلام ورحمة الله وبركاته ،، أخي الكريم @Hazem Hussien ، ولأنك جديد معنا في أسرتنا الكبيرة ؛ أود لفت انتباهك إلى بعض النقاط الهامة كي لا يتم اغلاق موضوعك بسبب مخالفته لقوانين المنتدى . 1. أن يكون العنوان له دلالة على محتوى الموضوع 2. الشرح المفصل للطلب أو المشكلة التي تريد حلها .

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

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

ممكن مرفق

الله يرحمه ويغفر له ويسكنه فسيح جناته تسلم ايدك

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

الآن نظرتي المتواضعة تتلخص في النقاط التالية :- 1. لم تذكر الباسوورد للمستخدم Admin ، وده خلاني أضطر أفتح قاعدة البيانات وأغيره من الجدول US 2. في نموذج تسجيل الدخول عجبتني فكرة إظهار كلمة المرور ، ولكن فرحتي ماكملتش لما اظهر الباسوورد وما عرفتش اخفيها مرة تانية 3. القائمة اللي على اليمين جميلة وفكرتها بسيطة جداً وخفيفة ما فيهاش ترميش ومن الكلام ده ,, بس لو عايز أخفي القائمة ما بتختفيش معاي و ضغطت في أي مكان في النموذج أو حتى على نفس الزرار يا فنااااااااااان

🤣🤣 حبيبي يا بروف لكن مستغربتش من وجودي كعضو هنا يجي حوالي ٤ سنين بدون اي مشاركات 🤪🤪🤪

وعليكم السلام ورحمة الله تعالى وبركاته.. الله يرحم والديك ويغفر لوالدك ، ويرفع قدره في جنات النعيم.. بداية اسمح لي بالتهنئة لأول مشروع لك 💐 سأقوم بالتجربة حال التفرغ قريباً جداً ، ولكن واضح أنه نتاج خبرة ما شاء الله جميلة جداً أبدعت يا فنان

آمين يارب .. ربنا يستجيب دعواتكم ويحقق أمنياتنا وأمنياتكم 😊🤲🏻🌷🌹 :: والآن مع التشويقة الثانية 😎✌ :: :: تحكم كامل بعدد الأزرار والأزرار الفرعية والتسميات والأوامر مع إضافة أيقونات للأزرار بواجهة سهلة الاستخدام وبدون الحاجة للدخول لوضع التصميم ::

فعلا قد تم عدم اظهار الفولدر فى مثال الاستاذ / فادى وسوف اختار الاصلح منهما لى ان شاء الله جزاك الله خير شيخنا الجليل

هذه هي دالة الاستاذ فادي والمثال المرفق بعد تطبيق الدالة عليه اختر منهما ما شئت .. المهم هو ظهور النموذج امام المجلد على فكرة .. انا في جهازي افتح المجلدات في الإطار نفسه ... وعندما اكون بحاجة للعودة الى مجلد معين افتح الخصائص (كلك يمين) وافتحه في نافذة جديدة اخفاء الفولدر4.rar

استاذنا الفاضل / @Moosak دائما تعودت منك عدم الرد على اسئلتى لماذا انا متابع جيد لموضوعاتك على قناتك الخاصة وفى المنتدى ومع ذلك دائما لا تنظر الى تعليقى لماذا عموما جزاك الله خير

استاذى الفاضل @Foksh هل حضرتك جربت تطبيق هذه الدالة على المثال ؟ اذا كنت جربت فياريت ترفق لى المثال بعد تظبيق الدالة عليه جزاك الله كل خير

تفضل Database1.accdb

مشاركةً مع أستاذي ومعلمي الجليل عجبتني فكرة الكود العجيب الذي طرحه معلمي الفاضل @ابوخليل ، لدرجة إنه جعلني اتمعن في آليته .. فوجدت أنه يقوم بإغلاق المجلد الذي تم فتحه أولاً .!!. بمعنى آخر أنه لو فتحت أولاً مجلد على سطح المكتب اسمه "الحلبي" على سبيل المثال ويحتوي صور وملفات لا علاقة لها بآكسيس ، ثم فتحت المجلد الذي اسمه "اخفاء الفولدر" الذي يحتوي قاعدة البيانات التي بها الكود ، فإن الكود سيقوم بإغلاق المجلد "الحلبي" لأنه مفتوح أولاً . فتطرقت لتعديل الفكرة بحيث يتم اغلاق مسار محدد وهو مسار المجلد التي به قاعدة البيانات الحالية فقط ، ولا يتم اغلاق اي مجلدات أخرى :- نقوم أولاً بإنشاء الدالة التالية :- Sub CloserWindow(targetPath As String) Dim shellApp As Object Dim window As Object Dim folderPath As String Set shellApp = CreateObject("Shell.Application") For Each window In shellApp.Windows If InStr(1, window.FullName, "explorer.exe", vbTextCompare) > 0 Then On Error Resume Next folderPath = window.Document.Folder.Self.Path On Error GoTo 0 If folderPath = targetPath Then window.Quit End If End If Next window Set shellApp = Nothing End Sub ثم نستدعي الدالة من أي مكان وأي وظيفة كالآتي :- Dim targetPath As String targetPath = CurrentProject.Path CloserWindow targetPath حيث هنا تم تحديد المسار الذي نريد اغلاقه بشكل مباشر .

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

أظن أن نظام القائمة أسهل!!!! هل تقصد أنك ترغب بكتابة الإسم وجلب البيانات باستخدام زر البحث؟ جرب هذا ReDim a(1 To UBound(r), 1 To UBound(r, 2)) For I = 1 To UBound(r) If r(I, 5) = clé Then F = F + 1 a(F, 1) = r(I, 2):a(F, 2) = r(I, 4): a(F, 3) = r(I, 6) a(F, 4) = r(I, 7):a(F, 5) = r(I, 3):a(F, 6) = r(I, 1) End If Next I Search_by_name-V2.xlsm

ادن جرب هدا Option Explicit Sub Filter_ListUniques() Dim lastRow&, n&, F& Dim WS As Worksheet, src As Worksheet, _ tmp As Range, rngCell As Range, c As Range, _ rng As Range, r As Range, list As Range Set WS = Worksheets("1"): Set src = Worksheets("التقرير") With Application .ScreenUpdating = False With WS If .AutoFilterMode Then .AutoFilterMode = False lastRow = WS.Cells(WS.Rows.Count, "H").End(xlUp).Row Set rng = WS.Range("A1:J" & lastRow) Intersect(src.Range(src.Rows(1), _ src.UsedRange.Rows(src.UsedRange.Rows.Count)), src.Range("A:J")).Clear .Range("H1:H" & lastRow).AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=.Range("AA1"), Unique:=True Set list = .Range(.[AA2], .Cells(.Rows.Count, "AA").End(xlUp)) For Each tmp In list rng.AutoFilter 8, tmp.Value n = src.Range("A" & src.Rows.Count).End(xlUp).Row If n > 2 Then n = n + 2 rng.SpecialCells(xlCellTypeVisible).Copy src.Range("a" & _ n).PasteSpecial Paste:=xlPasteValuesAndNumberFormats Next tmp WS.AutoFilterMode = False End With On Error Resume Next F = src.Range("A:J").Find("*", SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row Set rngCell = src.Range("A1 :J" & F) For Each c In rngCell.Rows If WorksheetFunction.CountA(c) > 0 Then c.Borders.LineStyle = xlContinuous Next For Each r In src.Range("A1:A" & F) If r.Value = "سعر الوقود" Then With src.Range(src.Cells(r.Row, 1), src.Cells(r.Row, 10)) .Interior.Color = RGB(51, 204, 204) .Font.Bold = True End With End If Next .CutCopyMode = False .ScreenUpdating = True End With End Sub تقرير 3.xlsm

السلام عليكم مبدع دائما استاذنا ومعلمنا @ابو جودي وكما قلت لك زمان بانك تطلب واكسس يطيع كل اوامرك استاذنا ومعلمنا @Moosak مش عارف ليه انا معجب جدا بأفكارك وطريقتك فى تصميم الواجهات انا منتظر مشروع هذا الجديد يارب يكون قريبا

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

حتدفع كام ؟؟ !!

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

:: قريبا إن شاء الله 😊👌 :: واجهة متطورة بألوان جذابة :: وقائمة رئيسية يمكن تحريرها بسهولة و لها أزرار فرعية :: بأبسط ما يكون

انصحك بشدة قم بالغاء تنصيب الاوفيس 2016 لكن وركز معايا فـ ولاكن دى استخدم برناامج you uninstall حتى تقوم بحذف الاوفيس من جذوره هو وكل ملفات الريجسترى الخاصة به وانصحك بشئ من اتنين الافضل اوفيس 2010 مع ويندوز 7 سوف تجد فارق كبير جدا جدا جدا فى التعامل الحل التانى تشيل الويندوز 7 تفرمت ال C تنزل نسخة ويندوز وعندى ليك نسخة حلوه ومحترمة جدا جدا وخفيفة جدا جدا جدا وعن تجربة اسمها windows 10 ghost spectre لو عاوز تعرف عنها اكتر قولى اوفر لك فيديوز لشرحها ورابط تحميلها بكل سهولة وبعد الويندوز دى اشتغل بأوفيس Office 2021 LTSC وهتدعى لى ولو عاوز اى مساعدة اونلاين ممكن ابقى ادخل معاك على جهازك ريموت واساعدك فى اى شئ من خلال AnyDesk

هههههه انا قلت @Foksh هيزعق لى ويدينى بالمجهر فى دماغى ويعيط ويدبدب برجله زى ناس اسمها @safaa salem5 وفى الاخر يقولى انا مش داخل هنا تانى ومش عاوز منك حاجة وهروح عند الاجانب انا راضى زمتكم الاجانب عندهم @Moosak صاحب المكتبة العامرة واللا عندهم @Foksh ابو قلب ابيض العسل ده والا عندهم واحدة بتكلم العرب بالعربى والعرب عاوزين مترجم علشان يفهموها اسمها الباش مهندس @hanan_ms حتة واحدة وبتفضل تحط مرفقات تخبل وتجنن وفيها اخترعات غريبة من كوكب تانى اه والله زيمبئولكم كده روحوا شوفوا شغلها يجنن بس اتفرجوا على الشغل هلى طول بدون ما تقرأوا كلامها والله احلى صحبة هنا ناس عسل مالهومش زى احل اخل واخوات فى الدنيا واعظم اساتذة فى الوجود ال مش لاعبه هنا تانى واروح العب عند الاجانب قال روحى يا اختى

أعتقد أنه قد فقد رمز الأيميل ولم يعد يستطيع التواصل عبر هذا الحساب ولذلك فتح حساب جديد والله أعلم ...... حسب فهمي لكلمة تصكر والتي أعتقد أنها تسكر أو أغلق...

السلام عليكم هل تقبلون تجربة احد جيرانكم من منتدى الاكسس جرب الكود الاتى ' This function rounds a given value to the nearest multiple of a specified value. ' It uses Excel's built-in RoundUp and RoundDown functions to perform the rounding. ' ' Parameters: ' mainVal: The value to be rounded (of type Double). ' roundVal: The multiple to which mainVal will be rounded (of type Double). ' ' Returns: ' The rounded value as a Double. ' If roundVal is zero or an error occurs, the function returns 0. ' ' Error Handling: ' The function raises an error if roundVal is zero to prevent division by zero. ' If any other error occurs, a message box displays the error number and description. Function MyRound(ByVal mainVal As Double, ByVal roundVal As Double) As Double Dim h As Double, v As Double Dim remainder As Double On Error GoTo ErrSub ' Check if roundVal is zero to avoid division by zero error If roundVal = 0 Then Err.Raise vbObjectError + 9999, "MyRound", "RoundVal cannot be zero." End If ' Calculate half of roundVal h = roundVal / 2 ' Calculate the remainder of mainVal divided by roundVal remainder = mainVal - Int(mainVal / roundVal) * roundVal ' Determine whether to round up or down based on the remainder and half of roundVal If mainVal >= 0 Then If remainder >= h Then v = Application.WorksheetFunction.RoundUp(mainVal / roundVal, 0) * roundVal Else v = Application.WorksheetFunction.RoundDown(mainVal / roundVal, 0) * roundVal End If End If ' Return the rounded value MyRound = v Exit Function ErrSub: ' Handle errors and provide a meaningful message MsgBox "Error Number: " & Err.Number & vbCrLf & "Description: " & Err.Description, vbCritical + vbMsgBoxRight MyRound = 0 End Function وفكرة أخرى تعتمد على العمليات الجسابية بعيدا عن الدوال Function MyRound(ByVal mainVal As Double, ByVal roundVal As Double) As Double Dim roundedValue As Double Dim quotient As Double On Error GoTo ErrHandler ' Check if roundVal is zero to avoid division by zero error If roundVal = 0 Then Err.Raise vbObjectError + 9999, "MyRound", "RoundVal cannot be zero." End If ' Calculate the quotient of mainVal divided by roundVal quotient = mainVal / roundVal ' Determine whether to round up or down based on the quotient If quotient - Int(quotient) >= 0.5 Then roundedValue = Application.WorksheetFunction.RoundUp(quotient, 0) * roundVal Else roundedValue = Application.WorksheetFunction.RoundDown(quotient, 0) * roundVal End If ' Return the rounded value MyRound = roundedValue Exit Function ErrHandler: ' Handle errors and provide a meaningful message MsgBox "Error Number: " & Err.Number & vbCrLf & "Description: " & Err.Description, vbCritical + vbMsgBoxRight MyRound = 0 End Function

تفضل اخي Option Explicit Sub filtre() Dim f$, Lastrow&, Cnt&, n&: f = "من المدرسة" Dim WS As Worksheet: Set WS = Sheets("الصف الثانى ") Dim src As Worksheet: Set src = Sheets("محولين الى المدرسة") Application.ScreenUpdating = False src.Range("B10:U" & src.Rows.Count).ClearContents Lastrow = WS.Range("V" & WS.Rows.Count).End(xlUp).Row For Cnt = 10 To Lastrow If UCase(WS.Range("V" & Cnt).Value) Like f Then n = n + 1 src.Range("B" & n + 9 & ":U" & _ n + 9).Value = WS.Range("B" & Cnt & ":U" & Cnt).Value End If Next Application.ScreenUpdating = True End Sub لتنفيد الكود تلقائيا عند التغيير في عمود التحويلات المدرسية (الصف الثانى ) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("V10:V600")) Is Nothing Then Application.EnableEvents = False Application.Run ("filtre") Application.EnableEvents = True End If End Sub سجل مستجدين - 2025 V2.xlsm

يمكنك وضع تاريخ نهاية التقييم في العمود E والتقييم في العمود F واستعمال هذه المعادلة في العمود C إلى =IF(TODAY()<=E2,F2,1) بالتوفيق

يمكنك تعديل الكود المستعمل في الملف إلى هذا وتم إضافة متغير لتحديد الصف الأخير من العمود A Option Explicit Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean Sub Export_Range_As_Picture() Dim Ws As Worksheet, StrToFolder2 As String, lr As Long Dim oRng As Range, sPath As String, oChart As ChartObject Set Ws = ActiveSheet Application.ScreenUpdating = False StrToFolder2 = "D:\pic\" MakeSureDirectoryPathExists StrToFolder2 sPath = StrToFolder2 & Ws.Range("a1").Value & "." & "jpg" lr = Cells(Rows.Count, 1).End(xlUp).Row Set oRng = Ws.Range("A2:E" & lr) oRng.CopyPicture xlScreen, xlPicture Set oChart = Ws.ChartObjects.Add(Left:=0, Top:=0, Width:=oRng.Width * 1, Height:=oRng.Height * 1) With oChart .Activate .Chart.Paste .Chart.Export Filename:=sPath .Delete End With Application.ScreenUpdating = True End Sub بالتوفيق

Try this code Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean Sub Export_Range_As_Picture() Dim ws As Worksheet, oRng As Range, oChart As ChartObject, sFolder As String, sFile As String, rw As Long Application.ScreenUpdating = False Set ws = Sheet1 sFolder = "D:\Pic\" MakeSureDirectoryPathExists sFolder sFile = sFolder & ws.Range("A1").Value & "." & "jpg" rw = FindErrorRow(ws, 2) If rw <> -1 Then Set oRng = ws.Range("A2:E" & rw) Else Set oRng = ws.Range("A2:E" & ws.Cells(Rows.Count, "B").End(xlUp).Row) End If oRng.CopyPicture xlScreen, xlPicture Set oChart = ws.ChartObjects.Add(Left:=0, Top:=0, Width:=oRng.Width * 1, Height:=oRng.Height * 1) With oChart .Activate .Chart.Paste .Chart.Export Filename:=sFile .Delete End With Application.ScreenUpdating = True MsgBox "Done", 64 End Sub Function FindErrorRow(ByVal ws As Worksheet, ByVal col As Long) Dim rng As Range On Error Resume Next Set rng = ws.Columns(col).SpecialCells(xlCellTypeFormulas, xlErrors) On Error GoTo 0 If Not rng Is Nothing Then FindErrorRow = rng.Cells(1, 1).Row - 1 Else FindErrorRow = -1 End Function

من خلال المواصفات التي قدمتها اعتقد انه لا يوجد مشكلة في المواصفات ، إلا بعد جوابك على السؤال التالي تختلف إجابتي .. هل في باقي المشاريع التي جربتها على جهازك يوجد بطئ في التعامل مع قاعدة البيانات ؟؟ بناءً عليه تأكد من تعريف كرت الشاشة إنه سليم . غير ذلك عليك التأكد من نسخة الأوفيس انها لا تحتوي على مشاكل أو جرب على إصدار آخر .

أخي الكريم صاحب الاستفسار ما يظهر في شريط المعادلات هو قيمة الخلية الأصلية ويمكنك التحكم في طريقة عرضها من خلال تنسيق الخلايا format cells أما إذا كنت تريد أن يظهر في شريط المعادلات القيم بعد التقريب باستخدام معادلة مثلا =TRUNC(A1,0) فيجب نسخ بيانات النطاق بعد التقريب ثم لصقه كقيم paste as values مكان النطاق الأصلي بالتوفيق للجميع

Hello Nabil Try this code Sub Move_PDF_Files() Dim ws As Worksheet, sDesktop As String, srcFolder As String, desFolder As String, empName As String, sFile As String, TargetFolder As String, lr As Long, r As Long Set ws = ThisWorkbook.Sheets("Sheet1") sDesktop = Environ("UserProfile") & "\Desktop\" srcFolder = sDesktop & "SourceFolder\" desFolder = sDesktop & "DestinationFolder\" If Dir(desFolder, vbDirectory) = "" Then MkDir desFolder lr = ws.Cells(Rows.Count, "E").End(xlUp).Row For r = 2 To lr empName = ws.Cells(r, "E").Value sFile = empName & ".pdf" TargetFolder = desFolder & empName & "\" If Dir(TargetFolder, vbDirectory) = "" Then MkDir TargetFolder If Dir(srcFolder & sFile) <> "" Then FileCopy srcFolder & sFile, TargetFolder & sFile Else Debug.Print "File [" & sFile & "] Not Found In Source Folder" End If Next r MsgBox "PDF Files Moved Successfully!", 64 End Sub This is for illustration

تفضل الكود على حدث نقر زر "تفعيل خانة الاختيار في النموذج الفرعي": Dim rst As DAO.Recordset Set rst = Me.ORDER.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount What_Was_The_First_Selection = rst!Do For i = 1 To RC rst.Edit rst!Do = Not What_Was_The_First_Selection rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing جعفر 528.CHECK BOX.accdb.zip

فين يابو جودي الله يباركلك عاوز اسلم البرنامج للادارة عشان الميزنيات المطلوبة مننا

Possible attachment from the database