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