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

السلام عليكم 🙂 حياك الله اخوي @ناقل بين اخوتك ، لنا الفخر ان نلصق هذه التسمية على صدرك ، فانت اهل لها 🙂 والشباب اللي شمشموا الخبر من البارحة ، فالخبر نضج الآن ، وحياكم الله 🙂 جعفر

السلام عليكم ,, الاخوة الاعزاء كل عام وانتم بخير . كما نعلم ان الايقونات جزء لا يتجزء من الواجهات الحديثة الجذابة التى تلفت الانظار ومن هذا المنطلق واستكمالاً للموضوع السابق الذى تجده هنا : موضوعنا اليوم عن كيف تصنع ايقوناتك خصيصاً لتتناسب مع تصميم برنامجك بطريقة بسيطة , انظر النتيجة : هناك اختلاف بسيط فى الالوان لأنى عملتهم على عجالة 😅 . فى هذا الموضوع سنستخدم أداة بها آلاف الايقونات القابلة للتخصيص من حيث اللون والحجم اسم الاداة Pichon يمكنك تحميلها من هذا الرابط المباشر : من هنا بعد التحميل والتثبيت ستجد هذه الايقونة افتح البرنامج وابحث عن الايقونة التى تريدها بوصفها مثلاً Facebook , Twitter وهكذا , ستجد ايقونات غير قابلة للتخصيص ولكن يمكن التحكم فى حجمها وستجد ايقونات يمكن تغيير ألوانها ستجدها تحت تصنيف Material وبها تصنيفات فرعية مثلا Outlined للايقونات المفرغة و Filled للايقونات الممتلئة , ابحث ن الايقونة وقم بتلوينها مثل المثال : اضغط كليك يمين ثم Save As واحفظ الايقونة شفافة يمكن وضعها على اى تصميم طيب انا محتاج لون دقيق جدا حتى يكون هناك تناسق تام فى الألوان والتصميم فى هذه الحالة يمكنك سحب اللون بالاداة الموجودة فى الموضوع السابق اتبع المثال لسحب لون الاكسس المحبوب على سبيل المثال : لا حدود لما يمكنك ابداعه , بتطبيق ما تعلمته من الدرسين يمكنك عمل Themes يقوم المستخدم بنحديد المفضل لديه ويتم تغيير الوان الازرار والايقونات وشريط العنوان ليصبح برنامجك شبيهاً ببرامج .Net 😅 المطلوب دعوة بظهر الغيب لصلاح الحال وتيسير الامور , دمتم بخير مرفق المثال الاول لتغيير الوان الحروف والايقونات المستخدمة Icon Color Amr.rar

السلام عليكم 🙂 الدوال نوعين : اولا: نوع نحن نعمله ، وهناك نوعين منهم: كل كود "حدث" في الاكسس ، هو دالة ، وهذه الدوال لها متغيرات ثابته ، لا يمكنك تغييرها ، دوال نحن نعملها ، سواء في وحدة نمطية مستقلة ، او في كود النموذج او التقرير ، وهذه يمكن ان يكون بها متغيرات ، ثانيا: دوال تنادي مكتبات الوندوز/نظام تشغيل الكمبيوتر: الاكسس او اي برنامج آخر ، يقع تحت مظلة نظام تشغيل الكمبيوتر ، ومقدرة/عمل هذه الدوال تبدأ من بداية تشغيل الكمبيوتر الى إغلاقه (فكر بها كأنها "حدث" في نموذجك) ، وبعض هذه الدوال عندها مقدرة تفوق/خارج مقدرة الاكسس (مثل التخاطب والتحكم بالاجهزة المرتبطة بالكمبيوتر) ، وهذا كان قصد @Eng.Qassim في شرحه في مشاركة 🙂 جعفر

اشكركم جميعا لحسن ظنكم بي ... اسأل العلي القدير ان يوفقنا جميعا لما يحبه ويرضاه .. بارك الله فيكم .

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

اضافة لما تفضل به استاذي @أبو عبدالله الحلوانى انتبه دائما الى نوع البيانات Dim year1 As Date Dim year2 As Date Dim month1 As Date Dim month2 As Date year1 = Int(DatePart("yyyy", Vdate1)) year2 = Int(DatePart("yyyy", Vdate2)) month1 = Int(DatePart("m", Vdate1)) month2 = Int(DatePart("m", Vdate2)) If month2 < month1 Then DatDiffY = (year2 - year1) - 1 Else DatDiffY = year2 - year1 End If

جرب هذا المرفق ارجو ان يوافق مرادك ملاحظات: 1- عند نقل الدالة الي برنامجك لا تقم بنسخها اكثر من مرة الدالة واحدة يمكن استخدامها ومنادتها من اي مكان تريد فورم، استعلام ... 2- تم انشاء تقريرين حسب طلبك يتم التجميع والعرض بهم علي حسب نوع الحساب 3- تم تعديل الدالة لتقوم بعملية الجمع للثلاثة تقارير معا فقط ستقوم بتغير بارمتر نوع التجميع (0 يعني تجميع علي حسب العميل - 1 يعني تجميع حسب نوع الحساب - 2 يعني تجميع حسب نوع الحساب لكل عميل) 4- تم انشاء استعلامين جدد يتم الفلترة بهم حسب الفرز المطلوب حسب طريقتك المتبعة مع الفورم 1 تمنياتي بالتوفيق T3Q - Copy.rar

انت/ى فى صرح عظيم لتعلم كل ما ييتعلق بالاوفيس كل ما عليك وبكل بساطة ابحث عن الموضوع الذى تريد تعلمه وستجد الكثير من الشروحات والاستفسارات المجابة عن طريق الاساتذة . وطبعا موجود اليوتيوب نفس الشئ . هى بالفعل لغة برمجة ولكن موجهة لتطبيقات الاوفيس VBA اختصار VB For Applications وابشرك انك لو اتعلمتها يمكنك بسهولة تعلم لغة VB.Net واستعمال لغة البرمجة الكاملة مع اختلافات بسيطة , حتى ان هناك اكواد اذا اخذتها كوبى وبيست من VBA الى VB.Net ستعمل بدون اى اضافات . بالاضافة انك اذا تعلمت الاكسس كقواعد بيانات سيكون عندك منظور جيد جدا لكيفية عمل قواعد البيانات وستأتيك الكثير من الافكار المستوحاة من الاكسس . ابدأ وستجد المحصلة عظيمة , بالتوفيق

وعليكم السلام-يمكنك استبدال معادلتك الموجودة بالعمود B بهذه المعادلة المصفوفة =IFERROR(INDEX(Feuil1!$B$2:$B$340, MATCH(0, IF(A$1=Feuil1!$A$2:$A$340, COUNTIF($B$3:$B3,Feuil1!$B$2:$B$340), ""), 0)),"") كما تم تصحيح معادلة Sumproduct واضافة اليها شرط أخرحتى تحتوى وتشمل المؤسسة أيضاً فتصبح المعادلة كالتالى =SUMPRODUCT((Feuil1!$A$2:$A$31=$A$1)*(Feuil1!$B$2:$B$31=$B4)*(Feuil1!$D$2:$D$31=C$3)*(Feuil1!$E$2:$E$31)) Classeur02_Mawad_new 2022.xlsm

وهذا شرح لرموز الإدخال من دورة المبدع منذر السفان 🙂 أنواع الرموز المستخدمة في أداة شكل الإدخال Input Mask.pdf

اهلا بك دكتور محمد @الحلبي وبما انك اخترت طريقه اخى ومعلمى العزيز محمد الحلوانى وحيث انك اول مره تراها فاليك بعض الروابط التى تشرحها وبالبحث سوتجد اكثر واكثر ولكن انتقيت اليك هذا الرابطان وفيهم الغنيه ان شاء الله وجزاهم الله خيرا اخواننا واساتذتنا على هذه الشروحات بالنسبه للموضوع التالى فركز شويه فى رد ملعلما العزيز جعفر فيه بالتوفيق

وعليكم السلام -يمكنك ذلك بهذه المعادلة =1/(1/LOOKUP(9^9,$K$7:$K$160/($L$7:$L$160=$H$6))) OFIC1.xlsm

شاهد هذه الطريقة حضور سائقي الملاكي 2022.rar

بما انك لم ترفع ملف او صورة تحاكي طلبك اليك هذه التجربة المتواضعة عليك بالضغط على الزر كلما فتحت الملف Option Explicit Sub dt() Dim dt, dt1, dt2 With Sheets(1) Range("j4") = Range("j6") Set dt = Range("j4") Set dt1 = .Range("j6") Set dt2 = .Range("k6") .Range("j6") = Date If dt1 = "" Then Exit Sub Else dt2 = Format(DateAdd("d", 1, dt1), "d") - Format(DateAdd("d", 1, dt), "d") .Range("k6") = Val(.Range("k6")) + dt2 Exit Sub End If End With End Sub test1.xlsm

هههههههه تصدق راجعته فى مثالك وشفتها ولكن ما انتبهت لها فى المثال الاساسى الا بعدما اشرت اليها 😀 جميله اخى واستاذى محمد وتسلم ايدك وراسك 🌹 نعم اخى العزيز ولكن بعد توضيح اخى العزيز محمد الحلوانى فهو قام باضافه الارقام للقائمه بالجدول لانها فى الاساس لم تكن موجوده وقام باستخدام التمب فار (وليس فار😀) والفلتره عليه بارك الله فيكم وجزاكم الله خيرا

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

فيديوووووو جديددددد كيفية فصل بيانات عمود إلى عدة أعمدة باي محدد بالبوركويري في الفيديو دة هانتعلم ازاي نفصل بيانات عمود إلى اعمدة بواسطة اي محدد زي النجمة والكوما والاسلاش وسامحوني بكتب بالعربي وكمان هانعملها اتوماتيك يعني لو البيانات في اكثر من محدد مختلف هايتم التعامل معهم بحرفية جميلة وشقية https://youtu.be/0-bYhqLbf6E

وعليكم السلام-فقط استخدم هذه المعادلة وشكراً =SUMIF(البيانات!$A$3:$A$140,$A2,البيانات!$D$3:$D$140) العملاء.xlsm

السلام عليكم ورحمة الله وبركاته أرجو أن تقبلوا بي بين أعضاء أسرتكم وفقني الله وإياكم لـ كلّ خير

سؤال جميل من مهندسنا العزيز ولكن للاجابه عليه فهذا يحتاج صائد الخبراء معلمنا العزيز @jjafferr جزاه الله خيرا اما بالنسبه لى فالخبير عندى هو من يساعد اخوانه ويبحث هنا وهناك لايصال المعلومات لهم ابتغاء مرضاه الله تقبلوا تحياتى

هو بينقط علينا شوية شوية 😄

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

الفكرة عامة ويمكن تطبيقها حتى على تطبيقات الاندرويد , الايقونات واحدة على جميع المنصات ولكم مثله

تشرفت بمرورك استاذنا

ماشاء الله عليك مميز

موضوع آخر قد يعجبك

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

رائع جدا ومفيد جدا بكتابة الدوال جزاك الله خيرا

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

الف مبروك والي الأمام دائما بإذن الله

الف مبروك اخوي وتستاهل اكثر اعانك الله ووفقك

الف مبروك اخى @ناقل واعانك الله ع مساعده اخوانك دائما ان شاء الله 💐 وعقبال باقى الاخوان كلكم تستاهلون كل خير بما تقدمونه من مساعدات لاخوانكم فجزاكم الله خيرا بالتوفيق

الف مبروك اخى الكريم

مبارك عليك أخي ناقل @ناقل .. 😊 وسام تستحقه عن جدارة 👍🏼😉 وفقك الله في الدارين وزادك الله من واسع علمه 🌹🙂

وعلشان اخوي ناقل يعرف محل الشباب من الاعراب 🙂 جعفر

اخي مهند محسن شكرا لأهتمامك هذه الطريقة التي اشرت اليها تعتمد علي تنفيذ كود بالاكسس ولتنفيذ الكود يشترط ان يكون علي احد المستويين : 1 - نمكين 2 - منخفض اما اذا كان مستوي امان الماكرو علي : 4 - مرتفع جدا لن يعمل الكود نهائيا اما طريقتي تتبع نفس الفكر ولكن من خارج الاكسس او الاكسيل شكرا لك مرة اخري

ما انا بعرف الصعايدة كلامهم كبير ومبيخش المية ربي يحفظ مصر.. واهل مصر يا غوالي امتنا

تعجبني هذه البساطة ، ناقل وبس 😎

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

مشاركة مع أخي واستاذي @احمد الفلاحجي جزاه الله خيرا فكرة خارج الصندوق قليلا - الفلترة من داخل الاستعلام مباشرة تصفية.accdb

ارجوا ان تقبلوا تحياتي في اول مشاركة لي علي المنتدي العظيم ده فيه حاجات كتير جدا جدا عايز انزلها بس مش عارف ازاي اقدر انزل فيديو شرح لو حد يقدر يحط لي لينكات شرح هكون شاكر لان فيه طريقة انا بشتغل بيها وحابب اشاركها معاكم بس النهاردة حابب اشارك معاكم الكود بتاعي الي من خلاله بقدر انشئ اي عدد من الفولدرات وده بينفعني جدا في شغلي هتاخد الكود تحطه في ميديول جديد و في الشييت تحت العمود A من رقم 1 الي اي رقم انت عايزة يعني 1 ,2 ,3 ........10 وتعمل عليهم سليكت وبعد كدة ctrl+f11 وتدوس رن للكود هتلاقي الفولدرات كلها جاهزة للاستخدام شكرا جدا علي وقتكم وانتظروني في دورة بأسم "التحكم الكامل بالكمبيوتر من خلال الاكسيل "انا مجهزها يوتيوب بس هحاول اصيغها شرح علشان اقدر انزلها هنا بدون مشاكل ربنا يوفقكم جميعا Sub MakeFolders() Dim Rng As Range Dim maxRows, maxCols, r, c As Integer Set Rng = Selection maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count For c = 1 To maxCols r = 1 Do While r <= maxRows If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) On Error Resume Next End If r = r + 1 Loop Next c End Sub

اهلا وسهلا بك أخي الكريم مرحبا بك بيننا و نرجو ان تفيد وتستفيد

وهذه تجربتي مع أخي المهندس قاسم @Eng.Qassim ومستندا على ملفه 🙂 طبعا سوف نحتاج لجدول خاص بقائمة الأسماء فيه عمودين 1 - الاسم أو القبيلة(اسم العائلة) و 2- النوع وهو حقل رقمي أن كان اسم فالنوع 1 وإن كانت قبيلة فالنوع 2 نحتاجه للفصل بين الأسماء . بعدها قمت بتطوير دالة تقوم بفحص كلمات الفقرة كلمة كلمة وتقارنها بالأسماء الموجودة في الجدول ، فإن عثرت على الاسم في الجدول تختزله من الفقرة وتضيفه إلى المصفوفة ثم تنتقل للكلمة التالية وهكذا .. 🙂 وهذه هي الدالة : Public Function LoopThroughText(TXT As String) As String Dim LookInHere As String Dim Counter As Integer Dim SplitCatcher As Variant Dim Finaltxt As String LookInHere = TXT SplitCatcher = Split(LookInHere, " ") For Counter = 0 To UBound(SplitCatcher) If SplitCatcher(Counter) = DLookup("[PerName]", "[NamesT]", "[PerName] Like '*" & SplitCatcher(Counter) & "*'") Then If DLookup("[Type]", "[NamesT]", "[PerName] Like '*" & SplitCatcher(Counter) & "*'") = 1 Then Finaltxt = Finaltxt & " " & SplitCatcher(Counter) Else Finaltxt = Finaltxt & " " & SplitCatcher(Counter) & "،" End If End If Next LoopThroughText = Finaltxt End Function بعدها تنادي على الدالة في استعلام أو نموذج كما تشاء هكذا : LoopThroughText(TXT) AAA.accdb

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

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

السلام عليكم، أخي عمر تم الدمج

وهي الطريقة التي استخدمها في اعمالي وحدة نمطية وكود للربط داخل النموذج انسخ الكود التالي والصقه في وحدة نمطية عامة Public Function CheckLinks(ByVal strDBPassword As String) As Boolean On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.Name, 6)) <> "COMPAS" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then If Len(strNewMDB) = 0 Then Call MsgBox("مطلوب قم بتحديده واختياره (اسم قاعدة الجداول لديك) ملف البيانات", vbCritical) Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .InitialFileName = CurrentDBFolder() .Filters.ADD "Access Database File (*.mdb)", "*.mdb", 1 .TITLE = "Select Back-End Data File" .ButtonName = "Link Tables" If .Show = False Then Exit Function Else strNewMDB = .SelectedItems(1) End If End With End If If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink End If End If Next tdf CheckLinks = True CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume CheckLinksDone End Function Public Function CurrentDBFolder() As String Dim strPath As String strPath = CurrentDb.Name Do While Right$(strPath, 1) <> "\" strPath = Left$(strPath, Len(strPath) - 1) Loop CurrentDBFolder = strPath End Function ثم الصق الكود التالي في حدث التحميل لنموذج البداية On Error Resume Next If CheckLinks("") = False Then Call Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.Count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' وفي المثال تطبيق للمقال ملحوظة : اذا لم يعمل المثال على الوجه الأكمل انظر في المكتبات link_be.rar

السلام عليكم ورحمة الله وبركاته الان الاصدار الثانى من برنامج (أرشفة الخطابات وادارة الوثائق - الارشفة الالكترونية) مميزات البرنامج - تسجيل جميع الخطابات (وارد ــ صادر ) وربط كل معاملة بالمستخدم الذى ادخالها - إدراج المرفقات وربطها بالمعاملة سواء (من الكمبيوتر او من الاسكنر مباشرة) بعدد لانهائي من المرفقات وبجميع انواع الصيغ العالمية مثل PDF - XPS ....الخ - تصنيف الوثائق بعدد من التصنيفات (خطاب - نشرة/ تعميم - عقد - ايميال - برقية ...الخ) يمكنك إضافة اى تصنيف جديد - لوحة تحكم فى البرنامج (مثل / ضبط خصائص النسخة الاحتياطية - بيانات المؤسسة التى يعمل بها البرنامج - وشعار المؤسسة - تحديد مسار حفظ المرفقات ... الخ) - تقارير ذكية تناسب طبيعة عمل اى مؤسسة - البرنامج يعمل بالتاريخ الهجرى والميلادى - نظام صلاحيات للمستخدمين للتحكم بكل شئ فى البرنامج - البرنامج يعمل على شبكة محلية داخلية ويمكن عمل اكثر من مستخدم فى نفس الوقت (يعمل على اكثر من جهاز) كل هذا واكثر يمكنك معاينته بنفسك من خلال النسخة التجريبية فى الرابط التالي https://drive.google.com/open?id=0ByK3PmWwl-ciUnZFelJLOUpmcnc للتواصل على الايميالات التالية soft.sample2014@gmail.com soft.drive.eg@gmail.com او على الواتساب فى اى وقت على الرقم التالى 00201018156170 اسم المستخدم : user كلمة المرور : 1234 صور من البرنامج

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

هذا البرنامج المطلوب عليه التعديل db22.rar