تعديل كود اضافة اكثر من صورة

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء

لدي ملف لاحد الاخوة بالموقع لاضافة صور من جهاز الحاسوب وعمل مسح ضوئي  للصور وهو يعمل جيدا

المطلوب سواء باضافة جدول فرعي مرتبط بالجدول الرئيسي او غيرها

تعديل الكود المرفق  لكي يسمح باضافة اكثر من صورة  عن طريق زر add pic بالنموذج 

وعمل ترقيم للصور تسلسلي داخل ملفARCHIVE بجانب الملف

علما بان الكود يقوم بتسمية الصورة بناء على موضوع ورقم الكتاب

وشكرا لكم

 

On Error GoTo ErrHandler

If IsNull(Emp_Code) Or Emp_Code = "" Then
        DoCmd.OpenForm "frmMassage"
        Forms!frmMassage!lblMassage.Caption = " فضلاً يجب أن تقوم بإدخال كود الموظف حتى تتمكن من إضافة صورة الموظف "
        Me.Emp_Code.SetFocus
Else

Dim Import_Path As String
Import_Path = GetOpenFile_CLT("c:\windows\desktop\", ".حدد مكان الصورة")
If Import_Path <> "" Then

Me![Import_pictures_path] = Import_Path
Me![Import_pictures_path] = LCase(Me![Import_pictures_path])
Me![Image].Picture = Me![Import_pictures_path]

Dim Dir_Archive, Dir_Import
Dim Project_path As String
Project_path = Application.CodeProject.path

Dir_Archive = Import_pictures_path
Dir_Import = Project_path & "\Archive" & "\Import" & "\" & Me.booksnumber & "_" & Me.subject & ".jpg"
FileCopy Dir_Archive, Dir_Import
Me.TxtImagePath = Dir_Import

Image_d.Visible = False

ErrHandler:
    If Err.Number = 94 Then
        Resume Next
End If
 End If
 End If

 

test.rar

تم تعديل مارس 14, 2022 بواسطه Ahmed_J

[Ahmed_J]

up

[walid7799]

ممكن شرح مطول للمطلوب واعتقد عندى حل بس خايف اكون غلطان فى تقديرى

[Ahmed_J]

السلام عليكم استاذي العزيز

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

لدي فاعدة بيانات ارشفة الكتب الرسمية  

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

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

المشكلة: انه في بعض الاحيان ياتي مع الخطاب الرسمي مرفقات (يعني الكتاب يصبح عدة صور) 

المطلوب : هل يمكن عمل مسح ضوئي عن طريق سكانر فيدر  وتحفظ الصور في ملف بجانب قاعدة البيانات لسجل واحد  (يعني كتاب او خطاب رسمي مع جميع مرفقاته)

ياخذ تسلسل او اسم سجل واحد

اتمنى ان اكون وفقت بالشرح

تحياتي

[walid7799]

لم أكمل قرأة ما كتبته كنت مشغول وحالا خلصت تعديل القاعدة الخاصة بك وتم عمل جدولين جديد وعمل 2 نموذج الاساسى أسمه form1 وهو ما طلبت بكل نفاصيله

وعليك التجربة

متمنيا من الله خيراً ما تمنيته من عند العباد والحمد لله

وصلى اللهم وسلم وزد بارك على سيد ولد أدم (محمد بن عبد الله) نبياً ورسولاً وخاتم المرسلين

test.rar

الملف الحفظ طبقا للكود 

E:\scan\in

يمكن تغييره بالأكواد

 

[Ahmed_J]

شكرا جزيلا استاذ وليد @walid7799

بالنسبة لكود اضافة الصور   نعم يعمل بصورة جيدة

اما الماسح الضوئي ان شاء الله عدا اعمل عليه واجربه لانه لايتوفر لدي جهاز ماسح ضوئي فيدر بالمنزل

تحياتي لك

وبارك الله فيك

[ابو جودي]

السلام عليكم 

يبدو اننى حضرت متأخرا

وزيادة فى الخير بعد تجربتكم لاجابة استاذ @walid7799 

انظر الى الموضوع الاتى فيه ضالتك ان شاء الله ( اضافة اكثر من صورة  مع الترقيم ) بدون الاعتماد على اى دوال  API  المرفق يعمل على النواتان 32 , 64 

 

 

[ازهر عبد العزيز]

5 ساعات مضت, ابو جودي said:

انظر الى الموضوع الاتى فيه ضالتك ان شاء الله ( اضافة اكثر من صورة  مع الترقيم ) بدون الاعتماد على اى دوال  API  المرفق يعمل على النواتان 32 , 64 

اين الموضوع

[ابو جودي]

2 ساعات مضت, ازهر عبد العزيز said:

اين الموضوع

انا اسف   🤭 نسيت وضع الرابط كنت على عجلة للذهاب الى عملى

تم تعديل الرد واضافة رابط الموضوع

[Ahmed_J]

السلام عليكم استاتذتي الاعزاء

استاذ @walid7799

20 ساعات مضت, walid7799 said:

لم أكمل قرأة ما كتبته كنت مشغول وحالا خلصت تعديل القاعدة الخاصة بك وتم عمل جدولين جديد وعمل 2 نموذج الاساسى أسمه form1 وهو ما طلبت بكل نفاصيله

وعليك التجربة

 1- زر الفيدر في النموذج لايعمل ويظهر لي رسالة الخطا  كما في الصورة 

 

2- زر  سحب صورة من السكانر add pic في النموذج لايعمل ويظهر لي رسالة الخطا  كما في الصورة رقم 2

 

تم تعديل مارس 17, 2022 بواسطه Ahmed_J

[Ahmed_J]

up