نموذج توقف عن العمل فجأه

[TQTHAMI]

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

مرفق نموذج كان يعمل 100% ولكني دخلت على الاكواد واعتقد انه حصل خطاء وتم الحفظ وبعد فتره قمت بنقل النموذج على قاعدة بيانات اخرى ولكنه لم يعمل

فياليت احد يشوف الي خل 

والسلام عليكم

بيانات.accdb

[محمد أبوعبدالله]

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

المشكلة لديك انه كانت هناك مكتبات تعمل في قاعدة البيانات القدية ولم يتم اضافتها الى الجديد

على كل حال تفضل هذا الكود البسيط لاضافة الصور ويعمل على 64 و 32 بت ايضاً

    Dim fpathz As Variant
    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
          .Filters.Clear
          .Filters.Add "jpg image", "*.jpg"
          .Filters.Add "jpeg image", "*.jpeg"
         .AllowMultiSelect = False
         .InitialFileName = ""
      
      If .Show = -1 Then
         fpathz = .SelectedItems(1)
         Me.PicFile = fpathz
         Me.imgPicture.Picture = fpathz
    
     End If
    End With

بيانات.rar

تحياتي

[TQTHAMI]

السلام عليكم 

شاكر لكم ماقمتوم به 

ولكن للاسف الملف معطوب كل مافكيته يظهر لي رساله الملف معطوب

 

[محمد أبوعبدالله]

تفضل اخي الكريم

بيانات.accdb

تحياتي

[TQTHAMI]

عموما استخدمت الكود والحمد لله وشاكر ومقدر لك وبارك الله فيك 

وتقبل تحياتي

[TQTHAMI]

للاسف اشتغل معي مره وحدة  وعند التجربه الثانيه  وثم طلعت هذي الرساله 

[محمد أبوعبدالله]

الصورة المرفقة ليست نفس قاعدة البيانات المرفقة

تأكد جدياً من وجود عنصر الصور باسم imgPicture

وتأكد من وجود حقل PicFile

تحياتي