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

السلام عليكم ورحمة الله باستعمال أعمدة مساعدة في شيت Data تم عمل المطلوب في شيت April أرجو أن يفي الغرض... بن علية حاجي تقسيم المبيعات.xlsx

الان يعمل 32 اصدار 2019

اتفضل db4_5.mdb

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

Public Function numbr(myData) myData = Replace(myData, "1", "يوم") myData = Replace(myData, "2", "يومان") myData = Replace(myData, "3", "ثلاثة أيام") myData = Replace(myData, "4", "أربعة أيام") myData = Replace(myData, "5", "خمسة أيام") myData = Replace(myData, "6", "ستة أيام") myData = Replace(myData, "7", "سبعة أيام") myData = Replace(myData, "8", "ثمانية أيام") myData = Replace(myData, "9", "تسع أيام") myData = Replace(myData, "9", "عشرة أيام") numbr = myData End Function

اتفضل 25.accdb

تفضل Purchases and sales2019salloum.rar تفضل Purchases and sales2019salloum.rar تفضل Purchases and sales2019salloum.rar

هات مرفق

تفضل Lab 2019N.rar

الرمز % هو اختصار لعبارة As Integer

نظامي 64 ومعى ذلك تظهر لي الرسالة التالية

السلام عليكم ربما قمت بتغيير الرقم 1000 في نطاق واحد من المعادلات لهذا ظهر الخلل معك لأن من شروط الدالة SUMPRODUCT (أو SOMMEPROD) أن تكون النطاقات متساوية الطول... راجع الملف المرفق حيث تم تمديد النطاقات في المعادلات إلى 10000... بن علية حاجي تقسيم المبيعات.xlsx

للأسف كما ذكر الأخ خالد الإصدار 64

للاسف لم تعمل اصدارها 64 والاوفيس لدي 32

فقط حدد لي اي ورقة هي المصدر للمعلومات واي ورقة هي الهدف (انا لا افهم ما تقصده) اذ كانت ورقة المبيعات هي الهدف فما الفائدة من تكرار اسماء الأصناف فيها 3 مرات الصنف 1 / 5 مرات الصنف 2 الخ.... يكفي ان تدرج كل صنف من ورقة الاصناف مرة واحدة في ورقة المبيعات وفي حال ادراج صتف جديد تتم اضافته في ورقة المبيعات

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

اتفضل التعديل المطلوب نسخة من الدور الثانى.xlsx

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

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

ما قمت بعمله يؤثر فعلاً جرب ان تمسح الصنف 10 مثلا من صفحة الاصناف وقم بتنفيذ الماكرو سترى ان الصنف 10 الذي حذفته ما زال في الجدول يصفحة المبيعات

لا الحل فى الموديول تجده تحت العنوان ' الحالات الشاذة وبما انك فهمت الفكرة انا دمجت الاستعلامين وخلتهم واحد EngArb (5).accdb

ولك بمثل مادعوت لى وزيادة

اللهم بارك لك فى رزقك استاذى الحبيب استاذ سليم وجعله فى ميزان حسناتك

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد (مع بعض الزيادة).... بن علية حاجي معادلة الترقيم والتسلسل بدون تكرار.xlsx

---------------------- الطامع_فى_الفردوس_الأعلى.zip

هذا العمل يعتبر تقريبا الى انت ماتحتاجه نسخة من الدور الثانى.xlsx

Sub طابعة() ' ' طابعة Macro ' Macro recorded 31/03/2014 by ashlolo 'ترتيب عزمود E ابجديا Columns("E:E").Select Range("E5").Activate Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal 'SAVE workbook ActiveWorkbook.Save 'حفظ مدى معين Range("A5:J22").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'فتح ملف موجود على الجهاز Range("H23").Select Workbooks.Open Filename:="C:\Users\ashlolo\Documents\صفثان.xls" 'اعداد الصفحة With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$J$983" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.393700787401575) .RightMargin = Application.InchesToPoints(0.393700787401575) .TopMargin = Application.InchesToPoints(0.393700787401575) .BottomMargin = Application.InchesToPoints(0.393700787401575) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed End With End Sub Sub Macro2() ' Macro2 Macro ' Macro recorded 31/03/2014 by ashlolo 'جعل الناففذة ملء الشاشة Application.DisplayFullScreen = True 'اغلاق شاشة ملء الشاشة Application.DisplayFullScreen = False 'البحث عن نص ما داخل الشاشة Cells.Find(What:="enter", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _ :=True, SearchFormat:=False).Activate 'قص بيانات معينة لمدى Range("B1:F6").Select Selection.Cut 'لصق بيانات Range("I15").Select ActiveSheet.Paste 'نسخ بيانات ولصقها Selection.Copy Range("I1").Select ActiveSheet.Paste Application.CutCopyMode = False 'اظهار الدوائر الحمراء Range("H3:H52").Select ActiveWindow.SmallScroll Down:=-23 Range("H3:H52,J3,J3:J52").Select Range("J3").Activate Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _ Formula1:="15" Selection.FormatConditions(1).Interior.ColorIndex = 22 'مسح بيانات لمدى بيانات Cells.Select Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _ :=True Range("G3:J6").Select Selection.ClearContents 'اظهار المربع الحوارى لراس وتذييل الصفحة With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$J$983" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "&P" .RightHeader = "" .LeftFooter = "الحمد لله" .CenterFooter = "" .RightFooter = "الله اكبر" .LeftMargin = Application.InchesToPoints(0.393700787401575) .RightMargin = Application.InchesToPoints(0.393700787401575) .TopMargin = Application.InchesToPoints(0.393700787401575) .BottomMargin = Application.InchesToPoints(0.393700787401575) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed End With 'لحذف الفواصل بين الصفحات ActiveSheet.VPageBreaks(1).Delete 'لوضع كلمة سر للبرنامج Sheets("اختصارات").Select ActiveWorkbook.Password = "ashlolo111" 'ترتيب النوافذ راسيا Range("B2:I13").Select Windows.Arrange ArrangeStyle:=xlTiled 'ترتيب النوافذ افقيا ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal Windows.Arrange ArrangeStyle:=xlHorizontal 'لجعل نافذة واحدة هى النشطة ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlTiled 'لجعل اتجاة الورقة من اليسار لليمين ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal ActiveSheet.DisplayRightToLeft = False 'لجعل اتجاة الورقة من اليمين لليسار ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal ActiveSheet.DisplayRightToLeft = True 'لوضع حماية لورقة العمل ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'لفك حماية ورقة العمل ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal ActiveSheet.Unprotect 'اخفاء شريط الصيغة اسم البرنامج فى شريط المهام ActiveWindow.WindowState = xlNormal ActiveWindow.WindowState = xlNormal With Application .DisplayFormulaBar = False .ShowWindowsInTaskbar = False End With 'اخفاء شريط اوراق العمل ActiveWindow.DisplayWorkbookTabs = False 'اخفاء شريط القوائم Range("G7").Select Application.CommandBars("Worksheet Menu Bar").Visible = False 'اظهار جميع الاعمدةالمخفية Cells.Select Selection.EntireColumn.Hidden = False 'بحث عن كلمة Enter داخل ورقة العمل Range("L19").Select Cells.Find(What:="enter", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ True, SearchFormat:=False).Activate 'مسح البيانات لمدى معين Range("G15:J21").Select Selection.ClearContents 'اظهار شريط الصيغة ActiveWindow.View = xlNormalView Application.DisplayFormulaBar = True 'اضافة مشغل الموسيقى ActiveSheet.OLEObjects.Add(ClassType:="WMPlayer.OCX.7", Link:=False, _ DisplayAsIcon:=False).Select ActiveSheet.Shapes("WindowsMediaPlayer1").Select 'حذف مشغل الموسيقى ActiveSheet.Shapes("WindowsMediaPlayer1").Select Selection.Delete 'تكبير الشاشة ActiveWindow.WindowState = xlMaximized 'تصغير الشاشة Application.WindowState = xlMinimized 'استعادة الشاشة Application.WindowState = xlNormal ' End Sub Sub Macro3() ' ' Macro3 Macro ' Macro recorded 31/03/2014 by ashlolo ' ' للخلية لوضع خليفة لون With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With 'لازالة خليفة اللون على الخلية Range("O20").Select Selection.Interior.ColorIndex = xlNone 'لوضع حدود للخلايا Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With 'لدمج خليتين Range("N5:O5").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge ' End Sub 'لتوسيط النص فى الخلايا و جعل اتجاة الكتابة من اليمين لليسار Cells.Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlRTL .MergeCells = False End With 'لترتيب البيانات تصاعديا من اعلى لاسفل بناء على عمود معين وهو L Range("L2:O17").Select Selection.Sort Key1:=Range("L2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal 'اظهار شريط الاوراق ActiveWindow.DisplayWorkbookTabs = True 'زوم للشاشة ActiveWindow.Zoom = 200 'زوم للشاشة ActiveWindow.Zoom = 100 'جعل محتوى الخلية بزاوية 45 Range("P7").Select ActiveCell.FormulaR1C1 = "" Range("O8").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 45 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlRTL .MergeCells = False End With 'جعل الخلية الخط غامض Selection.Font.Bold = True 'الخط عريض وحجمه 12 Range("N9:P13").Select Selection.Font.Bold = True With Selection.Font .Name = "Arial" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With 'لنسخ تنسيق نص ما وتنسيقه على نص ىخر Range("I17").Select Selection.Copy Range("O11:P15").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False 'تعبئة تلقائية Range("M13").Select Selection.AutoFilter Range("B2:N11").Select Selection.AutoFilter Selection.AutoFilter Field:=13, Criteria1:="<15", Operator:=xlAnd ActiveSheet.ShowAllData Selection.AutoFilter Range("E2:L9").Select Selection.AutoFilter Selection.AutoFilter Field:=8, Criteria1:="<15", Operator:=xlAnd Selection.AutoFilter 'انشاء ارتباط تشعبى لاكثر من صفحة ActiveSheet.Shapes("AutoShape 76").Select Selection.ShapeRange.Item(1).Hyperlink.SubAddress = "Sheet2!A1" Selection.ShapeRange.Item(1).Hyperlink.SubAddress = "Sheet4!A1" Sub Macro4() ' ' Macro5 Macro ' Macro recorded 31/03/2014 by ashlolo ' 'مسح بيانات Range("G14:L20").Select Selection.ClearContents ' Range("G2").Select ActiveSheet.Paste End Sub

انت رائع اخى الفاضل سلمت ايديك يارب متشكر جداااااا

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل ( تجارب وفوائد ) :: دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط وافكار : اليوم اقدم اليكم منفعة لا غنى عنها (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

البرنامج بالاصل كنت مصممه على 32 الان عدلت عليه بعض الامور على 46 والغريب بالامر ارسلته الى صديق عنده اكسس 32 واشتغل عنده تمام