كيف انشاء شاشة login

[ssilmi]

السلام عليكم

الاخوة الكرام انا جديد علي الاكسيس و اريد عمل شاشة login ب اسم مستخدم و كلمة مرور .

ارجو المساعدة بارك الله فيكم

تم تعديل مايو 24, 2009 بواسطه ssilmi

[y_mom2003]

السلام عليكم

ده مثال حلو

كلمة السر :mom

الباسورد : 123456

توجد فورم يمكن من خلالها تعريف اكثر من شخص

test.rar

[ssilmi]

السلام عليكم

ده مثال حلو

كلمة السر :mom

الباسورد : 123456

توجد فورم يمكن من خلالها تعريف اكثر من شخص

مشكور اخي علي المجهود

في سؤال صغير لما افتح الداتبيز بيروح مباشرة الي شاشة اللوقين كيف اقوم بعمل هذه الحركة بالاضافة الكود مخفي و النمازج كذلك حبذا لو وضحته شوية اكون شاكر الك كتير

[كاسبر]

مثال جميل

خل يدك على الـ شفت وأفتح القاعدة يفتح الكود معك والتصميم.

[-أبو الأنس-]

شكرا

[كمال النحال]

أخي العزيز

تسلم على المثال والشرح ... الله يجعله في ميزان حسناتك

[y_mom2003]

السلام عليكم

اخوانى الاعزاء

اليكم شرح المثال

Function EncryptDecrypt(strIn As String, strpass As String) As String
Dim intLen As Integer
Dim intCounter As Integer
Dim varTmp As Variant
Dim strTmp As String
intLen = Len(strpass)
strTmp = strIn For intCounter = 1 To Len(strIn)
varTmp = Asc(Mid$(strpass, (intCounter Mod intLen) - intLen * ((intCounter Mod intLen) = 0), 1))
Mid$(strTmp, intCounter, 1) = Chr$(Asc(Mid$(strIn, intCounter, 1)) Xor varTmp)
Next

EncryptDecrypt = strTmp

End Function

وهذا دالة التشفير

Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Sub HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Sub

Public Sub ShowAccess()
Call ShowWindow(Access.hWndAccessApp, 5)
End Sub

دالة اخفاء الاكسس

Function changeproperty(strPropName As String, varPropType As Variant, varPropValue As Variant)
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb On Error GoTo Change_err
dbs.Properties(strPropName) = varPropValue
changeproperty = True
Change_Bye:
Exit Function
Change_err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
changeproperty = False
Resume Change_Bye
End If
End Function

دالة لغاء عمل شيفت

ارجوا ان اكون وضحت

وشكرا لاخ

كمال النحال

وابو خليل

وكاسبر

و ssilmi

[ssilmi]

الاخو الكرام بارك الله فيكم جميعا و اسال الله ان يكون بميزان حسناتكم جميعا