كيفية عمل كلمة مرور لفتح شاشة في برنامج الاكسس
كيفية عمل كلمة مرور لفتح شاشة في برنامج الاكسس
مغلق
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
If InputBox("أدخل الكلمة السرية ", "كلمة سر مطلوبة") <> "1111" Then
DoCmd.CancelEvent
Else
DoCmd.OpenForm "اسم النموج هنا"
End If
End Sub
كلمه السر هي
1111
تم تعديل هذه المشاركة بواسطة سمير بعلبكي في 16 يوليو 2006 في 00:39
لبنان / قب الياس
/index.php?showtopic=37977
موقع كتب الحاسب العربيه
http://www.cb4a.com/books/
-------------------
هذا الموضوع مغلق.