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

السلام عليكم ورحمة الله تعالى وبركاته تم تعديل المرفق وتغيير الاكواد حاولت جعل الية العمل اكثر سلاسة من التعقيدات التى كانت بالشرح والمرفق القديم المميزات - انشاء رمز Qr وحفظ صورته في المسار القاعدة - إمكانية قراءة البيانات من أي صورة تحتوى على QR CODE للبيانات التي تريدها ملاحظة هامة .. لابد من وجود Framework الاصدار 4 وأخيرا المرفق..... في انتظار آرائكم بعد التجربة Generate Or Read QR Code Image V.02.zip

السلام عليكم 🙂 يمكنك توصيل صوتك ، وقراءة ما يريده معظم المبرمجين في بقية العالم 🙂 اكسس: https://feedbackportal.microsoft.com/feedback/forum/818e3b49-e61b-ec11-b6e7-0022481f8472 اكسل: https://feedbackportal.microsoft.com/feedback/forum/c23f3b77-f01b-ec11-b6e7-0022481f8472 بوربوينت: https://feedbackportal.microsoft.com/feedback/forum/af2977de-2f1c-ec11-b6e7-0022481f8472 وورد: https://feedbackportal.microsoft.com/feedback/forum/fb6d67e3-301c-ec11-b6e7-0022481f8472 جعفر

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم وجدت لك هذه الطريقة ضع التالي في وحدة نمطية Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As LongPtr, ByVal dwExtraInfo As LongPtr) Private Declare PtrSafe Function GetKeyboardState Lib "user32.dll" (ByVal lpKeyState As LongPtr) As Boolean #Else Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Function GetKeyboardState Lib "user32.dll" (ByVal lpKeyState As Long) As Boolean #End If Private Const KEYEVENTF_EXTENDEDKEY As Long = &H1 Private Const KEYEVENTF_KEYUP As Long = &H2 Private Const VK_NUMLOCK As Byte = &H90 Private Const NumLockScanCode As Byte = &H45 Public Sub ToggleNumlock(enabled As Boolean) Dim keystate(255) As Byte 'Test current keyboard state. GetKeyboardState (VarPtr(keystate(0))) If (Not keystate(VK_NUMLOCK) And enabled) Or (keystate(VK_NUMLOCK) And Not enabled) Then 'Send a keydown keybd_event VK_NUMLOCK, NumLockScanCode, KEYEVENTF_EXTENDEDKEY, 0& 'Send a keyup keybd_event VK_NUMLOCK, NumLockScanCode, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0& End If End Sub واستخدمها بالكود التالي 'Turn Numlock off. ToggleNumlock False 'Turn Numlock on. ToggleNumlock True تحياتي

وعليكم السلام 🙂 ولو ان سؤالك غير واضح ، اليك الجواب حسب فهمي للموضوع 🙂 هذان اللونان: . مصدرهما: . جعفر

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

إن كان ناتج هذه المعادلة مرجع نطاق مثل A1 فيمكن استعمال هذه المعادلة =HYPERLINK("#"&CELL("address",INDIRECT("data!"&IFERROR(VLOOKUP(H11;DATA!A3:AQ252;43;FALSE);VALUE(("0"))))),"click here") ويمكن تغيير نص الرابط click here إلى أي نص مرغوب بالتوفيق

أبشرك .. اشتغل ولله الحمد .. مع التحديث الأخير .. وأنا بتوع ال 64 😄

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

تفضل التعديل New folder.zip

السلام عليكم الرجاء ارفاق الملف

@أ / محمد صالح متشكر جدا

تفضل التعديل الدائن و المدين.zip

ايوة جربت واشتغل مية مية وان شاء الله هحاول في فكرة تشغيل كمسئول

جزاكم الله خيرا هل جربت هذا المرفق استاذى الجليل وهل عمل معكم اعتذر كثيرا لاثقالى عليكم بالامس ولكن بفضل الله ثم انتم اكتشفت المشاكل التى كانت تمنع تسجيل المكتبات ----------------------------- يا استاذ @moamen salem هل جربت تستعرض اى صورة Qr وتعرف البينات اللى فيها من قاعدة البيانات تعمل سكان لصورة

مجهود مميز جدا ربنا يحفظك يارب ويديك الصحة والعافية وأدام عليك نعمة العطاء اخى الكريم وجزاك الله عنا كل خير الدنيا والآخرة اللهم امين احترامى

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

السلام عليكم أساتذي أنا استخدم هذه الطريقة وهي تعمل حتى مع الويندوز 10 تحياتي @echo off goto permissionCheck :permissionCheck echo Checking permissions... SET adminRights=0 FOR /F %%i IN ('WHOAMI /PRIV /NH') DO ( IF "%%i"=="SeTakeOwnershipPrivilege" SET adminRights=1 ) IF %adminRights% == 1 ( echo Elevated permissions confirmed. echo F| XCOPY C:\Source\Sami.dll C:\Windows\System32\Sami.dll pause >nul ) ELSE ( echo Elevated permissions absent. echo. echo This file needs to be run as an Administrator. echo. echo Close this window, right-click on the file and click "Run as Administrator". echo OR echo Log on to an Administrator account and run this file normally. pause >nul )

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل اخى الكريم Private Sub CommandButton2_Click() 'Declare Variables Dim FSO Dim sFile As String Dim sSFolder As String Dim sDFolder As String 'This is Your File Name which you want to Copy sFile = TextBox1.Text 'اكتب الموقع المتواجد فيه الملفات التى تريد نسخها sSFolder = "D:\" 'Change to match the destination folder path sDFolder = ComboBox1.Value 'Create Object Set FSO = CreateObject("Scripting.FileSystemObject") 'Checking If File Is Located in the Source Folder If Not FSO.FileExists(SFolder & sFile) Then MsgBox "Specified File Not Found", vbInformation, "Not Found" 'Copying If the Same File is Not Located in the Destination Folder ElseIf Not FSO.FileExists(sDFolder & Dir(sFile)) Then FSO.CopyFile sFile, sDFolder, True MsgBox "Specified File Copied Successfully", vbInformation, "Done!" Else MsgBox "Specified File Already Exists In The Destination Folder", vbExclamation, "File Already Exists" End If End Sub

دائما اخي الكريم عند نسخ نموذج من ملف انسخ ملحقاته من المديولات ..... انظر ملفك بعد اضافة المديولات الناقصة ..... db1.rar

تفضل db1.zip

تفضل التعديل الدائن و المدين.zip

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

جرب المحاولة دي test (3).xlsm

إن شاء الله تفيدك هذه المواضيع

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

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

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

جهود جبارة مهندسنا .. 🌹 بس بيطلعلي كذا لما أشغل ملف register.cmd :: أعتقد فيه مشكلة .. ولما أفتح البرنامج :