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

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

قام بنشر

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

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

عندى فولدر به 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.accdb

  • Like 1
قام بنشر
6 دقائق مضت, محسن سرحان said:

اولا الف شكر

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

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

 

 

9 دقائق مضت, د.كاف يار 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

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

ابداع

 

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

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

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

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

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

  • Like 1
قام بنشر

الله عليك

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

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

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

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

قام بنشر
9 دقائق مضت, عمر ضاحى said:

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

 

 

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

ابداع

 

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

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

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

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

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

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

19 دقائق مضت, محسن سرحان said:

اولا الف شكر

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

تم هذا اصدار 2003

 

Database2.mdb

  • Like 3
قام بنشر (معدل)
منذ ساعه, د.كاف يار said:

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

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

image.png.fc785d7c802940d61e363141755beaba.png

 

 

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

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

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

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

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

وبامتداد  .jpg

 

 

 

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

 

تم تعديل بواسطه عمر ضاحى
قام بنشر
13 دقائق مضت, محسن سرحان said:

حاضر

 

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

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

9 دقائق مضت, عمر ضاحى said:

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

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

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

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

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

وبامتداد  .jpg

 

 

 

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

 

image.png.37c03644d87ee1bb13168798126ebaf0.png

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information