wewe75 قام بنشر أغسطس 25, 2007 مشاركة قام بنشر أغسطس 25, 2007 اخواني ارجو المساعدة في بيان كيفية وضع باسوورد على فورم معين بحيث لا يفتح الفورم الا عند ادخال الباسوورد الصحيح بارك الله فيكم رابط هذا التعليق شارك More sharing options...
Dream_Works قام بنشر أغسطس 25, 2007 مشاركة قام بنشر أغسطس 25, 2007 هذي محاولة على السريع ... ضع الكود في الحدث OnOpen Dim inputLine As String Const password As String = "123" inputLine = InputBox("أدخل كلمة السر", "password") If inputLine <> password Then MsgBox ("خطأ في كلمة السر") Cancel = True End If رابط هذا التعليق شارك More sharing options...
wewe75 قام بنشر أغسطس 25, 2007 الكاتب مشاركة قام بنشر أغسطس 25, 2007 شكرا يا عزيزي وبارك الله فيك رابط هذا التعليق شارك More sharing options...
wewe75 قام بنشر سبتمبر 4, 2007 الكاتب مشاركة قام بنشر سبتمبر 4, 2007 هل هناك طريقة سهلة لعمل تغيير على الباسوورد من قبل المستخدم من خلال فورم معين يفتح المجال لتغيير الباسوورد رابط هذا التعليق شارك More sharing options...
Dream_Works قام بنشر سبتمبر 4, 2007 مشاركة قام بنشر سبتمبر 4, 2007 يمكنك استخدام الأمر InputBox لإدخال كلمة السر .. أو تقوم بتصميم فورم به مربع نص للإدخال حسب رغبتك Password = InputBox("Enter Your Password Please", "Password Dialog Title", "Default Value", "Left Alignment", "Top Alignment", _ "The Full Path Of Help File If needed (if the user press Help", "a Number Included with the Help file ") و هذا المثال موجود بالأكسيس Dim Message, Title, Default, MyValue Message = "Enter a value between 1 and 3" ' Set prompt. Title = "InputBox Demo" ' Set title. Default = "1" ' Set default. ' Display message, title, and default value. MyValue = InputBox(Message, Title, Default) ' Use Helpfile and context. The Help button is added automatically. MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10) ' Display dialog box at position 100, 100. MyValue = InputBox(Message, Title, Default, 100, 100) بعد أن يتم إدخال كلمة السر في متغير يمكنك حفظها في خاصية Tag في الفورم أو مربع النص و لكن لا يمكنك تعديل هذه القيمة إلا عند فتح الفورم بمرحلة التصميم ... يعني مثلا Docmd.OpenForm "Form1" , acDesign Forms("Form1").Tag = password docmd.close acForm , "Form1" بعد ذلك يمكنك استرجاعها و التأكد منها في أي وقت أرجو أن يكون هذا طلبك رابط هذا التعليق شارك More sharing options...
wewe75 قام بنشر سبتمبر 8, 2007 الكاتب مشاركة قام بنشر سبتمبر 8, 2007 هل يمكن ان تضع لنا هذة الكودات في مثال عملي لانني حقيقة بعد ان امسكت بطرف الخيط اضعت الخيط كله رابط هذا التعليق شارك More sharing options...
Dream_Works قام بنشر سبتمبر 8, 2007 مشاركة قام بنشر سبتمبر 8, 2007 أخي الكريم يوجد مثال جميل في المنتدى حول ذلك ... و هو أجمل من فكرتي البسيطة كلمة السر للفورم رابط هذا التعليق شارك More sharing options...
wewe75 قام بنشر سبتمبر 9, 2007 الكاتب مشاركة قام بنشر سبتمبر 9, 2007 اخي dream work ما قصرت ابدا لكن الملف المرفق newpassword في الوصلة المرفقة لا يفتح هل بالامكان ان تنزله على وصلة هذا الموضوع واكن لك من الشاكرين رابط هذا التعليق شارك More sharing options...
Dream_Works قام بنشر سبتمبر 9, 2007 مشاركة قام بنشر سبتمبر 9, 2007 تفضل أخوي أرجو أن يعمل هذا معك ... NewPassword.rar رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر سبتمبر 9, 2007 مشاركة قام بنشر سبتمبر 9, 2007 الله يعطيك العافية وجزاك الله خير رابط هذا التعليق شارك More sharing options...
wewe75 قام بنشر سبتمبر 9, 2007 الكاتب مشاركة قام بنشر سبتمبر 9, 2007 الله يجزاك عنا كل الخير مشرفنا المميز رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.