قديم 06-20-2007, 12:25 PM   #1
-||[عضو فعال]||-
 
تاريخ التسجيل: Jun 2007
المشاركات: 13
معدل تقييم المستوى: 0
zakariazako is on a distinguished road
كود اكسس لقفل داتا بيس بكلمة السر


USER ADMINSTRATOR
-------------------------------------------------------------------------------------------------------


Private Sub btnLogin_Click()
'check for nulls
If IsNull(Me.txtPassword) Or IsNull(Me.Combo4) Then
MsgBox "You must enter a User Name and Password."
If IsNull(Me.Combo4) Or Me.Combo4 = "" Then
Me.Combo4.SetFocus
Me.Combo4.Dropdown
Else
Me.txtPassword.SetFocus
End If
Exit Sub
End If

Dim strTheUser As String
Dim strThePassword As String


If Me.txtPassword = Me.UserPassword Then 'CORRECT do log in
'set global variables to be used as default value
strTheUser = Me.TheUserName
strThePassword = Me.UserPassword
'update the LastLoggedIn field in the tblSystem table

With DoCmd
.SetWarnings False
.OpenQuery "qryUpdateLastLoggedIn"
.SetWarnings True
'open the thread list form
.Close
.OpenForm "switchboard"

End With
Else 'INCORRECT
attempts = attempts + 1 'allow 3 attempts before exiting
If attempts = 3 Then
MsgBox "The password was incorrect on 3 occasions, this system will now close, see the data**** administrator to reset your user profile."
DoCmd.Quit
Else
MsgBox "The password was incorrect, you have only " & 3 - attempts & " attempts left before this program closes."
Me.txtPassword = ""
Me.txtPassword.SetFocus
End If
End If
End Sub


zakariazako غير متواجد حالياً  
قديم 06-26-2007, 11:12 AM   #2
-||[عضو قادم بقوة ]||-
 
تاريخ التسجيل: Jun 2007
المشاركات: 2
معدل تقييم المستوى: 0
eeezeee_q8 is on a distinguished road
افتراضي


الله يعطيك العافية وعساك على القوه


eeezeee_q8 غير متواجد حالياً  
قديم 08-07-2007, 12:45 PM   #4
مشاغـب بن مـش مش أل شوشو
 
الصورة الرمزية مشاغــــــب
 
تاريخ التسجيل: Jul 2007
الدولة: إطآليآ 2a765c8
المشاركات: 4,971
مقالات المدونة: 3
معدل تقييم المستوى: 17
مشاغــــــب is on a distinguished road
إرسال رسالة عبر MSN إلى مشاغــــــب
افتراضي


اشكررررك اخوي على مووضووعك الرااايع والكثررر من راايع
تقبل مررروري معك
~¤ô_ô¤~مشاغـــــــاضغط هنا لتكبير الصوره ـــــــب~¤ô_ô¤~


0 رد: قصة مشاغب ... قصة أكثر من رائعة
0 نـشـرت أخـبـاري مـن سـي بـي أنـn
0 7 أنواع للبنات
0 محشش في اختبار النحو
0 اذا تبي تاكل كل يوم ببلاش>> ارعص هنا من فضلك<<
0 ما هي أسباب تخلف العرب وتقدم الغرب ؟
0 المنحوس منحوس لو يحطون عند بيته فلوس % لايفوتكم
0 ادخل برجلك اليمين وتفضل الموضوع موضوعك < امحق من استقبال ههههه بليييز ادخلوو
0 جديد الحشاشين
0 زواحف وطيور تتسبب في تأجيل رحلات طيران في الهند
0 العجوز والعقرب‎
0 دائرة العاشقين ....... الحب الحقيقي ؟؟؟
0 نقاش... ماسبب ردودك على المواضيع ؟؟؟؟؟
0 بـعـد غـيـاب عاد من جديد ومعي........حـكـم مـن حـيـكـم مـنـتـهـي
0 مادة التعبيـــــــر والطالب ......والجمل قاط معاهم
التوقيع
ayman_mtu_5 <------ Instagram
++ SNAPCHAT >> ayman_mtu

قدّ آگونْ مجردَ ؛ إنسَآن عآإدي”
~ فِي هذا العآإآآلم ، ،
لگنيّ آثق بِـ آننيّ لِـ شخصّ مـآ ”
آغلى منْ هَذآ العآلمّ بِـ آگمله ، ،
مشاغــــــب غير متواجد حالياً  
قديم 12-11-2007, 10:44 AM   #5
-||[عضو قادم بقوة ]||-
 
تاريخ التسجيل: Dec 2007
المشاركات: 1
معدل تقييم المستوى: 0
mhejazi is on a distinguished road
افتراضي


المكرم zakariazako مشكور جدا

واذا ممكن خدمة ؟

عندي برنامج على الاكسس واريد أن أخفي الايقونات والكود بحيث لا يمكن التعديل عليه لا على التصميم في النماذج او التقارير او الجداول ، مع العلم انني مبتديء لذلك أرجو منكم التفصيل خطوة خطوة . مع شكري وتقديري لكم.


mhejazi غير متواجد حالياً  
 

أدوات الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة



الساعة الآن 06:03 AM.


Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
المقالات أو المشاركات أو الآراء المنشورة في شبكة منتديات برق بأسماء أصحابها أو بأسماء مستعارة لا تمثل بالضرورة الرأي الرسمي لشبكة برق بل تمثل وجهة نظر كاتبها.