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

اتغضل تم عمل الاتى وضع الكود داخل موديول لسهولة استدعاءه فى زوايا البرنامج المختلفة ( نماذج - استعلامات - تقارير ) التعديل على الكود لعرض التاريخ فقط بالتنسيق الذى طلبته ظهور الرسالة الاتية عند عدم وجود الانترنت ويتم احضار الوقت بنفس التنسيق المطلوب من الحاسوب GetNetTime.mdb

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

باى برنامج لضغط الملفات انا عن نفسي اقضل برنامج 7zip https://www.7-zip.org/ طبعا الافضل الضعط بامتداد .zip

اخوك @عبد اللطيف سلوم يا سيدى اول لما بتيجى سيرة الدفع هو يختفى

اتفضل اهلا اهلا استاذى الجليل ومعلمى الاستاذ @essam rabea حبيبى انا كلى لك بس اللى يدفعونه لى انا Open Folder.zip

تسلم اخي ابا جودي بالتوفيق اخي عبداللطيف

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

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

الله يسعدك يااستاذنا الغالي جميل جداً وهذا المطلوب الف شكر

اكتب ما تشاء فيها بنفسك

وعليكم السلام -اهلا بك ونورتنا بالمنتدى تفضل

هل هناك مكتبات مفقودة . راجع محرر الاكواد Tools->References وعلى كل جرب المرفق الاتى GetNetTime.mdb

جرب المرفق اشهر.accdb

أحسنت استاذ مجدى كلها أعمال رائعة جعلها الله فى ميزان حسناتك

بارك الله فيك استاذ مجدى وزادك الله من فضله

اقدم لكم برنامج من خلاله تستطيعون تفعيل او الغاء الشفت لبرامجكم . Shift.rar

السلام عليكم ورحمة الله وبركاته جمعت كل اوراقي القديمة ومشاريعي وجعلتها في برنامج اسميته محاسبة 71 كل معرفتي بالاكسيس حاولت ان اضعها فيه نتمتى من الاخوة ابداء الراي برنامج محاسبة ومستودعات.rar

التعرف على عدد السطور التى بها بيانات من خلال الفورم فيديو2 الفيديو

واخيرا اللهم لك الحمد يارب لك الحمد حمدا كثيرا طيبا طاهرا مباركا فيه يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك

جرب المرفق ده اسم العميل موجود Base de données13 - Copie (3).accdb

انا اسف عاجز عن تقديم المساعدة على الرغم من اننى كنت اتمنى ذلك

أخي جرب التعديل عملت لك على حسب مسافة سفلية في الصفحة لا على عدد اسطر بمعنى لو قمت بنقص او زيادة ارتفاع عناصر في صفحة وعدد اسطر 37 ، يرجع نفس مشكلة سابقة فلهذا عملت الكود يزداد ارتفاع الآلي بعد وصول سجلات الى نقطة محددة في صفحة مهما كان ارتفاع عناصر ، جرب الملف و وافيني بنتيجة test120 (1).mdb

عند النقر على Browse لايعمل

😁

تدفع كام ؟

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

اتفضل sar: Sum(Nz([فواتير المبيعات_تفاصيل]![سعر_البيع]*[Quantity]))

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

فورم مشاهدة البيانات المسجلة بالشيت فيديو 3 الفيديو

طيب خير الحمد لله الان انظر الى الاستعلام >>------->> qryMixToetbl عدل عليه بما يناسبك او اخبرنى ماذا تريد

اين انت

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

جرب المرفق افتح استعلام2 يطلب ادخال رقم الشهر الاشهر.accdb

اذهب الى محرر الاكواد اختر القائمة Tools ثم اختر منها References كما بالصورة الاتية لو كانت هناك مشكلة بالمكتبات ستجد كلمة :Missing بجوار اسم المكتبة مثل هذه الصورة على سبيل المثال

طيب يا استاذ @محمد احمد لطفى الحل ده يرضيك واللا اروح انام test120 (2).mdb

شكرا لذوقك وكرم اخلاقك ربنا يكرمك ويزيدك من علمة

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

بارك الله فيك

طبعا اساتذتى الكرام كفوا ووفوا باجابتهم على السؤال لهم كل الشكر والتقدير والعرفان جزاهم الله تعالى خير وشكر الله لهم واحسن اليهم كما يحسنون الى طلاب العلم امثالى بعد اذن اساتذتى الافاضل الكرام اشارك بفكرة متواضعة للمرور على كل الكائنات دفعة واحدة Database311.accdb

مكتبة اكواد ودوال الأكسس.accdb VBALibrary.accdb

بارك الله فيك وزادك الله من فضله ووسع الله فى رزقك

بارك الله فيك استاذ ابراهيم وجزاك الله كل خير

اولا انا لا عالم ولا حتى استاذ انا اقل طالب علم ثانيا اخى القاعدة مغلقة ومحولة الى mde بهدف التأمين صاحبها لايريد لاحد الاطلاع على تصميمها مثل هذه القواعد لا يمكن لا الاستفادة منها ولا التعلم منها مطلقا ثالثا ان اردت التعلم ابحث فى المنتدى اسال حاول اجتهد وان شاء الله لا يضيع الله جهدك وان اردت التعلم من برامج مفتوحه ان وجدتها تنتهى بالامتداد mde او accde فإعلم انها مغلقة لا تسمن ولا تغنى ولن تجنى منها اى استفادة اصلا

جرب هذا الرابط طالما انك لم تقم برفع ملف https://www.officena.net/ib/topic/70163-تصميم-برنامج-لبطاقات-دخول-الموظفين/

وعليكم السلام-يمكنك استخدام هذا الكود للحماية Sub ActiveSht_ProtectShapes() 'Aug 19, 2015 ActiveSheet.Unprotect Password:="123" For Each s In ActiveSheet.Shapes s.Locked = True Next ActiveSheet.Protect Password:="123" End Sub أما كود فك الحماية فهو Sub ActiveSht_UnProtectShapes() 'Aug 19, 2015 ActiveSheet.Unprotect Password:="123" For Each s In ActiveSheet.Shapes s.Locked = False Next End Sub Protect.xlsm

وعليكم السلام اتفضل اخى هذا الفديو من شرحى يشرح نفس الفكرة بس بطريقه الوارد اخيرا يصرف اولا لو انت عايز الوارد اولا يصرف اولا يبقى بدل ما هتستخدم الداله max استخدم min , وتتبع الشرح وبالتوفيق Download video

حاول تغيرها لـ 32 بت أفضل وستعمل معك جميع برامج إلغاء الشيقت عذرا

دائما مبدع استاذ سليم بارك الله فيك استاذى الكريم

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