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

مين بيجيب سيرة الصعايدة - وبعدين خلينا حبايب أحسن😁 ما عهدناك ماديا أبا جودي - ولكن لو كان الحساب طعام - فاضرب لي معك بسهم. ------------------------------------------------------ لا تقلق أبا أشرف - فطلباتنا خفيفة وليست باهظة الثمن - صلاة علي النبي المصطفي (صلي الله عليه وسلم) . ودعوة بالخفي. أنا مثلك أخي ما أظن أن تصميمي للواجهات يعجب أحدا غيري.🙄 ولكن أحاول أن يكون التصميم مقبولا بعض الشيء. ----------------------------------------------- أخي أبا أشرف هذه بعض الملاحظات من وجهت نظري القاصرة للمساهمة في تحسن الصورة قدر الامكان: 1- ما أعتقد أن ظهور اجمالي المقبوضات - والأتعاب - ليس مكانا مناسبا أن تظهر بالشاشة الرئيسة, والا فأنت صديق لمندوبي الضرائب ولا تريد أن تخفي عنهم شيء. 2- لو كان ظهور التنبيهات باقتراب موعد الجلسات يظهر علي شكل بالون تنبيهي كل فترة ما - أعتقد أن هذا سيكون احترافيا أكثر من ظهور عدد التنبيهات بالشاشة الرئيسة. هذه تلميحات سريعة - حتي نقبض العربون (هي عدوي من أبي جودي 😷)

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

Me.اسم الحقل.Enadbled=false اعذرني لاني بالمبيايل

صلاة علي النبي المصطفي (صلي الله عليه وسلم) واجهة ادارة قضايا مكتب محامى.zip

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

اخواني الاعزاء مهما يكن من شئ فان خفه دم باشمهندسنا ومروض الاكسس / @ابا جودى (يارب يكون في احسن حال وفى اتم صحة) تجعلني اضحك كالمجنون وانا جالس وحدي واهلى يظنون انى تجننت والشئ المبهر فعلا رد استاذنا الفاضل وخبيرنا / @أبو عبدالله الحلوانى برد الصعيدي وكلمات تحمل خفه دم غير معهودة ضحكت كثيرا ربنا يسعدكم كما اسعدونا بكلماتكم واحساسيكم البناءة

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

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

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

جرب المرفق Database311.accdb

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

chr34 هى لغة الاسكى كود وعندما تكتب فى عالم البرمجة تترحم عند معالجتها الى علامة التنصيص "

chr(34) رمز اسكي يعني نص هذة العلامة " و تعني بينري 00100010

جرب هذا الرابط طالما انك لم تقم برفع ملف 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

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

وعليكم السلام ورحمة الله حل في الملف المرفق بمعادلة صفيف... حضور.xlsx

ممكن ذلك باكثر من طريقة بداية نعملها بالطريقة الاصعب 😎 لكون حقول النص غير منظمة فقد عملنا جدولين وعملنا استعلام الحاق لكل من حقلي النص في حدث عند التحديث DoCmd.SetWarnings False DoCmd.RunSQL "insert into tbl1(tx1 )VALUES (tx1)" Me.Combo4.Requery DoCmd.SetWarnings True وكذلك للحقل النصي الثاني ثم عملنا استعلام توحيدي SELECT tx1 FROM tbl1 UNION ALL SELECT txt2 FROM tbl2; وجعلناه هو مصدر القائمة المنسدلة توجد طريقة اسهل من ذلك ربما اضعها في مشاركة تاليه Database2.accdb

أخى gelani نفترض ان جميع مشروعات الأكسيس لديك تحفظها فى فولدر إسمه AccessProjects الموجود على درايف \:D وعاوزين نخلى الفولدر ده Trasted Location علشان نمنع ظهور Enable Content فى كل مرة نغير فيها إسم الملف أو نمسحة ونضيفة مرة أخرى أو ننشئ مشروع جديد ننشئ لملف نصى فى اى مكان ونجعل إمتداده reg ونسميه مثلا TrustedLocation.reg ونضع به الكود السابق وسيكون هذه المرة بالصورة التاليه TrustedLocation.reg Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1] "Path"="D:\\AccessProjects\\" "AllowSubfolders"=dword:00000001 "Description"="" "Date"="" نغلق ونحفظ الملف ثم نوقوم بفتحه دبل كليك يعنى وبكدة خلاص اى ملف اكسيس داخل الفولدر اللى إسمه AccessProjects الموجود على درايف \:D هيفتح بدون اى رسائل لتمكين الماكرو أرجو أن أكون أوضحت مرفق ملف الريجسترى منفصل وايضا ملف اكسيس لعمل الفولدر وكذلك تمكين الماكرو بالتوفيق TrustedLocation.zip EnableContent.zip

بارك الله فيك وزادك الله من فضله

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

السلام عليكم يمكنك استخدام هذه المعادلة لحساب السنوات =DATEDIF(B18,C18,"y") أما الشهور فهذه المعادلة =DATEDIF(B18,C18,"ym") وأخيرا لحساب فرق الأيام يمكنك استخدام هذه المعادلة =DATEDIF(B18,C18,"md")

حل مشكلة اختفاء ورقة الخصائص الشرح الاتى نقلا عن الاستاذ الفاضل معلمى الاستاذ @Shivan Rekany اتيت اليكم بالشرح نقلا عنه لمن يريده تفصيلا ولكن هدانى الله الى ان اضع الاوامر على زر امر مباشرة لسهولة التعامل واختصارا لكل تلك الخطوات واهديكم هذه الثاعدة التى تخص حل تلك المشكلة للعلم لن استطيع فى الوقت الحالى التجربة على اكثر من نسخة مختلفة لذلك لغفروا لى ان كانت فكرتى المتواضعة تعجز عن خل المشكلة مباشرة عند اختلاف النسخ property sheet visible or not.mdb

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

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

النموذج الجديد طبعا

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

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

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

بعد اذن اخي بن علية معادلة اخرى عادية بدون (Ctrl+Shift+Enter) =IF(COUNTA($B2:$X2)=0,"",DAY(OFFSET($A2,-ROWS($A$1:A1),COUNTA($B2:$X2)))) أو هذه =DAY(LOOKUP(9^9,$B2:$X2,$B$1:$X$1)) الملف مرفق last_day.xlsx

شاكر افضالك

نظرتكم أجمل من مشاركاتي

انشاء شريط تقدم فى فورم الاكسل الفيديو

بعد اذن استاذي الفاضل ابو عارف chr34 = "

وهذا على طريقة كود في حدث بغد تحديث لـ تكست بوكس 1 و تكست بوكس 2 Database.accdb

جزاك الله خيرا وزادك علما وتوفيقا . الصورة بدأت تتضح معي وقمت بالتجربة بعدة طرق ونجحت الى حد ما . أحيانا الجهاز ليس به درايف D وارغب ان يكون الملف محفوظ بمجلد بالدرايف c او بفلاش ميموري . هل يكفي تغيير اسم الدرايف من D الى C مثلا ؟ ام هناك إجراءات أخرى ؟ وهل ينطبق هذا على جميع إصدارات الأوفيس ( 2019 مثلا ) ؟. تحياتي وتقديري لك ولجميع أعضاء القروب المحترمين .

هذي واجهه لاحد برامجي التي قمت بتصميمها لعلها تعجبك وفقك الله

😃😃 لا تستعجل يبو اشرف

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

كدا انا خفت منك ... هههه ... @ابا جودى رجل الفائدة والدعابة

الرجال خاف من حكاية الدفع . هههههههه

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

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

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

تفضل لك ما طلبت بهذه المعادلة =IF(A2=A1,C1+1,1) تجربة.xlsx

هذا كود جلب الوقت من الانترنت " توقيت جرينتش " Dim UTCDateTime As String Dim arrDT() As String Dim http As Object Dim UTCDate As String Dim UTCTime As String Const NetTime As String = "https://www.time.gov/" On Error Resume Next Set http = CreateObject("Microsoft.XMLHTTP") On Error GoTo 0 http.Open "sa", NetTime & Now(), False, "", "" http.Send UTCDateTime = http.getResponseHeader("date") [Text1] = UTCDateTime

اولا شكرا لك استاذنا @أبو آدم قم بفتح القاعدة بيانات وافتح احد نماذج في وضع تصميم واضغط على كونترول و حرف جي الانكليزية ctrl + G سيفتح لك هذه النافذة في الاسفل نافذة كتابة الاكواد كما مبينة في الصورة قم بكتابة هذه الجملة واضغط على انتر لكي يتم تفعيل خصائص الورقة CommandBars("Property Sheet").Enabled = True واذا تريد عدم التفعيل اكتب هذا CommandBars("Property Sheet").Enabled = false واضغط على انتر تقبلوا تحياتي

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