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

اتغضل تم عمل الاتى وضع الكود داخل موديول لسهولة استدعاءه فى زوايا البرنامج المختلفة ( نماذج - استعلامات - تقارير ) التعديل على الكود لعرض التاريخ فقط بالتنسيق الذى طلبته ظهور الرسالة الاتية عند عدم وجود الانترنت ويتم احضار الوقت بنفس التنسيق المطلوب من الحاسوب 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

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

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

نعم هذا هو المطلوب شكر جزيلا لك أستاذ ابا جودى لاني أتعبتك معي

تم معالجة المشكلة تقريبا والله اعلم ولا تسألنى ما السبب لانى لا اعلم

تقريبا والله اعلم وجدت الخلل افتح التقرير فى عرض التصميم nom client هنا المشكلة لو حذفته جرب اتفضل Base de données13 - Copie (3).accdb انتظر افادتكم بعد التجربة استاذ @rey360

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

اولا انا مجرد طالب علم ثانيا الشكر لله وحده ثالثا هو انت بتضحك هلى ومش هتدفع واللا ايه

تدفع كام بئه

تسلم يا غالي ربنا يحفظك الكود صح 100% ✔️

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

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

اولا انتبه جيدا للمسميات لانها مرتبطة بالاكواد 1- اسم النموذج يكون DateForm 2-داخل النموذج مربعين نص تاريخ البداية والنهاية بالاسماء الاتية txtFromDate , txtToDate كل جدول به تواريخ تريد عمل فلتر لها لابد من عمل استعلام له اولا لعمل الفلتر على التاريخ ويكون الفلتر فى معيار حقل التاريخ بهذا الكود Between Nz([forms]![DateForm]![txtFromDate],"01/01/1900") And Nz([forms]![DateForm]![txtToDate],"01/01/2100") بعد ذلك قمل بعمل باقى الاستعلامات التى تتم فيها العمليات الحسابية ملاحظة هامة باقى الاستعلامات لن تعتمد على الجدوال مباشرة بل على الاستعلامات التى وضع فيها معيار الفلتر للتواريخ

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

تفضل اخي ارفقت لك المثال لتجربة و العمل لحد الان غير مكتمل باقي حساب صفحات اضافية 3،4،5.... و حساب تغير ارتفاع اسطر , و جاري عمل عليه test120 (1).mdb

انا اسف هذا اقصى ما املك من افكار كنت اتمنى تقديم المساعدة

عليه النعمة انه دمك شربات ومثل العسل ههههههههههه

طيب دقيقة واحدة طيب جرب دى كده ؟ Prog2006 (1).mdb

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

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

لمسات سحرية @ابا جودى ساحر الاكسس

ما شاء الله الله يفتح عليك يا استاذنا الجليل وهذه الطريقة التى احبها الاكواد داخل موديول لاتعامل معها فى كل زوايا البرنامج بكل سهولة انظر الموديول والاستعلام 4 حساب.accdb

اعرف انك تملك الاجابة ولكن كنت امزح معك عدد الحروف في استعلام Len(Replace([الاسم];" ";"")) عدد الكلمات Len([الاسم])-Len(Replace([الاسم];" ";""))+1 مرفق مثال استعلام3 حساب.accdb

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

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

انظر آخر مرفق قمت باضافته تتحكم من خلاله بعدد السجلات من النموذج وبدون اكواد وايضا التوقيع فى اخر الصفحة يلى الجدول مباشرة وكذلك بدون اكواد

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

الله عليك يا مبدع يابا جودي بجد ابدعت فيما شرحت السهل الممتنع ربنا يكرمك ويسعد ايامك

اخي @محمد احمد لطفىهل يناسبك طريقة هذا بعد عدد سجلات 37

اين الضغط على الإعجاب ؟!!!!!

تفضل لجان الدور الثاني2.xlsx

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

وعليكم السلام-تفضل هذا هو الرابط الذى تم التعامل من قبل مع هذا الملف يمكنك تحميل الملف منه مرة اخرى وهو يعمل https://www.officena.net/ib/topic/92008-ماعرفت-كيف-احمي-ملفي-من-النسخ-وكيف-ينتحر/?tab=comments#comment-577543

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

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

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

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

وعليكم السلام -منور المنتدى يمكنك استخدام هذا الكود Sub salesvalues() Dim chtChart As Chart 'Create a new chart. Set chtChart = Charts.Add Set chtChart = chtChart.Location(Where:=xlLocationAsObject, Name:="ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí") With chtChart '.Name = "" .ChartType = xlColumnClustered 'Link to the source data range. .SetSourceData Source:=Sheets("ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí").Range("C4:N8"), _ PlotBy:=xlRows .HasTitle = True .ChartTitle.Text = "Sales by Customer" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Customer" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Total Sales" End With End Sub وفى هذا الرابط سوف ترى شرح أخر https://www.computerna.com/excel-chart/