البحث في الموقع

السلام عليكم ورحمة الله تعالى وبركاته طبعا لن اضع افكارى صريحة لتطبيق فكرة محددة لا أنوى أن اعطيكم سمكا بل انوى أن أعلمكم الصيد ... لذلك سوف اضع الاكواد والافكار على وجه العموم وعلى سبيل الشرح ليس الا وليدل كل منكم بدلوه فى التطبيق وليستحضر بنات افكاره كما يترأى له 1- الحماية عن طريق اضافة بيانات الحماية فى الريجسترى نستخدم الأكواد الاتية فى وحدة نمطيه التطبيق فى القاعدة المرفقة .. تم وضع بعض التلميحات على الأكواد Public Const MyRegPath As String = "HKEY_CURRENT_USER\Software\Officena.net" Public Const MyRegKey As String = "Judy" Public Const myStringValue As String = "محمد" Public Const myValueData As String = "ابو جودى" 'returns True if the registry key i_RegKey was found 'and False if not Function RegKeyExists(i_RegKey As String) As Boolean Dim myWS As Object On Error GoTo ErrorHandler 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'try to read the registry key myWS.RegRead i_RegKey 'key was found RegKeyExists = True Exit Function ErrorHandler: 'key was not found RegKeyExists = False End Function Function RegKeyRead(i_RegKey As String) As String Dim myWS As Object On Error Resume Next 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'read key from registry RegKeyRead = myWS.RegRead(i_RegKey) End Function Function RegKeySave(i_RegKey As String, _ i_Value As String, _ Optional i_Type As String = "REG_SZ") Dim myWS As Object 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'write registry key myWS.RegWrite i_RegKey, i_Value, i_Type End Function Function RegKeyDelete(i_RegKey As String) As Boolean Dim myWS As Object On Error GoTo ErrorHandler 'access Windows scripting Set myWS = CreateObject("WScript.Shell") 'delete registry key myWS.RegDelete i_RegKey 'deletion was successful RegKeyDelete = True Exit Function ErrorHandler: 'deletion wasn't successful RegKeyDelete = False End Function يتبع.. القاعدة المرفقة 01-Dealing with the registry.accdb

السلام عليكم ورحمه الله وبركاته اخوانى فى الله احببت ان اضع درس بسيط لا يخفى على الكثيرين منكم ولكن مشاركه منى لما اتعلمه وحتى يستفاد منه المبتدئين امثالى ممن يتعلمون فى بعض الاحيان نحتاج حقل نصى ولكن سوف نكتب به ارقام وحتى لا نقوم بحجز مساحات دون داعى على سبيل المثال حقل لارقام المحمول نجعله نصى لان حقل المحمول سيتم تخزين فيه مثلا 11 رقم وحتى يقبل 0 باول الرقم , لان الحقل الرقمى لا يقوم بذلك مثل الصوره الاولى الكود التالى IsNumeric([Tel])=صواب Or Is Null يقوم باجبار المستخدم بادخال قيم رقميه او ترك الحقل فارغ كما الصوره التاليه وبالمثال يتضح المقال ارجو ان اكون وفقت للشرح تقبلوا تحياتى وتمنياتى لكم بالتوفيق طبتم واهتديتم ex.mdb