السلام عليكم بارك الله فيك استاذنا من بعد اذنك ممكن طريقة اضافة عدة صور عن طريق السكنر الى برنامج الصادر والوارد وامكانية البحث على الكتاب مع ملحقاته اي الصور وان يكون الخزن خارج البرنامج يعني في السيكوال سيرفر
السلام عليكم .ممكن طريقة اضافة عدة صور عن طريق السكنرالى برنامج الصادر والوارد وامكانية البحث على الكتاب مع ملحقاته اي الصور .وان يكون الخزن خارج البرنامج يعني في اي بارتشن اختاره
السلام استاذي الكريم خيركم من تعلم العلم وعلمه رغم ان الدرس مهم غير انك لم توضح للمتلقي كيفية العمل خطوة خطوة حيى ولو قسمت الفيديو الي جزئين اوثلاثة وبعدين الاكواد التي اشرت اليها كان عليك تقريبها حتى تكون واضحة لنا وكتابتها ارجوا اعادة الدرس خطوة خطوة عملي حتى تعم الفائدة وتحياتي لك
السلام عليكم انا شغال على ملفات موظفين على الاكسيل وكل لما اوصل ل 25 الف صف فى الاكسيل الاكسيل بيضرب فبضطر امسح داتا مع عليه علشان اضع داتا جديدة فكنت عايز اشتغل على الاكسس بس عايز صورة الموظف تظهر جنب البحث برقم الموظف من غير ما اضع الصور على الاكسس عايز لما اضرب الرقم الوظيفى للموظف تظهر صورته من مسار الفولدر اللى هيا فيه من الرقم الوظيفى وعندى كل الصور موجود عليها الرقم الوظيفى وعاملهل كده على الاكسيل بالفيجوال بيزك بس بيضرب من كتر الداتا يا ريت تساعدنا نعملها ازاى على الاكسس من غير معمل هايبر لينك لكل صورة يعنى كود اعمله لما احط الرقم الوظيفى فى البحث يجيب صورته بواسطة المسار من الفولدر على طول والصور كلها اسمها هو الرقم الوظيفى فقط وصيغتها jpg
Dim x1 As String Dim f1 As ObjectSet f1 = Application.FileDialog(1) f1.ALLowMultiSelect = False If (f1.show = True) ThenMe![img1].Picture = f1.SelectedItems(1) x1 = f1.SelectedItems(1) File_Path = x1End If
Dim x1 As String Dim f1 As Object Set f1 = Application.FileDialog(1) f1.ALLowMultiSelect = False If (f1.show = True) Then Me![img1].Picture = f1.SelectedItems(1) x1 = f1.SelectedItems(1) file_path = x1 End If
![I.N "HALLUCINATION" | [Stray Kids : SKZ-PLAYER]](http://i.ytimg.com/vi/n5B5q1Hwt_U/mqdefault.jpg)
محتاج اعمل مشروع هل ممكن نتعامل
السلام عليكم
بارك الله فيك استاذنا
من بعد اذنك ممكن طريقة اضافة عدة صور عن طريق السكنر الى برنامج الصادر والوارد وامكانية البحث على الكتاب مع ملحقاته اي الصور وان يكون الخزن خارج البرنامج يعني في السيكوال سيرفر
بارك الله فيك استاذنا العزيز ممكن البرنامج
السلام عليكم .ممكن طريقة اضافة عدة صور عن طريق السكنرالى برنامج الصادر والوارد وامكانية البحث على الكتاب مع ملحقاته اي الصور .وان يكون الخزن خارج البرنامج يعني في اي بارتشن اختاره
السلام عليكم ممكن سؤال . اريد ادخل سكنر على برنامجي مصمم في فجول بيسك والبحث عن الصورة
عزيزى كل الشكر و التقدير
و لكن لما جيت انفذ البنامج يعطينى error time 424 على الخطوةxl = fl.SelectedItems(1)
من فضلك عند البحث باستخدام dlookup في الاكسس اريد إظهار اسم الموظف وأيضا المرفق أي صورته على الفورم ..
كل الشكر والتقدير للاهتمام
السلام عليكم
طبعا الطريقة جدا سهلة لكن كيف اعالج الخطأ في اظهار الرسالة :
Me![img1].Picture = f1.SelectedItems(1)
يرجى الرد من اجل الفائدة لي ولغيري
السلام استاذي الكريم خيركم من تعلم العلم وعلمه رغم ان الدرس مهم غير انك لم توضح للمتلقي كيفية العمل خطوة خطوة حيى ولو قسمت الفيديو الي جزئين اوثلاثة وبعدين الاكواد التي اشرت اليها كان عليك تقريبها حتى تكون واضحة لنا وكتابتها ارجوا اعادة الدرس خطوة خطوة عملي حتى
تعم الفائدة وتحياتي لك
أشكرك ولكن نفذت الكود ويظهر خطأ 450 ويحدد جملة f1 = ALLowMultiSelect = False أرجو الرد.
ممكن رابط المثال
السلام عليكم انا شغال على ملفات موظفين على الاكسيل وكل لما اوصل ل 25 الف صف فى الاكسيل الاكسيل بيضرب فبضطر امسح داتا مع عليه علشان اضع داتا جديدة فكنت عايز اشتغل على الاكسس بس عايز صورة الموظف تظهر جنب البحث برقم الموظف من غير ما اضع الصور على الاكسس عايز لما اضرب الرقم الوظيفى للموظف تظهر صورته من مسار الفولدر اللى هيا فيه من الرقم الوظيفى وعندى كل الصور موجود عليها الرقم الوظيفى وعاملهل كده على الاكسيل بالفيجوال بيزك بس بيضرب من كتر الداتا يا ريت تساعدنا نعملها ازاى على الاكسس من غير معمل هايبر لينك لكل صورة يعنى كود اعمله لما احط الرقم الوظيفى فى البحث يجيب صورته بواسطة المسار من الفولدر على طول والصور كلها اسمها هو الرقم الوظيفى فقط وصيغتها jpg
ممكن اضافة ملف pdf بدل الصور
بدل الصور pdf ممكن اضافة صور بداخل ملف
الكود بعد اذنك
Dim x1 As String
Dim f1 As ObjectSet f1 = Application.FileDialog(1)
f1.ALLowMultiSelect = False
If (f1.show = True) ThenMe![img1].Picture = f1.SelectedItems(1)
x1 = f1.SelectedItems(1)
File_Path = x1End If
جزاك الله خيرا ..بس فيه خطا بيظهر عندي في me![image1]مش عاوز بعد مابيفتح يضيف الصوره ارجو الرد للاستفادة وشكرا مقدما
Dim x1 As String
Dim f1 As Object
Set f1 = Application.FileDialog(1)
f1.ALLowMultiSelect = False
If (f1.show = True) Then
Me![img1].Picture = f1.SelectedItems(1)
x1 = f1.SelectedItems(1)
file_path = x1
End If