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

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

قام بنشر

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

ارجو سرعة حل المشكلة

عندى فولدر به 15000 خمس عشرة الف صورة تسميتها برقم جلوس الطالب

وعندى قاعدة بيانات طلاب بها حقل اسمه جلوس الطالب ارجو ربط  الصورة برقم الجلوس فى جدول البيانات

ولو في صورة ناقصه اعرفها ازاى

ارجو عمل مثال على اوفيس 2003

وشكرا مقدما

 

قام بنشر

ارفق ملف مثال عشان تاخذ عليه التعديل

او استخدم الكود التالي

Dim fso As Object
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim x As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFolder = oFSO.GetFolder("مسار المجلد")
 
For Each oFile In oFolder.Files
 
    x = x & vbNewLine & oFile.Name
  
Next oFile

MsgBox x

سيتم عرض اسماء الصور التي في المجلد في صندوق الرسائل

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

تفضل هذا المثال

اختر المجلد

ثم تحميل 

سيتم تحميل كافة اسماء الملفات و اضافة رابط الموقع اليها

Report.accdbFetching info...

  • Like 1
قام بنشر
  في 25‏/7‏/2021 at 13:06, محسن سرحان said:

اولا الف شكر

ثم ارجو وضع رابط 2003

Expand  

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

 

 

  في 25‏/7‏/2021 at 13:04, د.كاف يار said:

ارفق ملف مثال عشان تاخذ عليه التعديل

او استخدم الكود التالي

Dim fso As Object
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim x As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFolder = oFSO.GetFolder("مسار المجلد")
 
For Each oFile In oFolder.Files
 
    x = x & vbNewLine & oFile.Name
  
Next oFile

MsgBox x

سيتم عرض اسماء الصور التي في المجلد في صندوق الرسائل

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

تفضل هذا المثال

اختر المجلد

ثم تحميل 

سيتم تحميل كافة اسماء الملفات و اضافة رابط الموقع اليها

Report.accdb 1.09 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

Expand  

بسم الله ما شاء الله 

ابداع

 

بس ممكن اطلب اضافه صغيره

لو فرضنا ان هناك مجلد اسمه img مع ملف قاعدة البيانات 

وان فى جدول الطلبه رقم جلوس 123456

و فى ملف الصور img هناك صورة اسمها 123456.jpg

كيف اربط بينهم تلقائي بدون ما كل مره اذهب لوضع مسار الصوره 

  • Like 1
قام بنشر

الله عليك

تمام هو المطلوب

مع اضافة بسيطة

لو مجلد الصور ناقص صورة او اكثر يبلغنى برسالة ان الطالب رقم كذا لا توجد له صورة

اسف على الاطالة لكن الامر ضروري

قام بنشر
  في 25‏/7‏/2021 at 13:16, عمر ضاحى said:

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

 

 

بسم الله ما شاء الله 

ابداع

 

بس ممكن اطلب اضافه صغيره

لو فرضنا ان هناك مجلد اسمه img مع ملف قاعدة البيانات 

وان فى جدول الطلبه رقم جلوس 123456

و فى ملف الصور img هناك صورة اسمها 123456.jpg

كيف اربط بينهم تلقائي بدون ما كل مره اذهب لوضع مسار الصوره 

Expand  

تم كذلك المرفق يناسبك

  في 25‏/7‏/2021 at 13:06, محسن سرحان said:

اولا الف شكر

ثم ارجو وضع رابط 2003

Expand  

تم هذا اصدار 2003

 

Database2.mdbFetching info...

  • Like 3
قام بنشر
  في 25‏/7‏/2021 at 13:27, عمر ضاحى said:

وهذا ملف للعمل عيه 

Report.rar 108.02 kB · 0 downloads

Expand  

طيب اربط مربع الصورة بالجدول مباشرة 

لأن رابط الصورة بالكامل راح يكون في الجدول

image.png.fc785d7c802940d61e363141755beaba.png

 

 

قام بنشر (معدل)
  في 25‏/7‏/2021 at 13:30, د.كاف يار said:

طيب اربط مربع الصورة بالجدول مباشرة 

لأن رابط الصورة بالكامل راح يكون في الجدول

image.png.fc785d7c802940d61e363141755beaba.png

 

 

Expand  

الفكره ال انا كنت عاوزها تتلخص فى سطر زي كده

me.img= "\img\" & [No_D] & [.jpg]

بس مش عارف كيف انفذها

هنا بقول للبرنامج روح للفلدر اسم img

وابحث عن ملف الصوره يكون اسمه مطابق لاسم No_D

وبامتداد  .jpg

 

 

 

الفكره قريبه من الموضوع الاستاذ @محمد أبوعبدالله بارك الله فيه

 

تم تعديل بواسطه عمر ضاحى
قام بنشر
  في 25‏/7‏/2021 at 14:46, محسن سرحان said:

حاضر

 

المرجع لا يضاف.png

Expand  

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

  في 25‏/7‏/2021 at 14:52, عمر ضاحى said:

الفكره ال انا كنت عاوزها تتلخص فى سطر زي كده

me.img= "\img\" & [No_D] & [.jpg]

بس مش عارف كيف انفذها

هنا بقول للبرنامج روح للفلدر اسم img

وابحث عن ملف الصوره يكون اسمه مطابق لاسم No_D

وبامتداد  .jpg

 

 

 

الفكره قريبه من الموضوع الاستاذ @محمد أبوعبدالله بارك الله فيه

 

Expand  

image.png.37c03644d87ee1bb13168798126ebaf0.png

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