السلام عليكم ورحمة الله وبركاته
لدي نموذج وضعت به كائن لعرض صورة فل نقل الموظف
ويتم تخزين مسار الصورة التي على جهاز الكمبيوتر في الجدول التابع للنموذج
وفي حدث عند الحالي وضعت هذا الكود
Private Sub Form_Current()
On Error GoTo HandleErr
If Not IsNull([PicFile]) Then
[imgPicture].Picture = [PicFile]
SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'."
Else
[imgPicture].Picture = ""
SysCmd acSysCmdClearStatus
End If
Exit Sub
HandleErr:
If Err = 2220 Then
[imgPicture].Picture = ""
SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'"
Else
MsgBox Err.Description, vbExclamation
End If
End Subلكن ظهرت مشكلة وهي عند التنقل بين السجلات او النقر على اي زر امر بالنموذج تبدأ عناصر النموذج بالاهتزات بشكل مزعج
اوقفت الكود عن العمل فهدأ روع النموذج وعاد الى الاستقرار فتبين ان المشكلة سببها هو الكود
اردت ارفاق الملف او النموذج هنا لكن النموذج يحتوي على عدة نماذج فرعية ومرتبط بجداول كثيرة
فالحجم كبير
اتمنى مراجعة الكود واصلاحه ان كان يوجد به خطأ
او ايجاد حل للمشكلة
تحياتي