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

السلام عليكم 🙂 عند تنصيب الاوفيس 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 الله يبارك فيك أخي أحمد .. العين ما تعلى على الحاجب زي ما يقولوا في المثل . أنت أستاذنا ومعلمنا .. ما شاء الله عليك ..

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

لا ولكن الامر يعتمد على قوة جهازك و ايضا الامان في 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 على الجهاز الذى اعمل عليه ولكن مطنشين ربما قلق من الدعم الرئيسى وفحص الانظمه ربما سوف اقوم بتجربته مره اخرى بالتوفيق اساتذتى

جرب هذه المعادلة =ROUNDUP(B8;0)

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

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

استبدل هذا السطر R.Cells(Ro, 9) = "Global Sum" بهذا R.Cells(Ro, 9).Formula = _ "=SUM(C" & Ro & ":G" & Ro & ")"

شكرا اخي الفاضل هدية بسيطة تقديرا لمجهودك

غير هذه السطور في الكود 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 + 1, 3).Resize(, 5).Formula = _ "=Sum(C$4:C$" & Ro - 2 & ")" R.Cells(4, 9).Resize(Ro - 2).Formula = _ "=IF(COUNTA($C4:$G4)>0,SUM($C4:$G4),"""")"

لم ار الأعجاب على اخر مشاركة حتى الآن

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

الباركود رمز مميز للسلع يسهل عملية ادخال الاصناف وبيعها كما يمكن معرفة البلد المنتج للسلعة بكل سهول ويمكن وضع حقل في تفاصيل الاصناف لبلد الانتاج مثلا 10045886217 علبة 10045886248 كرتون 100 يدل على ان هذا المنتج من الولايات المتحدة الارقام في المنتصف تدل على الشركة المنتجة للسلعة الارقام الاخيرة تدل على المنتج رمز العلبة داخل الكرتون 17 رقم الكارتون 48 واحيان يكون الكرتون يحتوي على مغلفات واظرف 6294003571405 ظرف 6294003571419 مغلف 6294003571218 كرتون والرمز الثلاثي 629 يدل على ان المنتج الإمارات العربية المتحدة الفكرة في ملف الفيديو ان نستخدم عند ترصيد الاصناف وعند البيع رمز الوحدة الاصغر سواء استخدمنا الباركود لقراءة رمز كرتون او مغلف او ظرف ويتم ذلك من الربط بين الكرتون وما يحتوية والرابط يكون الرمز المتشابه والرمز المختلف ورمز مخفي من رقم واحد يختلف في الحالة كرتون عن مغلف او ظرف والعملية تتم بشكل الى بمجرد تمرير السلعة على قارئ الباركود وكل عام وانت بخير تقبل منا ومنك صالح الاعمال اخي واستاذي الفاضل د. محمد حلبي

العفو اخى @ازهر عبد العزيز هذه محاوله على قدر فهمى تقبل تحياتى وبالتوفيق New Microsoft Access Database (3).accdb

هلا اخي هل هذا ماتريد New Microsoft Access Database.accdb