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

استاذ حسين لا افهم ما لزوم الحلقة التكرارية يكفي هذا الماكرو 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

فورم اظهار البيانات وترحيل وحذف البيان والبحث من خلال الكمبو بوكس فيديو2 الفيديو

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

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

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

https://hot-virtual-keyboard.com/buy/

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

فكرة رائعة اليوم ماشاء الله عليك رايق شوف انا من اكثر من خمس سنوات لا استخدم ولا يوجد لدي لوحة مفاتيح بكافة اجهزتي بالمنزل استخدم برنامج رائع يعطيك لوحة مفاتيح شبيهه باجهزة التاب وفيه نفس الميزة التي ذكرت بمجرد وضع المؤشر في حقل يقبل الكتابة تفتح لوحة المفاتيح وتغيير الشكل وتخصيص واعادة ترتيب تحكم كامل عيبه الوحيد ان الترخيص مرتفع ولكن يستاهل اول الامر اخذت رخصة لجهاز واحد ثم غيرت الرخصة الى 5-9 اجهزة

عدل الكود ليلائم الأوفيس تبعك كالآتى 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\14.0\Access\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\14.0\Excel\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\14.0\PowerPoint\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\14.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 ولا تنسى وضع الملف فى نفس مسار قاعدة البيانات

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

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

لا عليك يأخي بيكم نتعلم ونعلم إنشاء الله تعلم أكسيس عن طريقكم

جرب الحل باستخدام Select case dayname.accdb

وعليكم السلام ورحمة الله وبركاته ملف ربما يتوافق مع طلبك التنبيه في حالة التكرار .xls تحياتي

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

اتفضل DoCmd.OpenForm "form1", , , , , acHidden If Me.name2 = [Forms]![form1]![name1] Then Me.name2.BackColor = 5570153 Me.name2.ForeColor = 0 Beep MsgBox "الناتج صحيح" Else Me.name2.BackColor = 255 Me.name2.ForeColor = 16777215 Beep MsgBox "الناتج خطا" End If

الله يبارك فى والديك وابنائك الحمد لله واعتبر نفسى من اسعد الناس باجابتك على سؤالى مع تحياتى لك ياستاذ سليم

تفضل اخي dayname.accdb

وجزاك الله خيرا اخي بالتوفيق يا رب

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

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

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

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

اسم الخط المستخدم DecoType Naskh Variants

انظر هناhttp://www.officena....showtopic=36582 وهنا http://www.officena.net/ib/index.php?showtopic=36460 والسلام على الاستاذ عبدالله وعلى الجميع