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

استاذ حسين لا افهم ما لزوم الحلقة التكرارية يكفي هذا الماكرو Option Explicit Sub Go_To() On Error Resume Next Sheets(Sheets("رئيسي").[D5].Value).Select End Sub

السلام عليكم ورحمة الله تعالى وبركاته طبعا فى ناس لوحات مفاتيحهم ممكن تكون مثلى كل حروفها انجلش فقط ويعانون الامرين نظرا لحفظهم تقريبا للوحه ولكن قد تخونهم بعض الاحرف وخاصة مع الكتابة السريعة بدون مراجعة قد تصدف منهم اخطاء املائية مثلما يحدث لى هنا احياناا واعرف ان قد يضحك منها البعض كما اضحك انا على نفسي وبالصدفة وجدت على الويندوز لوحة المفاتيح بشكل تانى غير عجبنى جدا TabTip حتى لا اطيل عليكم لما لا نشاهدها فى الاكسس ملاحظة : تظهر لوحة المفاتيح عند الضغط بالماوس على مربع النص TabTip.mdb

عليكم السلام تفضل زر انتقال حسب الشهر.xlsm

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

طبعا تقدر ابعت له حق الفاكهة بسرعة لا تتأخر

اتفضل انا عجبتنى الفكرة جدا box.accdb

أستاذ الحسن 0546 أين الضغط على الإعجاب طالما أعجبتك الإجابة وهذا اقل ما تقدمه لصاحب الفضل فى مساعدته فى حل مشكلتك ؟

السلام عليكم وهذا أيضا مع بعض التعديل... تعداد التلاميذ حسب المستوى والعمر والجنس.xls

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

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

روعة فوق الوصف وضعت الرابط في الاعلى

أستاذنا أبو عبدالله الحلوانى أستاذنا ابا جودى أنا شايف فاكهة نازلة يمين ويمن ما فيش أى حاجة للغلبان اللى باصصلكم فى كل حاجة ده .. ولا يعنى عشان مش صعيدى أخى العزيز kha9009lid إسمها ايه لوحة المفاتيح دى .. باين عليها جبارة

انت يُدفع لك ابا جودى وبالنص زى ما اتعودنا مش قولتلك هنطلك دافع كنت أم مدفوع😉

أستاذنا ابا جودى اى دا اى دا اى دا .. أنا حاسس إنى زى ماتقول كده خير اللهم اجعله خير ماسك موبايل نوت 20++ كمل يا جميل الشكل وهندسه شوية.. الله يفتح عليك ..

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

كل الشكر والتقدير لأستاذنا بو عبدالله الحلوانى ولكل أعضاء المنتدى الكرام خالص تحياتى

اخي الكريم حسب علمي تنوع الالوان في صفوف الليست من المستحيل حتى وان كانت هناك تقنية ستكون صعبة وستزيد ثقل عمل الكود

ما هي اداة البحث التي تريد ان تشغلها الصّف او اسم التلميذ على كل حال جرب هذا الملف st_by_class.xlsx

المفروض انه يفتح تقرير محدد للطياعة تمام كل ياللى مطلوب منك تفح هذا التقرير فى وضع التصميم وتقوم بوصع حدث عند التحميل كالاتى Private Sub Report_Load() 'Printed by Me.txtPrintedBy = UsersNames End Sub على اعتبار ان تضع مربع النص اسفل صحفة التقرير سوف يكون اسمه txtPrintedBy وعنوانه سوف يكون طبع بواسطة :

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

شكرا لك أخي أبو عارف وابا جودى إليك يا من كان له قدم السبق في ركب العلم والتعليم، إليك يا من بذلت ولم تنتظر العطاء، إليك أهدي عبارات الشكر والتقدير.

أخي عبدالقدوس يجب عمل فرز داخل تقرير من تاريخ إلى تاريخ.rar

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

تفضل ترحيل المطالبات 2الشهرية.xlsm

السلام عليكم بعد اذن الاستاذ حسين هذا كود اتمنا يلبي طلبك انقر زر تنفيذ abad_Merg.xls

احفظ لوكو في فولدر الصور ثم اذهب الى الاكسيل ثم header / footer ------- ثم custom header ثم انقر في center section eثم انقر على رمز الصورة واختر الفولدر اللي فيه الصورة وانقر عليها ثم magns قم بتعديل الهامش العلوي حتى 3.5 سم ثم OK

ساعة رقمية بالاكسل الفيديو

عجبنى الموضوع ده قلت أشاركه معكم بإختصار هو سكريبت لعمل مكان موثوق لملفات الأكسيس من مكان تشغيله .. بمعنى لو شغلته من Desk Top تقدر تفتح أى ملف أكسيس على Desk Top بدون ظهور Enable Content. ولو عندك فولدر لمشاريعك فى أى مكان سواء سى أو دى أو .... ضع هذا السكريبت داخله وشغل وخلاص بقى كل ما بداخل الفولدر منطقة أمان. إنشئ ملف نص بأى إسم وضع فيه ما يلى على أن تغير إمتداده الى vbs. Const HKEY_CURRENT_USER = &H80000001 Dim oRegistry Dim sPath Dim sDescription Dim bAllowSubFolders Dim bAllowNetworkLocations Dim bAlreadyExists Dim sParentKey Dim iLocCounter Dim arrChildKeys Dim sChildKey Dim sValue Dim sNewKey Set WshShell = CreateObject("WScript.Shell") strCurDir = WshShell.CurrentDirectory Set oRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") sPath = strCurDir sDescription = "YourTrustedLocationDescriptionGoesHere" bAllowSubFolders = True bAlreadyExists = False sParentKey = "Software\Microsoft\Office\16.0\Access\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\Excel\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\PowerPoint\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\Word\Security\Trusted Locations" iLocCounter = 0 oRegistry.EnumKey HKEY_CURRENT_USER, sParentKey, arrChildKeys For Each sChildKey in arrChildKeys oRegistry.GetStringValue HKEY_CURRENT_USER, sParentKey & "\" & sChildKey, "Description", sValue If sValue = sDescription Then bAlreadyExists = True If CInt(Mid(sChildKey, 9)) > iLocCounter Then iLocCounter = CInt(Mid(sChildKey, 9)) End If Next 'If bAlreadyExists = False Then sNewKey = sParentKey & "\Location" & CStr(iLocCounter + 1) oRegistry.CreateKey HKEY_CURRENT_USER, sNewKey oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Path", sPath oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Description", sDescription If bAllowSubFolders Then oRegistry.SetDWORDValue HKEY_CURRENT_USER, sNewKey, "AllowSubFolders", 1 End If كما يمكن تفعيله للاكسيل والوورد والباور بوينت مع مراعاة نسخة الاوفيس لديك وتغيرها فى الكود: أوفيس 2019 : 16.0 أوفيس 2016 : 16.0 أوفيس 2013 : 15.0 أوفيس 2010 : 14.0 أوفبس 2007 : 12.0 أوفيس 2003 : 11.0 أظن أنه لا يوجد أحد أعضاء منتدانا الكريم يعمل على أوفيس XP 😊 عسى أن يفيد .. إذا اشتغل يعنى والله الموفق EAR TrustAnyWhere.zip

تم التعديل على الملف ليعطيك الاسم (او عدة اسماء تبدأ بحرف او حروف معينة) الصفحة Salim من هذا الملف Saerch_by_Name.xlsx

أستاذنا عصام ربيع وأحبتي أعضاء المنتدي الكرام 🍊🍋🍌🍎🍈🥝🍒🍊🍋🍌🍎🍈🥝🍊🍋🍌🍎🍈🥝 🍋🍌🍎🍈🥝🍒🍊🍋🍌🍎🍈🥝🍊🍋🍌🍎🍈 🍋🍌🍎🍈🥝🍒🍊🍋🍌🍎🍈🥝🍊🍋🍌🍎🍈 تحلية خفيفة ودعايا لمنتجاتنا من المزرعة اليكم بدون وسيط 😁

جرب هذا لعله يفي الغرض تعداد التلاميذ حسب المستوى والعمر والجنس.xls

أستاذ @Amir - 4k ماذا يحدث عندما تفتح ملف vbs هل تظهر لك رسالة خطأ ولو أمكن تقوم بتصوير رسالة الخطأ وياحبذا لو ذكرت لنا نوع الأوفس لديك (2019 - 2016 - 2010 - 2003) وهل قمت بتغير رقم الاصدار داخل الكود وفقا لتعليمات أستاذنا @essam rabea

السلام عليكم ورحمة الله وتعالى وبركاته عند البحث بين تاريخين الكود هذا في الإستعلام Between [أدخل تاريخ البداية من فضلك] And [أدخل تاريخ النهاية من فضلك] عمل تصاعدي لكن في التقرير لايعطني التاريخ مثلا 02/07/2018 إلى 30/06/2019 هو يعطني مثلا 01/12/2018 إلى 30/06/2019 كل هذا في التقرير وشكرا تم تعديل العنوان -لابد من اختيار ووضع عنوان معبر عما تطلب وتريد

ابحث عن فونط IDAutomationHC39M بعد تثبيت اجعله خط نص او مربع مراد تحويله الى رموز باركود

الشرط يقول ان اي خلية على يسارها رقم 1 يتم تلوينها

وعليكم السلام فعل خياري الافقي والعمودي كما في الصورة

أخي ابو زاهر جرب المرفق ان شاء الله يكون حسب مطلوب تعديل كود.mdb

تفضل اخي dayname.accdb

أستاذ muneef أين الضغط على الإعجاب طالما أعجبتك الإجابة وهذا اقل ما تقدمه لصاحب الفضل فى مساعدته فى حل مشكلتك ؟

الف الف مبروك للاستاذ حسين مأمون نتمنى لك كل الخير والى مزيد من التقدم والنجاح تقبل مروري

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

السلام عليكم ورحمة الله اخي الفاضل / حسين مأمون الف مبروك علي الترقية والتي تستحق اكبر من ذلك بالتوفيق وسدد الله خطاك أخيك في الله / ابا الحسن والحسين

استعمل هذه المعادلة في الخلية B22 واسحب نزولاً =SUMPRODUCT(--($A$4:$A$18=$A22),$B$4:$B$18)

السلام عليكم تفضل لقد استخدمت التنيسق الشرطي جرب هذا الحل 222.accdb

طبعا كل اساتذتى كفوا ووفوا جزاهم الله خيرا ممكن اشارك بفكرة بسيطة واتمنى اعرف راى اساتذتى الكرام Test1 -why not .accdb

الف شكر استاذي الفاضل ابو عارف واستاذي الفاضل essam rabea هذا هو المطلوب جزاكم الله خير

ربما يستحسن استعمال هذا مني طلب مساعده من منتدى اوفسينا (2) (1).xlsm

اخواني اساتذتي Ali Mohamed Ali و سليم حاصبيا واخرون ، انه لشرف لي ان أكون بين عظماء مثلكم واتمنى من العلي القدير ان ينور قلوبنا وان يتقبل منا ومنكم جميع اعمالنا وان نكون عند حسن ظن جميع اعضاء هذا الصرح العظيم. اشكركم جميعا تحياتي

وجزيت خيرا اخي

وعليكم السلام-جرب هذا الرابط https://www.officena.net/ib/topic/39663-اضافة-صورة-مرتبطة-باسم-الموظف-فى-فورم-البحث/?tab=comments#comment-221234