السلام عليك احبتي
وجدت هذا الكود للاستاذ جعفر ما عرفت الطريقه لتطبيقه على مثالي لكي يعرض لي المرفق المشفر
اريد تطبيقه علي المثال شاكرين احبتي
Source_File_Path = Me.Parent!pate & "\" & Me.name_morfke
.
يعني كودي في اول مشاركة يصبح بعد التعديل :
Private Sub name_morfke_Click()
Dim Source_File_Path As String, Destination_File_Path As String
Source_File_Path = me.parent!pate & "\" & Me.name_morfke
Destination_File_Path = Environ("Temp") & "\" & Me.name_morfke
FileCopy Source_File_Path, Destination_File_Path
Application.FollowHyperlink (Destination_File_Path)
EcryptDcryptImage (Destination_File_Path)
End Sub
Private Sub Form_Close()
On Error Resume Next
Dim Srst As DAO.Recordset
Set Srst = Me.RecordsetClone
Do Until Srst.EOF
Kill Environ("Temp") & "\" & Srst!name_morfke
Srst.MoveNext
Loop
End Sub
RR.rar