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

مين بيجيب سيرة الصعايدة - وبعدين خلينا حبايب أحسن😁 ما عهدناك ماديا أبا جودي - ولكن لو كان الحساب طعام - فاضرب لي معك بسهم. ------------------------------------------------------ لا تقلق أبا أشرف - فطلباتنا خفيفة وليست باهظة الثمن - صلاة علي النبي المصطفي (صلي الله عليه وسلم) . ودعوة بالخفي. أنا مثلك أخي ما أظن أن تصميمي للواجهات يعجب أحدا غيري.🙄 ولكن أحاول أن يكون التصميم مقبولا بعض الشيء. ----------------------------------------------- أخي أبا أشرف هذه بعض الملاحظات من وجهت نظري القاصرة للمساهمة في تحسن الصورة قدر الامكان: 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")

فكرة من بره الصندوق بالتحكم فى عدد الاسطر لكل صفحة تستطيع اظهار الامضاء فى صفحة بها بيانات وليس فى صفحة فارغة test120 (1).mdb

السلام عليكم ورحمة الله أسأل الله ان يزيدك علما وأن يحفظك من كل مكروه . جربت الكود المرفق ويعمل لدي بصورة رائعة وحيث ما وضعت الملف المرفق يجعل الأكسس يعمل بالرغم من ان مستوى الأمان مرتفع وهذا مستحيل سابقا . تحياتي وتقديري .

مفيش ابداعات ولا شئ انا استخدمت التاج والدوران على العناصر على النموذج من خلال التاج الاتى للعناصر المراد عدم تفعيلها او تعطيلها >--->> lock وهذه الاكواد يا سيدى انت تأمر اولا اضفت المتغير ده من النوع بايت ليأخذ القيم (0,1) الى راح ابين بعد قليل ليه Private Mylock As Byte وعند التحميل للنموذح اضفت الكود الاتى لأسند الى المتغير قيمة 0 Private Sub Form_Load() Mylock = 0 End Sub وهناك عغلى النموذج زر امر اسمه >--->> أمر11 واضفت الكود الى زر الامر Select Case Mylock Case Is = 0 Me.أمر11.Caption = "تفعيل" Mylock = 1 Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then If ctl.Tag = "lock" Then ctl.Enabled = False End If End If Next ctl Exit Sub Case Is = 1 Me.أمر11.Caption = "تعطيل" Mylock = 0 For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then If ctl.Tag = "lock" Then ctl.Enabled = True End If End If Next ctl Exit Sub End Select شرح الكود اذا كان المتغير = 0 اعادة تسمية زر الامر الى تفعيل تغير قيمة المتغير فتكون=1 الدوران على كل العناصر على النموذج ان كانت تيكست بوكس او كومبو بوكس او ليست بوكس وكان التاج لكل منهم هو >--->> lock يتم تنفيذ الامر التالى على كل تلك العناصر دفعة واحدة .Enabled = False والعكس عندما يتغير قيمة المتغير واسم زر الامر يغنى كودين على زر امر واحد بدل من زرين امر

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

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

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

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

رائع دائما @ابا جودى

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

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

صحيح وبالذات لما يكون الكود طويل ويحتوي على عدد من اسماء الحقول 😣 الشكر لله اخي @rey360

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

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

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

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

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

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

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

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

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

تفضل ghaleb1.xlsx

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

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

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

اليك الملف فى انتظار الرد الفيديو به الشرح الصورة الملف خريطة العراق(1).rar

هذا كود جلب الوقت من الانترنت " توقيت جرينتش " 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