ساخت پسورد تصادفی در اکسس

• آموزش ساخت پسورد تصادفی در اکسس

در یکی دیگر از قسمت های آموزش اکسس ؛ قصد داریم تا شما را با نحوه ساخت برنامه ای که بتواند ساخت پسورد تصادفی در اکسس را انجام دهد آشنا کنیم. از طریق این برنامه می توان به تعداد دلخواه اقدام به ایجاد پسورد با تعداد کاراکتر (طول) مشخص نمود.

در صورتی که بخواهید به تعداد انبوه اقدام به تولید پسورد تصادفی نمائید می توانید از حلقه ها در محیط برنامه نویسی اکسس استفاده کنید و پسوردهای تولید شده را در یک جدول ذخیره و مورد استفاده قرار دهید. برای ساخت این برنامه کاربردی مراحل زیر را به ترتیب انجام دهید:

ابتدا یک ماژول در محیط VBA ایجاد کنید و کدهای زیر را در درون آن قرار دهید:

Public Function CreateRandomPassword(strlen As Integer, Optional seed As Variant) As String
On Error GoTo Err_CreateRandomPassword
Dim i As Integer, j As Integer
Dim strSource As String
Dim strTarget As String
'دانلود کدهای کاربردی در اکسس
'www.mrplanner.ir
'*** used with the RND() function to return
' a random number
Randomize
strSource = "12345678901234567890" & _
"abcdefghijklmnopqrstuvwxyz" & _
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
strTarget = ""
For i = 1 To strlen
'*** select a character position at random
j = Int((Len(strSource) - 1) * Rnd + 1)
strTarget = strTarget & Mid(strSource, j, 1)
Next
'*** when the Target String is complete, pass it back
CreateRandomPassword = strTarget
Exit_CreateRandomPassword:
Exit Function
Err_CreateRandomPassword:
MsgBox Err.Description
Resume Exit_CreateRandomPassword
End Function

در مرحله بعدی یک فرم بسازید و دو عدد TextBox را به نام های PasswordLength جهت وارد کردن طول پسورد و دیگری را به نام txtPassword برای نمایش پسورد ساخته شده روی فرم قرار دهید. در مرحله آخر یک دکمه روی فرم قرارداده و در رویداد OnClick آن کدهای زیر را قرار دهید:

On Error GoTo Err_Command5_Click
If IsNull(Me.PasswordLength) Then
MsgBox "طول پسورد را وارد کنيد"
Else
Me.txtPassword = CreateRandomPassword(Me.PasswordLength)
End If
Exit_Command5_Click:
Exit Sub
Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click

تذکر: بجای اسم دکمه که در اینجا command5 هست اسم دکمه خود را جایگذین کنید!

فرم را دخیره کنید و آنرا اجرا کنید. حالا با وارد کردن طول پسورد و زدن دکمه ساخته شده در فرم نرم افزار پسوردهای تصادفی را برای شما تولید و به نمایش در خواهد آورد.