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

[محسن سرحان]

البرنامج لا يعمل

 

[د.كاف يار]

الان, محسن سرحان said:

البرنامج لا يعمل

 

هل فيه رسالة خطأ؟

[عمر ضاحى]

5 ساعات مضت, د.كاف يار said:

ماهو اصدار الاوفيس لديك ؟؟

فى نقطه حضرتك اعتقد انك مش واخد بالك منها 

انا مبتدأ يعنى انا مش فاهم الكود كله 100% 

فى حاجات فهمتها وحاجات محتاجه شرح ليه اتكتبت كده وليه الارقام دي وغيره 😌

ويبدو ان حضرتك بتكلمنى على انى محترف ابدا والله 😁

دا انا مسكين 😇

يعنى ايه ال ممكن اكتبه مثلا

[عمر ضاحى]

4 ساعات مضت, د.كاف يار said:

خلاص لغينا استخدام المكتبة جرب هذا التعديل

 

Database2.mdb 448 kB · 8 downloads

استاذ @محسن سرحان

الملف شغال تمام 

ربما المشكله عندك

جرب ان تغير نسخة البرنامج لاصدار 2007 او اعلى 

[محسن سرحان]

لا يغمل على اكثر من جهاز

[محسن سرحان]

طيب

بالبحث فى المنتدى وجدت مشاركة بعنوان

كيفية ادراج مجموعة كبيرة من الصور في ملف اكسس تصل الى 100000 صورة وربط كل صورة بسجل معين

وبها قاعدة بيانات ربما تكون المطلوب

ولكن ارجو من احد الاخوة تحويل القاعدة الى امسس 2003

القاعدة.rar

[د.كاف يار]

8 ساعات مضت, محسن سرحان said:

لا يغمل على اكثر من جهاز

هل يوجد رسالة خطأ ؟؟

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

2 ساعات مضت, محسن سرحان said:

طيب

بالبحث فى المنتدى وجدت مشاركة بعنوان

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

تحياتي

[محسن سرحان]

لا يعمل

 

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

بداية عوداً حميداً اخي @محسن سرحان

هذه محاولة ارجو ان تفيدك باذن الله

1 - حولت حقل الصورة الى مربع نص / Long Text

2 - اضفت كود للحصول على امتداد الملف وهو كالتالي

Function File_Type(filename)
    
    Dim File_Folder As String
    File_Path = CurrentProject.Path & "\" & "\Img\"
    File_Folder = Dir(File_Path & filename & "*")
    File_Type = Right$(File_Folder, Len(File_Folder) - InStrRev(File_Folder, "."))
    
End Function

3 - وضعت كود لتحديث حقل الصورة باسم الصورة الذي هو ID مع امتداد الملف ( وهذه لجميع الصور ) ان وجد

    Dim rs As DAO.Recordset
    Dim i As Integer

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1")
    File_Path = CurrentProject.Path & "\" & "\Img\"
    
            If Not rs.BOF Then
                rs.MoveFirst
                While (Not rs.EOF)
                    rs.Edit
                        If Len(File_Type(rs.Fields(0))) > 0 Then
                             rs.Fields(2) = File_Path & rs.Fields(0) & "." & File_Type(rs.Fields(0))
                             rs.Update
                        Else
                            rs.MoveNext
                        End If
                    rs.MoveNext
                Wend
            End If

    rs.Close
    Set rs = Nothing

4 - غيرت في التقرير الحقل ليكون حقل صورة

جرب واعلمني بالنتيجة بارك الله فيك

القاعدة.rar

تحياتي