ادراج اخر تعديل للصورة في مربع نص

[الفيلسوف111]

السلام عليكم ورحمة الله وبركاته

كيف يمكن ان ادرج اخر تعديل (modified) للصورة التي في مربع الصوره الموجود في النموذج واجعله في مربع نص ؟ بطريقة التي في المثال المرفق ................ تحياتي

Folder_sorh.rar

[منذر عساج]

أخي الكريم

إذا كنت تقصد أنه كلما قمت بتغير الصورة يسجل تاريخ ووقت التغيير فأعتقد أنك بحاجة الى جدول

يحوي ( رقم الصورة - تاريخ التعديل - وقت التعديل)

وكلما قمت بالضغط عل زر تعديل الصورة تضع كود يغير قيمة حقل التاريخ والوقت الى الحالي

أرجو أن أكون فهمت ما تريده ,,,

والله الموفق ,,,

[الفيلسوف111]

الاخ الاستاذ الفاضل منذر عساج اشكرك على هذا التجاوب ولكن ما اعنيه هو عندما تفتح الصوره بطريقة العادية اي من خارج الاكسس وتذهب ملف (file)الى خصائص (properties) سترى اخر تعديل (modified) وترى تاريخ ووقت وهذا ما اريده ان يدرج في نموج الاكسس تحياتي

[منذر عساج]

أخي / طارق

بارك الله فيك

لا أعلم طريقة غير ما ذكرته لك

(ومن قال لا أعلم فقد أفتى )

[الفيلسوف111]

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

DateLastModified Property

Description

Returns the date and time that the specified file or folder was last modified. Read-only.

Syntax

object.DateLastModified

The object is always a File or Folder object.

Remarks

The following code illustrates the use of the DateLastModified property with a file:

Sub ShowFileAccessInfo(filespec)

Dim fs, f, s

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(filespec)

s = UCase(filespec) & vbCrLf

s = s & "Created: " & f.DateCreated & vbCrLf

s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf

s = s & "Last Modified: " & f.DateLastModified

MsgBox s, 0, "File Access Info"

End Sub

ولله الحمد

[منذر عساج]

شكرأ لك أخي طارق

هل بالإمكان إرفاق مثالك بعد التعديل لتعم الفائدة

والله الموفق ,,,