هذا ليس رائع
بل أروع من رائع وفكرة جميلة جدا عملت على 2007 بشكل ممتاز وهلا تكرمت ببيان هذا الكود
On Error GoTo Err_erru_Click
Dim scfil, fil1, pafil As Object
Dim db As Database
Dim rs As Recordset
Dim i As String
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl1")
Set scfil = CreateObject("Scripting.FileSystemObject")
Set pafil = scfil.GetFolder(CurrentProject.Path & "\photos\").Files
For Each fil1 In pafil
i = scfil.GetExtensionName(fil1.Name)
i = UCase(i)
If i = "jpg" Then
rs.AddNew
rs("picNm") = (scfil.GetBaseName(fil1.Name))
rs.UpDaTe
End If
Next
Exit_erru_Click:
Exit Sub
Err_erru_Click:
DoCmd.CancelEvent
Resume Exit_erru_Click
Set scfil = Nothing
Set pafil = Nothing
Set rs = Nothing
بوركت أبا خليل لك يد سابقة ولاحقة متعك الله بالصحة والعافية