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

وعليكم السلام☺️ اخذ نسخه منه ، ثم اعمل له ضغط واصلاح. جعفر

قد يكون هذا طلبك ..... واجهة الادخال بالاكسيس.accdb

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

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

وعليكم السلام رحمة الله وبركاته ..... أهلا بك اخي ابا زاهر لعل هذا طلبك ..... بحث مشروط.accdb

اعمل قاعدة بيانات جديدة وقم باستيراد جميع الكائنات من القاعدة القديمة .. او قم بعمل ضغط واصلاح للقاعدة القديمة

الحمد لله رب العالمين

وعليكم السلام ..... لعل هذا هو المطلوب واجهة الادخال بالاكسيس.accdb

بسم الله الرحمن الرحيم كثر الكلام في الفترة الأخيرة عن تصحيح الكتابة المكتوبة بالخطأ والحل في هذه الحالات برنامج أبو الحروف وهذه المرة بأحدث إصدار له ما هو برنامج أبو الحروف؟ إنه البرنامج العجيب، إنه البرنامج الطائر، إنه أقوى من الشدة، أطول من المدة، أحد من السين، وأسرع من لمح العين. إنه أبو الحروف! هذه صفات برنامجنا الصغير. فهو يتلاعب بالحروف ويصحح لك ما خربة (خربوط)..... من منا لا يعرف أبو الحروف ... ولكن لم يكن باستطاعة أبو الحروف مساعدتنا كشخصية كرتونية في برنامج المناهل. ولكن الأن سوف يكون أبو الحروف معك دائما. ماذا يفعل أبو الحروف؟ الكثير منا يكتب وهو ينظر إلى لوحة المفاتيح وأنا منهم. وكلنا يكتب عن طريق لوحة المفاتيح! هل من طريقة أخرى؟ كم مرة حدثت معك! أن تكون في محادثة مع صديقك، أو أن تكون تكتب رسالة وقد أنجزت ما يزيد عن ثلاثة أسطر، وبالنهاية اكتشفت أنك قد نسيت قلب اتجاه مؤشر كتابة الحروف في لوحة المفاتيح إلى اللغة العربية! والصدمة ان تنظر إلى ما كتبت! مثال: hgsbl ugd;l <vplm hggi <fv;hji> طبعا الصحيح هو: السلام عليكم ورحمة الله وبركاته. أنا أعرف شعورك تماما وخصوصا عندما تحذف كل ما كتبت! وايضا في حال كنت تكتب بالإنجليزية وكانت النتيجة حروف عربية لا معنى لها...... ماذا أفعل؟؟!! هنا يأتي دور صديقنا أبو الحروف. فبكل بساطة أبو الحروف يكون معك دائما أينما ذهبت في طرف الشاشة مستعد لأوامرك! ألية العمل المتبعة: إن قمت بتحديد نص معين فسوف يقوم أبو الحروف بتصحيح المكان المحدد فقط. ولكن إن لم تحدد أي جزء من النص فسوف يقوم أبو الحروف بتصحيح كامل النص. في حال كنت تكتب العربية وكان مؤشر الكتابة على الإنجليزية: للقيام بذلك اضغط في لوحة المفاتيح على Ctrl + F1 في حال كنت تكتب الإنجليزية وكان مؤشر الكتابة على العربية: اضغط في لوحة المفاتيح على Ctrl + F2. تحويل النص العربي المكتوب باللغة الإنجليزية إلى العربية! كيف ذلك؟ إن كنت من أهل التشات الكتابي فسوف تسرك هذه الإضافة كثيرا. في اغلب الأحيان وخصوصا مع الأشخاص اللذين لا يملكون لوحة مفاتيح عربية يقومون بكتابة اللغة العربية عبر الحروف الإنجليزية / مثال: Al Salam Alykom وتعني السلام عليكم. حسنا، لكي تقوم بقراءة العبارة باللغة العربية فقط قم بتحديد النص وقم بالضغط على Ctrl+F3 سوف تظهر لك نافذة تحوي قسمين القسم اليميني هو ما تم تحويلة من إنجليزية إلى عربية والثاني على اليسار يحوي النص الأصلي الذي تم تحديده. ملاحظة هامة: تعتبر أداة التحويل النصي أداة فعالة في بعض الأحيان حيث يمكن أن يفهم الإنسان 60% إلى 94.5% من محتوى التحويل النصي. الأداة تفترض أن النص مكتوب بطريقة مفهومة مأخوذا بعين الاعتبار مصطلحات الدردشة، ولكن على كل حال يبقى التحويل الإلكتروني مفتقرا للدقة النحوية ولكن تم طرح هذه الأداة لمساعدة الأشخاص اللذين يعانون من صعوبة فهم النص العربي المكتوب بحروف إنجليزية. المدقق الإملائي الإنجليزي الأن مع أبو الحروف! دعني أتخيل هذا السيناريو! كنت مع صديق لك تتكلمان على المسنجر وكان صديقك يكتب الإنجليزية وانت كذلك، فلغة الوصل بين الحضارات باتت مع الأسف الإنجليزية. ولكن ومع ذلك فقد تعلمناها وعلمناها! والأن أبو الحروف سوف يرشدك إلى أخطائك اللغوية بالإنجليزية، بمعنى أخر سوف تشعر بالأمان! حدد أي نص تريد أن تدققه في أي برنامج مهما كان وقم بالضغط على Ctrl+F4 وشاهد ما سوف يحصل! قد قام أبو الحروف بقراءة النص المكتوب ووضع لك خطوط حمراء تحت الكلمات المشكوك في صحتها. ليس هذا فقط بل ويعطيك قائمة احتمالات بالكلمات الصحيحة وذلك بالضغط على الكلمة بالزر الأيمن الخاص بالماوس. وعند انتهائك من التدقيق والذي لا يأخذ من وقتك أقل من 30 ثانية في أسوء الأحوال، قم بالضغط على زر موافق. لا حاجة للقيام بعمليات النسخ واللصق دع أبو الحروف يتولى المهمة عنك. سوف يصار إلى تغير النص المكتوب استبداله بالنص المدقق فقط بضغطة واحدة! هل تتصور ذلك؟ تنويه: أبو الحروف لا يعتمد على برنامج مايكروسفت ورد أبدا ويمكنه العمل بدون وجود الأخير على الجهاز. والجميل قي الموضوع أنه بورتابل Portable يعني بدون تثبيت ولا تحتاج لتثبيته في درايف النظام بل يمكن تشغيله من أي مسار في الكمبيوتر جزى الله المبرمج الأستاذ بشار المصري كل خير ملحوظة: يجب تشغيل البرنامج لأول مرة كمسئول Run as administrator بعدها ستشعر بدوره , aboal7roof_2_portable.rar

جرب هذا الملف (من دون يوزر) لاني لا احب التعامل مع اليوزر فورم الكود Sub InsertPageBreaks_with_choosen_row() If ActiveSheet.Name <> "Print" Then GoTo Leave_Me_Out If Not IsNumeric(Range("N1")) Or Range("N1") < 5 Then GoTo Leave_Me_Out Range("N1") = Int(Range("N1")) Application.ScreenUpdating = False Dim Xrow% Dim i% Dim xLastrow As Long Dim x% Dim xWs As Worksheet Set xWs = Application.ActiveSheet xWs.PageSetup.PrintTitleRows = "$10:$11" xWs.PageSetup.FitToPagesWide = 1 Xrow = Range("N1") 'Xrow = Application.InputBox("How Many Rows in page?", "Salim tell you", Type:=1) xWs.ResetAllPageBreaks xLastrow = Cells(Rows.Count, 2).End(3).Row + 4 For i = Xrow + 12 To xLastrow Step Xrow xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1) x = xLastrow - i If x < Xrow Then xWs.HPageBreaks.Add Before:=xWs.Cells(i + x + 1, 1) Exit For End If Next Leave_Me_Out: Application.ScreenUpdating = True End Sub الملف مرفق Variable Print Area.xls

الحمدلله والشكر لله الفضل بعد الله يعود لكم استاتذتي ما قصرتم الله يعطيكم العافيه

تفضل Me.RecordSource = "SELECT AfwtIar.*, * FROM AfwtIar WHERE (((AfwtIar.Nwaha)=""مبيعات"") AND ((AfwtIar.Adfah)=""نقدي"") AND ((AfwtIar.Rjmfatwra) Like ""*"" & [forms]![frm1]![text14] & ""*""))" بحث مشروط2.rar

السلام عليكم اخواني مشرقي المنتدى والاعضاء الكرام لدي استفسار كيف اكبر الخط في النموذج مثال كيف اتحكم بالخط عبر الكود Me.Caption = "ابو ياسين"

السلام عليكم هل تريد انشاء لائحة باسماء الزبائن مرتبة حسب قيمة مجموع الديون على كل شخص(ترتتيب تنازلي) ؟ (اسماء الزيائن يمكن ان تكون مكررة اكثر من مرة و كذلك قيمة الديون) اكسل يفعلها بواسطة المعادلات Name_list by Sum.xlsx

بسم الله الرحمن الرحيم بداية كل عام وجميع زوار وأعضاء ومشرفي ومديري منتدى أوفيسنا بكل خير أعاد الله علينا جميعا هذه الأيام المباركة بالخير واليمن والبركات وفتح الله قلوبنا وعقولنا لهذه الكلمات البسيطة ........................ بملاحظتي لبعض موضوعات المنتدى وسلوك بعض الأعضاء تبين لي انتشار ثقافة الأخذ فقط بمعنى أني عضو أحتاج لحل لمشكلة عندي أعرضها وإذا قام أحدن الزملاء بالمساعدة متطوعا لا أقوم بشكره على جهوده بل أتصيد الأخطاء ولا أرى إلا السلبيات وكأنه فرض عليه أن يساعدني وفي نفس الوقت لا أساهم في حل مشكلة لغيري ............................... ومثل هؤلاء الأعضاء ضررهم أكثر من نفعهم فهم يحبطون من يساعدهم ويجعلونه لا يعود لمساعدتهم أو مساعدة أي زميل آخر بل ربما يتحول إلى ثقافة الأخذ مثلهم ولا يهتم إلا بما فيه مصلحته فقط .......................... في حين أننا في بداية إنشاء هذا الصرح في 2003 و 2004 وما بعدها كان الأعضاء يتنافسون في فعل الخير وتطوير الفكرة وإنشاء مشاريع جماعية يشترك فيها الجميع ولو بفكرة أو بسطر من الكود أو بالتشجيع لكل من يساهم لذا نجد مشاريع متكاملة قديمة مثل التفقيط ومواقيت الصلاة والمخازن والباركود وغيرها الكثير ...... ولا يوجد مثيل لها في الفترة الأخيرة ربما من عام 2012 وما بعدها **************** فهل نستطيع استعادة هذه الروح الطيبة والعطاء والمحبة؟؟!! أكيد نستطيع كيف؟؟!! بالدخول إلى كل الموضوعات وترك بصمة لك تدل على عطائك ولو بكلمة شكر أو نصيحة أو رأي أو إشارة إلى رابط لموضوع به الحل أو عمل إعجاب برد جميل أو اختيار مشاركة كأفضل إجابة أو أو أو الإبداع في العطاء ليس له حدود كل عام وجميع أحبابي في الله بكل خير عيد أضحى مبارك

فكرة أخرى من بعد اذن استاذنا الكبير بن علية حاجي أرجو أن تكون صحيحة 555.xlsx

تم معالجة الامر بالنسبة للصفحة Print بالنسبة لبقية الصفحات سوف يعمل الكود اذا تم جذف هذا السطر منه (بوضع كلمة Rem) امامه وتغيير اسم الكود (حتى لا يختلط الكودين مع بعض) If ActiveSheet.Name <> "Print" Then GoTo Leave_Me_Out ملاحظة (لا نتس وصع الرقم المناسب في الخلية N1) ليصبح هكذا مثلاً Sub InsertPageBreaks_with_choosen_row_for_All() Rem If ActiveSheet.Name <> "Print" Then GoTo Leave_Me_Out If Not IsNumeric(Range("N1")) Or Range("N1") < 5 Then GoTo Leave_Me_Out Range("N1") = Int(Range("N1")) Application.ScreenUpdating = False Dim Xrow% Dim i% Dim xLastrow As Long Dim x% Dim xWs As Worksheet Set xWs = Application.ActiveSheet xWs.PageSetup.PrintTitleRows = "$10:$11" xWs.PageSetup.FitToPagesWide = 1 Xrow = Range("N1") 'Xrow = Application.InputBox("How Many Rows in page?", "Salim tell you", Type:=1) xWs.ResetAllPageBreaks xLastrow = Cells(Rows.Count, 2).End(3).Row + 4 For i = Xrow + 12 To xLastrow Step Xrow xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1) x = xLastrow - i If x < Xrow Then xWs.HPageBreaks.Add Before:=xWs.Cells(i + x + 1, 1) Exit For End If Next xWs.PageSetup.FitToPagesWide = 1 Leave_Me_Out: Application.ScreenUpdating = True End Sub K G_Salim.xls

لا يوجد برنامج ... حاول أخي احمد ارفاق البرنامج حتى يتم التعديل عليه

شكرا لمرورك اخي ابو زاهر ماقصرت

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

شكرا لمرورك اخي ابو زاهر انا اريد اتحكم بالخط عبر كود مختصر كود بالنموذج

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

السلام عليكم الأخوة الكرام بعد فترة من تجربة http://www.officena.net/ib/topic/41210-الاصدار-الثاني-من-آلية-الترقيات/ وبعد المناقشة بين فريق الموقع ، تم الاتفاق علي تعديل الرتب و الدرجات بالموقع من واقع التجربة فى الفترة الاخيرة. بالنسبة للاعضاء ، أغلب الدرجات تكون ترقياتها بعدد المشاركات فقط دون تقييم و الدرجة تدل على العدد فقط و ليس الخبرة. و يكون الترتيب كالتالي: عضو جديد عضو (50 مشاركة) عضو فعال (200) عضو فضي (500) عضو ذهبي(1000) عضو ماسي (2000) و ذلك دون تدخل او ترشيح فقط بعدد المشاركات ، و يتم لغاء مسار الاعضاء المميزين بالكامل يتم دمج عضو محترف و خبير و خبير معتمد الي درجة خبير، و تم استحداث درجة خبير مخضرم سيتم منحها لقدامى الخبراء ذوي العطاء الطويل. عضو شرف تكون لمن لهم مساهمات خاصة خارج الموقع كنوع من التكريم و تلغي العضوية الشرقية بالترشيح لاعضاء الموقع بالنسبة لفريق الموقع : - دمج درجتي مشرف و مدير قسم الى فريق الموقع

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

شكرا استاذنا الحبيب تم التجربة والحمد لله كل شيء مضبوط جزاك الله كل خير

ممتاز طلبي هيك بارك الله فيكاستاذنا الغالي ابو خليل ربنا يعطيك الصحه والعافيه بارك الله فيك استاذ@kanory ربنا يعطيك الصحه والعافيه ما قصرت هي فكرتك ممتازه وسهله لكن اخوك ما بيحب يكثر استعلامات ههههههه تحياتي اليكم وزاداك الله علما

اين البرنامج ... بارك الله فيك

حدث برنامج الضغط الى اصدار احدث

السلام عليكم للتجميع لا بد من استبعاد الموانع ، مثل التاريخ اليومي ومثل ترقيم السجلات تم التعديل انظر في مصدر بيانات التقرير db2.mdb

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

استاذي الكريم شكرا إليك نعم هى الفكره بس بدي ياليت نحصل على طريقه عن طريق كود بدون استعلام تحياتي اليك يالغالي

انا جربت وما وجدت اي مشكلة !!

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

السلام عليكم يبدو لي ان الانسب لطباعة ملفك هو التحكم فى عدد الصفحات و ليس نسبة الطباعة ، كما هو مبين فى الصورة فالوضع الحالي يناسبه خمسة صفحات ، و كلما زادت البيانات تزيد عدد الصفحات تدريجيا

جرب هذا الملف transfer_salim.xlsx

أخى الكريم تمام مجموع الخلايا التى بها بيانات 7289 خلية وأيضا فى العمود الواحد كذلك ولأنك جمعت كل المعادلات حتى واذا كانت الخلايا فارغة فأصبح لديك هذا العدد الكبير وذلك لأنى قمت بسحب المعادلة الى بعد المدى المحدد لك -حتى اذا قمت بإضافة ارقام جديدة مستقبلا فأيضا تدخل فى هذا العمود أما اذا كنت تريد الملف بالضبط على البيانات المدخلة حاليا فأليك الملف مرة اخرى مع حذف المعادلات الزائدة -2دمج عدة أعمدة ووضعهم فى عمود واحد.rar

الحمد والشكر لله على وجود اناس رائعين مثلكم لايترددون في تقديم يد العون لاي شخص بارك الله فيكم أساتذنا ali mohamed ali وأستاذنا سليم حاصبيا .

تفضل يا غالي With CurrentDb .Execute "UPDATE AfwtIar SET AfwtIar.Atarih =#" & Format([x], "dd/mm/yyyy") & "#" & "WHERE AfwtIar.Rjmfatwra ='" & Me!Rjmfatwra & "'" .Execute "UPDATE Hrakatsanf SET Hrakatsanf.Atarih =# " & Format([x], "dd/mm/yyyy") & "#" & "WHERE Hrakatsanf.Rjmfatwra ='" & Me!Rjmfatwra & "'" .Execute "UPDATE HRR SET HRR.Atarih = # " & Format([x], "dd/mm/yyyy") & "#" & "WHERE HRR.Rjmfatwra ='" & Me!Rjmfatwra & "'" End With

طبعا تستطيع جرب وعاين جرب وعاين الى ان تصل الى التقرير الذي تريد طباعته بشكل جميل ومناسب تفضل : up_ بكشف الحساب00.rar

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

تم التعديل يجب ان تضيف المكتبة المرفقة قبل التجربة جرب ووافنا بالنتيجة SQLDMO.rar

أتوجه بخالص الشكر على مجهودك في الملف الرائع ورأيت أن أقوم بعمل بعض التعديلات تم التعديل على ماكرو حذف البيانات ليصل إلى w بدلاً من x لتفادي عمود الفرز تم إضافة معادلة لتحديد النوع وتاريخ الميلاد ومحافظة الميلاد تعمل تلقائيًا بمجرد إدخال الرقم القومي تم منع الكتابة أو التعديل في خلايا النوع وتاريخ الميلاد ومحافظة الميلاد وذلك لتفادي أي كتابة عن طريق الخطأ تم تقييد عمود الرقم القومي في ورقة العمل (بيانات الموظفين) لا تقبل أقل من 14 رقم ومنع إدخال أي حرف تم تقييد عمود الاسم في ورقة العمل (بيانات العاملين ) لا يقبل الاسم أقل من رباعي هذه التقييدات لا يمكن عملها في التكست بوكس الفورم تم إيقاف عمل التكست بوكس الخاص بتاريخ الميلاد وكذلك النوع وأيضًا محافظة الميلاد في فورم الإضافة وفي فورم التعديل لأنه لا داعي لهم بالنسبة لسؤال حضرتك كل مرة تقوم بتغيير الملف . الإجابة بانن كنت آخذ الملف من الموقع ربما يكون هناك تعديل من عندك وأسأل الله تعالى يوفقك شئون عاملين 2019.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Strings.rar

أنا عاجز عن الشكر يا جماعه .. ملحوظة للأستاذ / محمد سعيد العمده .. ما معنى الرقم الثابت 21915 الذي يُحسب على تاريخ الميلاد .. حتى استوعب المسألة

نموذج بستخدمه يارب يفيدك... سن المعاش.rar