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

السلام عليكم 🙂 عند تنصيب الاوفيس 2019 و 365 ، فإن التنصيب الافتراضي هو نواة 64 بت ، بينما سابقا كانت مايكروسوفت توصي بتنصيب الاوفيس نواة 32 بت (بغض النظر عن نظام الوندوز) : لذا فقد آن الأوان ان تكون برامجنا تعمل على النواتين 32/64 بت 🙂 اسهل طريقة لتنصيب اكثر من نسخة من البرامج ، هو استخدام الكمبيوتر الافتراضي 🙂 رجاء مشاركتنا تجربتك في هذا المجال 🙂 جعفر

ها هي في النموذج ( مربوط باستعلامك الذي أنشأته الأخير ) يعطيك بدون تكرار ، وآخر تاريخ صيانة للمركبة . إن شاء الله يكون طلبك .. مع الشكر والتقدير للأخ أحمد الفلاحجي . ‏‏Vibrators.accdb

السلام عليكم منذ سنوات عديدة لم استخدم جهاز افتراضي ، منذ كنت احاول تجربة اللينكس في اول اصداراته ليس لدي ما اضيفه ، و لكن و بما اننا نتحدث عن ويندوز و اوفيس ، لما لا نستخدم تطبيق الجهاز الافتراضي للمطورين من مايكروسوفت https://developer.microsoft.com/en-us/windows/downloads/virtual-machines/ كما انه فى اصدارات قديمة للاوفيس ، كان تحميل نسختان مختلفتان من الاوفيس (بنفس النواة) يمكن عمله على نفس الويندوز ، و كنا نضطر فى بعض الاحيان الي التحميل على قرصين مختلفين لتعملا سويا ،و صراحة لاادري ان كان الامر نفسه بصلح عند اختلاف النواة، فالمفترض ان يرفض النظام تحميل اوفيس بنواة مختلفة عن نواة الويندوز. فصراحة لم يحدث ان جربت تحميل اوفيس لنواتين مختلفتين معا ، فقط اصدارات مختلفة، و أفترض ان كل اصدار يحب ان يكون على نفس اصدار الويندوز المناظر ليعمل بكفاءة لذا فاستخدام جهاز افتراضي مطلوب فى هذه الحالة

تعديل على مثالك الاخير لاظهار اخر السجلات بناء على اخر تاريخ Vibrators(1).accdb

السلام عليكم مشاركه مع اخوانى الافاضل @فايز.. و @أمير2008 جزاهم الله خيرا ممكن ترفق ملف وورد به ناتج الاستعلام المطلوب من خلال البيانات المرفقه بالمثال الذى ارفقته باول مشاركه وياريت توضحلى اكثر الجداول المطلوب منها البيانات مع اسماء الحقول زى جدول tblProType وبه اسم الاجراء - ادامة اذكر باقى الجداول مع اسماء الحقول المطلوبه من كل جدول بالاضافه لملف الوورد وبه ناتج الاستعلام الفعلى لان الناتج الفعلى مش هيكون 13 بالتوفيق

السلام عليكم ورحمة الله وبركاته وتقبل الله طاعاتكم تفضل Duplicate-waz.mdb

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

بالنسبة للصق (يمكنك الاختيار من خلال الـــ Input Box عدد الصفوف في كل مرة والافتراضي هو 20 لذلك اذا اردت اكثر أو اقل حدد بنفسك واضغط Ok) تم ادراج شيت جديد يحتوي على الديباجة (الشيت مخفية لأن لا عمل لها سوى الاحتفاظ بالديباجة) لأ انه في حال مسح المعلومات لادراج رقم جديد للصفوف تم تمسح ألديباجة الملف الجديد مرفق (بردو الصفحة Salim من هذا الملف لأني لا اريد ان أغير شيئاً بالشيت الأولى حفاظاَ على محتوياتها) الزر Del Dibaja هو لارجاع البيانات الأصلية كما كانت بدون ديباجات الماكرو الجديد Sub salim_rows() Dim t%, lr%, x%, z%, a% Dim my_rg As Range, k% Dim In_box If ActiveSheet.Name <> "Salim" Then GoTo End_Me Application.ScreenUpdating = False del_Empty_rows In_box = Application.InputBox("How Many Rows", , 20) a = In_box - 1 'number of rows for every group z = 3 'number of rows to be insert every time x = 7 'first row to begine If a <= 0 Then Exit Sub t = x + a + 1 If z > 5 Then z = 5 lr = Cells(Rows.Count, 2).End(3).Row On Error Resume Next Set my_rg = Range("B" & x & ":B" & lr).SpecialCells(4) my_rg.EntireRow.Delete On Error GoTo 0 Do Until Cells(t, "B") = "" Rows(t).Resize(z).Insert Sheets("sheet1").Range("My_DEB").Copy _ Cells(t, 1) t = t + a + z + 1 Loop End_Me: Application.ScreenUpdating = True End Sub '++++++++++++++++++++++++++++ Sub del_Empty_rows() On Error Resume Next Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Range("Ba7:Ba" & lr).SpecialCells(4).EntireRow.Delete On Error GoTo 0 End Sub الملف من جديد Najehoun.xlsm_1.xlsm

وعليكم السلام أخى @ازهر عبد العزيز هل هذا ما تريد New Microsoft Access Database (5) - Copy.accdb

هلا اخي هذه محاولة Aziz.accdb

من المميزات الجميلة في ويندوز 10 نسخة البرو امكانية تشغيل انظمة افتراضية اخرى بدون الحاجة الى برامج اضافية حيث ان هذة الميزة مضمنه وتحتاج فقط الى تفعيل في نافذة تشغيل run ضع الامر التالي OptionalFeatures.exe انظر الصور المرفقة وعيش حياتك ياعم احمد🌹

جزاك الله خير وبارك الله فيك ونفع بعلمك

شكر الله لك أخي @kha9009lid أحاول أن أجتهد في البحث عن الجواب .. أبحث في العم google عسى ان أجد جوابا ثم أقدمه للسائل . ليست عبقرية مني .. أشكرك مرة ثانية . شكر الله لك أخي @kanory وجزاك خيرا . قدر ما يستطيع الانسان ينفع إخوانه فليفعل . الله يتقبل منا ومنكم ..

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

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

نعم اخي احمد هذا اعلان مايكرو بخصوص ويندوز 7 اعتبارًا من 14 يناير 2020، سيستمر جهازك الذي يعمل بنظام التشغيل Windows 7 في العمل، ولكن لن تقوم Microsoft بتقديم الخدمات التالية:: الدعم الفني لأي مشاكل تحديثات البرنامج تحديثات الأمان أو إصلاحه تجربتي تقريبا جربت جميع انظمة مايكرو رحلة طويلة من عام 1982 من اصدار دوس3 الى دوس5 ثم ويندوز1 و 3 و3.1 و3.11 و95 و98 كلا الاصدارين وملينيوم و2000 و2003 ستاندر اديشن واكس بي وفيستا و7 و8 و8.1 واخيرا 10 لم اجد افضل من 10 لاستقرار النظام والوضع الليلي ووضع الطيران وكذلك 7 للتوافق مع الاجهزة والبرامج القديمة ولكن ثغراته كثيرة ولم اجد اسوء من فيستا ثقيل ومشاكلة لا تنتهي اضافة رائعة استاذنا الفاضل نعم استاذي لا يمكن تحميل اصداري اوفيس مختلفتي النواة وهذا مذكور في وثائق مايكرو هذا النص من موقع مايكرو احرص على أن تكون جميع إصدارات Office التي تريد تثبيتها من الإصدار 32 بت أو 64 بت. لا يمكنك تثبيت مزيج من الإصدارين. اطلع على الخطأ "تعذر تثبيت Office‏ (64 بت أو 32 بت‏)" عند محاولة التثبيت.

ربي يسعدك أخي @أحمد الفلاحجى

من تجربتي ويندوز 10 احيانا عند تركيب ويندوز 10 اخر يحصل مشكلة عند الاقلاع المشكلة احيانا تختفي شاشة اختيار النظام عند بدء التشغيل والمشكلة الاكبر عندما يرفض الجهاز الاقلاع يمكن حل المشكلة باستخدام EasyBCD تحميل البرنامج مع اخلاء مسئوليتي لكون البرنامج قد يعطل عمل النظام لذا وجدت ان الافضل تحميل ويندوز 7 64 بت ثم تحميل ويندوز 10 64 بت ولكون لدي وفرة في محركات الاقراص الفعلية فانني اضع لكل نظام تشغيل قرص صلب مستقل واحد لويندوز 10 والثاني لويندوز 7 والثالث ل Ubuntu احتياجي لعدة انظمة ليس بسبب اوفيس وانما لوجود مبرمجة ملتي برجرامر وسيزون انترفيس لا يتوافقون مع ويندوز 10

اخي الكريم في حال حصلت على الاجابة ياليت تضغط افضل اجابة حتى يعرف الاخوة في المنتدى أن الاجابة على سؤالك تمت .

وهذا بالضبط اللي عملته انا في البداية ، حيث من المعروف ان الوندوز يسمح بتنصيب اكثر من وندوز على الجهاز الواحد ، ولكن من تجربتي لما نصبت الوندوز 10 نواة 64 بت ثم نصبت الوندوز 32 بت ، صار لي مجموعة من المشاكل لاحقا ، فكان الكمبيوتر يشتغل تمام معظم الاحيان ، ولكن بعض الاوقات ما يشتغل ، وبالتالي اضطررت ان انصب نواة واحدة فقط !! ما ادري ، يمكن الوندوز 10 في اول ايامه كان فيه مشاكل !! جعفر

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

هلا اخي جرب المرفق __Duplicate -1.mdb

هلا اخي جرب المرفق New_Microsoft_Access_Database.accdb

تم معالجة الأمر الشيت "شيت تبيض الدور الأول" يمكن اخفائها اذا اردت أم يمكن حذفها نهائياً لكن Sheet1 لا يمكن الاستغناء عنها لأنها تحتفظ بالديباجة اذا زاد او نقص عدد الطلاب يمكن ازالة الديباجات بواسطة الماكرو المخصص لهذه الغاية (الزر Del Dibaja ) تم التعديل على البيانات (دون صفوف فارغة) و من ثم تقسيم الديباجات على الصفحة حسب الرقم الذي تريده من الــ Input Box الكود الجديد Sub salim_rows() Dim t%, lr%, x%, z%, a% Dim my_rg As Range, k% Dim In_box, ro% If ActiveSheet.Name <> "Salim" Then GoTo End_Me Application.ScreenUpdating = False del_Empty_rows In_box = Application.InputBox("How Many Rows", , 20) a = In_box - 1 'number of rows for every group z = 3 'number of rows to be insert every time x = 7 'first row to begine If a <= 0 Then Exit Sub t = x + a + 1 If z > 5 Then z = 5 lr = Cells(Rows.Count, 2).End(3).Row On Error Resume Next On Error GoTo 0 Do Until Cells(t, "B") = "" Rows(t).Resize(z).Insert Sheets("sheet1").Range("My_DEB").Copy _ Cells(t, 1) t = t + a + z + 1 Loop ro = ActiveSheet.Cells(Rows.Count, 2).End(3).Row Rows(ro + 1).Resize(z).Insert Sheets("sheet1").Range("My_DEB").Copy _ Cells(ro + 1, 1) End_Me: Application.ScreenUpdating = True End Sub '++++++++++++++++++++++++++++ Sub del_Empty_rows() On Error Resume Next Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Range("B" & lr + 1).Resize(20).EntireRow.Delete Range("Ba7:Ba" & lr).SpecialCells(4).EntireRow.Delete On Error GoTo 0 End Sub الملف من جديد Najehoun.xlsm_2.xlsm

لعل الأساتذة @jjafferr @أحمد الفلاحجى @Gamal.Saad يفيدوننا إن شاء الله .. حاولت لكن ما نجحت .. للأسف رسبت في الامتحان .

حرب هذا الكود ( DIBAJA هي النطاق الذي يحتوي على الديباجة من B1 الى AZ4 ) كان الأفضل عدم ادراج علة العلل بالنسبة للأكواد والمعادلات وهي الخلايا المدمجة صفحة salim من هذا الملف Sub salim_rows() Dim t%, lr%, x%, z%, a% Dim my_rg As Range, k% Dim In_box If ActiveSheet.Name <> "Salim" Then GoTo End_Me Application.ScreenUpdating = False del_Empty_rows In_box = Application.InputBox("How Many Rows", , 20) a = In_box - 1 'number of rows for every group z = 3 'number of rows to be insert every time x = 7 'first row to begine If a <= 0 Then Exit Sub t = x + a + 1 If z > 5 Then z = 5 lr = Cells(Rows.Count, 2).End(3).Row On Error Resume Next Set my_rg = Range("B" & x & ":B" & lr).SpecialCells(4) my_rg.EntireRow.Delete On Error GoTo 0 Do Until Cells(t, "B") = "" Rows(t).Resize(z).Insert Range("DIBAJA").Copy _ Cells(t, 1) t = t + a + z + 1 Loop End_Me: Application.ScreenUpdating = True End Sub '++++++++++++++++++++++++++++ Sub del_Empty_rows() On Error Resume Next Dim lr%: lr = Cells(Rows.Count, 2).End(3).Row Range("Ba7:Ba" & lr).SpecialCells(4).EntireRow.Delete On Error GoTo 0 End Sub الملف مرفق Najehoun.xlsm

تم تحسين الكود قليلاً لتكون النتيجة اكثر فائدة Option Explicit Sub Trasfer_data_Special() Dim R As Worksheet, Act_sh As Worksheet Dim k%, col%, Ro% Dim Max_ro%, x%, y% Dim Bol As Boolean Dim ST_Dat As Date Dim End_Dat As Date Dim My_sum# Dim Mot$ Mot = "الاجمالى" Set R = Sheets("Report_Youmi") Ro = R.Cells(Rows.Count, 1).End(3).Row R.Range("C3").CurrentRegion.Resize(Ro - 1).ClearContents R.Cells(3, 9).Resize(Ro + 1).ClearContents R.Cells(Ro + 1, 9).Resize(2).ClearContents ST_Dat = Application.Min(R.Range("I2:J2")) End_Dat = Application.Max(R.Range("I2:J2")) For k = 3 To Ro Bol = Application.Evaluate _ ("ISREF('" & R.Range("A" & k) & "'!A1)") If Bol Then Set Act_sh = Sheets(R.Range("A" & k) & "") Max_ro = Act_sh.Cells(Rows.Count, 1).End(3).Row For y = 3 To 7 For x = 5 To Max_ro If CDate(Act_sh.Cells(x, 1)) >= ST_Dat And _ CDate(Act_sh.Cells(x, 1)) <= End_Dat And _ Act_sh.Cells(x, 2) <> Mot Then My_sum = My_sum + IIf(IsNumeric(Act_sh.Cells(x, y + 2)), _ Act_sh.Cells(x, y + 2), 0) End If Next x R.Cells(k, y).Value = My_sum: My_sum = 0 Next y End If Next k R.Cells(Ro + 1, 3).Resize(, 5).Formula = _ "=Sum(C$3:C$" & Ro - 2 & ")" R.Cells(3, 9).Resize(Ro - 1).Formula = _ "=IF(COUNTA($C3:$G3)>0,SUM($C3:$G3),"""")" R.Cells(Ro + 2, 9) = "Sum Of All" R.Range("A3:I" & Ro + 2).Value = _ R.Range("A3:I" & Ro + 2).Value End Sub الملف مرفق My_Repport_Final_1.xlsm

أعتذر منك أخي .. تفضل Vibrators11.accdb

انتبه ولا تورط نفسك 🙂 اذا قصدك ان تنصب الاكسس نواة 64 بت على كمبيوتر آخر ، بحيث ان كمبيوترك الاصل عليه الاكسس نواة 32 بت ، فنعم الرأي 🙂 اما انك تلغي نواة 32 بت ، فقد لا تستطيع تشغيل برامجك اصلا وتتورط بنواة 64 بت !! وانا اقترح ان تبدأ بعمل برنامج فيه جميع المكتبات التي تحتاج لها ، والتي تعمل على النواتين 32/64 بت ، بحيث تصل للمكتبة بسرعة وتعرف طريقة عملها 🙂 جعفر

نسخة 32 بت ستبقى تعمل وتدعم ولكن لن يكون هناك خيار الحصول على اصدار جديد من ويندوز 32 كما حصل عند الانتقال من ويندوز 3x الى 95 والذي كان يعمل على 32 ويدعم 16 بت وايضا الاصدارات الحالية ذات 64 تدعم برامج 32 بت صحيح ولكن اصدار نسخة 64 بت فقط حتى لو كان للاجهزة الجديدة سيدفع الشركات للاتجاة نحو 64 بت وسياتي يوم يكون مصير 32 مثل 16 وتغيير نصيحة مايكروا من التشجيع على استخدام 32 بت الى 64 بت مع توجهاتها لما بعد اصدار 2004 ليس من فراغ الحقيقة لا انصحك بتنزيله حاليا اخي احمد

هلا اخي لا ادري اذا هذا ينفع..لاحظ رقم 6 مكرر New Microsoft Access Database (5) - Copy.accdb

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

مشاركه مع اخوانى واساتذتى جزاهم الله خيرا اتفضل تعديل بسيط بالتوفيق Duplicate-waz.mdb

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

تفضل .. المايك معك

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

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

الحمد لله أولا وآخرا .. أما سؤالك فنحيله للخبراء أمثال الإخوة @أحمد الفلاحجى @kha9009lid @kanory الله يبارك فيك أخي أحمد .. العين ما تعلى على الحاجب زي ما يقولوا في المثل . أنت أستاذنا ومعلمنا .. ما شاء الله عليك ..

و لكن كما ذكرت لم اجربه ولا اعرف الكثير عنه https://www.microsoft.com/en-us/download/details.aspx?id=3702

استخدامك للعم قوقل تعتبر عبقرية ... غيرك لا يستطيع

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

شكرا جزيلا لكم اخواني الأعزاء وجزاكم الله خيرا على تفاعلكم مع الموضوع وردودكم الطيبة وجعل الله ذلك في موازين حسناتكم الحقيقية نعم هذا ما طلبته بالضبط والاستعلام شغال تمام ولله الحمد سؤال أخير وإن كان خارج الموضوع وهو هل يمكن الاستفادة من جملة السيكوال الموجودة في الاستعلام في برامج أخرى مثل الفيجوال بيسك أم أن الجملة تحتاج تعديل؟ شكرا لكم من القلب ❤️

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

تصحيح Option Explicit Sub Trasfer_data_Special() Dim R As Worksheet, Act_sh As Worksheet Dim k%, col%, Ro% Dim Max_ro%, x%, y% Dim Bol As Boolean Dim ST_Dat As Date Dim End_Dat As Date Dim My_sum# Dim Mot$ Mot = "الاجمالى" Set R = Sheets("Report_Youmi") Ro = R.Cells(Rows.Count, 1).End(3).Row R.Range("C3").CurrentRegion.Resize(Ro - 1).ClearContents R.Cells(3, 9).Resize(Ro - 2).ClearContents ST_Dat = Application.Min(R.Range("I2:J2")) End_Dat = Application.Max(R.Range("I2:J2")) For k = 3 To Ro - 2 Bol = Application.Evaluate _ ("ISREF('" & R.Range("A" & k) & "'!A1)") If Bol Then Set Act_sh = Sheets(R.Range("A" & k) & "") Max_ro = Act_sh.Cells(Rows.Count, 1).End(3).Row For y = 3 To 7 For x = 5 To Max_ro If CDate(Act_sh.Cells(x, 1)) >= ST_Dat And _ CDate(Act_sh.Cells(x, 1)) <= End_Dat And _ Act_sh.Cells(x, 2) <> Mot Then My_sum = My_sum + IIf(IsNumeric(Act_sh.Cells(x, y + 2)), _ Act_sh.Cells(x, y + 2), 0) End If Next x R.Cells(k, y).Value = IIf(My_sum = 0, "", My_sum): My_sum = 0 Next y End If Next k '+++++++++++++++++++++++++++++++++ R.Cells(Ro - 1, 3).Resize(, 5).Formula = _ "=if(COUNT(C$4:C$39)>0,SUM(C$4:C$39),"""")" R.Cells(Ro, 3).Resize(, 5).Formula = _ "=IF(COUNT(C$7:C$17)>0,SUM(C$7:C$17),"""")" R.Cells(4, 9).Resize(Ro - 3).Formula = _ "=IF(COUNT($C4:$G4)>0,SUM($C4:$G4),"""")" R.Range("A3:I" & Ro).Value = _ R.Range("A3:I" & Ro).Value End Sub

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

جزاك الله خيرا استاذ محمد اضافه رائعه وسوف ولكن هذه تخص ويندوز 10 هل يوجد ما يخص ويندوز 7 ؟ اعمل فعليا على اصدار 2003 و 2016 حاليا والحمد لله مفيش مشاكل رحله طويله ماشاء الله من قبل ولادتى بعام هههههههههههه شكلك بتجر رجلى لويندوز 10 اخى واستاذى خالد 😀 لم اعمل الا على اكس بى وويندوز 7 وويندوز 10 بالعمل اتعامل معه ولكن مش مريحنى زى ويندوز 7 وحتى مع تجربتى معه بالمنزل ووجدته يستهلك الانترنت بسبب التحديثات المستمره اتوماتك وقبل ان اعلم كيفيه ايقاف التحديث المستمر وسبب لى ارهاق كثيرا فالوصول لبعض الشاشات وتخصيصات الويندوز فلم استرح للعمل عليه لدرجه اننى بطلب من الدعم بالعمل تحميل ويندوز 7 على الجهاز الذى اعمل عليه ولكن مطنشين ربما قلق من الدعم الرئيسى وفحص الانظمه ربما سوف اقوم بتجربته مره اخرى بالتوفيق اساتذتى

السلام عليكم اخي الفاضل ABDELRAHMAN ALFAHOUM اسف علي التاخر في الرد ولكن انت تعرف ظروف رمضان كل عام والجميع بخير تم عمل اللازم اضيفت خانة اسمها (خصم من المخزن ) لتأكيد البيع يعني عندما يتم البيع ضع بها علامة صح سيتم الخصم واذا تراجع المشتري ازل علامة الصح يعود رصيد المخزن كما كان اي تعديلات انا في انتظارك Accounting system.rar

تسلم يا غالي والشكر موصول للأستاذ/ ابو تراب صاحب فكرة الحل منذ البداية وتكفينا دعواتك و سعادتك ما تم حله بالبرنامج من مشكلات

تحديث بتاريخ: 20-5-20 في الصفحة الرسمية لمايكروسوفت بتاريخ 8/3/2019 ، فإن مايكروسوفت الآن توصي بتنصيب الاوفيس نواة 64 بت ، وهي النواة التي يتم تنصيبها تلقائيا في الاوفيس 2019 والاوفيس 365. طبعا لا يمكن تنصيب الاوفيس نواة 64 بت ، إلا على الوندوز نواة 64 بت. شو فائدة هذه الرسالة لنا؟ اعتقد من الافضل ان نبدأ بتحويل برامجنا الى النواة 64 بت ، فقد يأتي اليوم الذي تُلغى في نواة 32 بت جعفر

انظر الاستعلام في المرفق .. لا أدري إن كان هو ما تقصد ووافنا بالنتيجة . Vibrators.accdb