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

السلام عليكم 🙂 عند تنصيب الاوفيس 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 بت ، بحيث تصل للمكتبة بسرعة وتعرف طريقة عملها 🙂 جعفر

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

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

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

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

تم معالجة الامر My_Repport_Updated.xlsm

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

وعليكم السلام -اجعل المعادلة هكذا =IFERROR(E12-E13,"") معادلة1.xlsx

يمكن تمثيل الخط الزمني للقيم بالجدولين مركز الخليج Chart.accdb

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

الشكر لله اخي واستاذي الفاضل محمد حلبي 🌹 كل عام وانت بخير اخي واستاذي الفاضل محمد سلامة 🌹

أبو غيث السلام عليكم راجع حضرتك الرابط التالي https://www.youtube.com/watch?v=j8FRs8L8PM0 ثم اعد كتابة التواريخ مره اخري بعد التنسيق او نسق العمود كما بالصورة المرفقة مثال على تواريخ هجرية.xlsx

شكرا اخوي امير 🙂 نعم هذا كان قصدي 🙂 جعفر

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

نعم استاذي الفاضل استاذنا الفاضل ابو تراب متفضل وجزاه الله خير الجزاء

جزاك الله خيراً استاذ خالد 🌹😍 @kha9009lid كل عام وانت بخير

=DCount("empol";"zahrah";" [startdate] Between [forms]![copy_ff]![startdate] AND [forms]![copy_ff]![enddate] And [zy] = true") وهذا نفس كود الفترة لكن بزيادة شرط جديد : And [zy] = true

البرنامج كجداول واستعلامات ونماذج وتقارير وماكرو وكود ، يعمل على النواتين ، وعلى جميع نسخ الاكسس ، ولكن عندما تستخدم: - مكتبات النواة 32 بت (وجميعها نواة 32 بت (كانت 16 بت وتم تحديثها الى 32 بت)) ، فهذا الشيء الوحيد الذي يجب تغييره بإستخدام PtrSafe وتوابعه من التغييرات (او كما في رابط هذه المشاركة ، او كما في مرفق هذه المشاركة) ، - إلا اذا فيه كائنات OCX خاصة لا تعمل على نواة 64 بت ، وهذا نادر 🙂 اما اذا عملت برنامجك على اكسس نواة 64 بت ، فمن المفترض ان يعمل على الاكسس نواة 32 بت بدون مشاكل وبدون تعديل 🙂 جعفر

هلا اخي جرب المرفق New Microsoft Access Database.zip

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

تفضل Copy of Book12.xlsx

أخي الكريم حسين جرب الكود التالي عله يكون المطلوب إن شاء الله Sub Test() Dim Cel As Range If Not Intersect(ActiveCell, Range("A2:A100")) Is Nothing Then For Each Cel In Selection If IsEmpty(Cel) Then Cel.Value = Cel.Offset(, 1).Value Cel.Offset(, 1).ClearContents Cel.Offset(, 2).Value = Date End If Next Cel End If End Sub تقبل تحياتي