سلام.
من از بانک داده ای در یک شبکه محلی استفاده می کنم که یکی از مهمترین کارهاش باز کردن فایلهای عکس با حجم تقریبی یک مگابایت است. ولی باز کردن عکسها خیلی طول میکشه (حدود 2 تا 4 ثانیه).
فاکنشنی که برای این کار استفاده می کنم این است:
Public Sub ImageZoom(fieldName As Variant)
On Error Resume Next
If fieldName <> "" Then
DoCmd.SetWarnings False
Dim iPath As String
Dim cr As Long
cr = Me.CurrentRecord
iPath = "C:\ImageFolder\"
filePath = iPath & fieldName
Application.FollowHyperlink filePath
DoCmd.Requery
DoCmd.GoToRecord acDataForm, "Form", acGoTo, cr
DoCmd.SetWarnings True
End If
End Sub
کلیت کار این است که نام فایلها در جدول وجود داره و خود فایلها در یک فولدر بخصوص. متغیر FieldName در فانکشن فوق برای ذخیره نام عکس می باشد. البته تعداد عکسهای داخل فولدر بیش از 200000 تصویر است.
لطفا در خصوص افزایش کارایی و سرعت باز شدن تصاویر بنده را راهنمایی بفرمایید.
تشکر.
پاسخ با نقل قول