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

السلام عليكم ورحمة الله تعالى وبركاته طبعا لن اضع افكارى صريحة لتطبيق فكرة محددة لا أنوى أن اعطيكم سمكا بل انوى أن أعلمكم الصيد ... لذلك سوف اضع الاكواد والافكار على وجه العموم وعلى سبيل الشرح ليس الا وليدل كل منكم بدلوه فى التطبيق وليستحضر بنات افكاره كما يترأى له 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

السلام عليكم ورحمة الله وبركاته بسم الله والحمدلله والصلاه والسلام على من لا نبى بعده سيدنا وامامنا وقائدنا وشفيعنا محمد صل الله عليه وعلى آله وصحبه وسلم تسليما كثيرا درس اليوم بسيط جدا ومهم وقد اتعبنى هذا الفرق كثيرا الى ان رايت هذا الفيديو واردت مشاركتكم المعلومه للاستفاده والاستذاده من اخوانى واساتذتى جزاهم الله عنا كل خير وانول بهذا دعوه صالحه لى ولجميع اخوانى واساتذتى جزاهم الله خيرا وحتى لا اكون ممن كتم علما هذا الدرس لايضاح الفرق فى استخدام النقطه . و علامة التعجب ! ومرفق مثال للتوضيح اكثر مثلا الكود التالى سوف يعرض رساله وبها اسم النموذج Private Sub btnNFrm_Click() MsgBox Me.name End Sub وهذا الكود سوف يعرض القيمه بالحقل Private Sub btnName_Click() MsgBox Me!name End Sub والفيديو تقبلوا تحياتى new.accdb