تحويل الى حروف آسكي

الاساس هو استخدام دالة ASC

و هذا جزء من مثال قد وضعه أحد الاخوة فى المنتدي

رجاء من يعرف صاحبه ذكر اسمه

Private Sub ÃãÑ3_Click()

Dim MyLength As Integer
Dim I As Integer
Dim MySr
Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "1"
Sr = DLookup("[pass]", "password")
If IsNull(Sr) Then
MsgBox "áÇ íæÌÏ ßáãÉ ÓÑ ãÎÒäÉ Ýí ÇáÌÏæá"
Exit Sub
End If

Sr = Trim(Sr)
MyLength = Len(Sr)
I = 1
Do Until I - 1 = MyLength
MySr = MySr & Chr((Asc(Mid(Sr, I, 1))) - 18)
I = I + 1
Loop
If MySr = Me.[1].Value Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÇáÍÉ", vbCritical, "ÎØÇÁ"
End If
End Sub

و هذا هو المثال و أعتقد أنه لأحد الاخوة اسمه هاني

للأسف لم احتفظ بالاسم

passwordhany.zip

انا اعتقد انه ترد شيء اخر ؟؟

انا صنع شيء الاخر حسب فهمي لسؤاله ؟؟

هل اخ على تريد تشفير ( تغير الى رموز) كله كلمة سر ؟؟

اذا تريد هذا انا عندي ملف في هذا الموضوع لتغير النص الى رموز بواسطة كلمة سر ؟؟ و اعذادته الى اصل بواسطة كلمة سر؟؟

اذا جواب استاذ محمد طاهر هو المطلوب انا لن ارسل الملف؟؟

مع حبي لكم

اشكركم جميعا وبالفعل جواب الاستاذ محمد طاهر هو المطلوب ولكن لا مانع من ارسال الملف يا vb_access2002

حتى نرى فكرة تانية .

وللجميع تحياتي

اخونا العزيز

أرسل الملف فسيكون فيه فائدة باذن الله