اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

image.png.37c03644d87ee1bb13168798126ebaf0.png

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

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

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

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

دا انا مسكين 😇

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

رابط هذا التعليق
شارك

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

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

 

Database2.mdb 448 kB · 8 downloads

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

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

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

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

رابط هذا التعليق
شارك

طيب

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

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

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

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

القاعدة.rar

رابط هذا التعليق
شارك

  • 1 month later...

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

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

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

تحياتي

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information