نقل كود من ملف الى آخر مع التعديل

[زياد الحسناوي]

السلام عليكم 

الملف الاول OldScan.accdb يوجد فيه اكواد خاصة بالسكنر و سحب الملفات من الهارد مع تغير الاسم و حفظها في مجلد معين 

 

المطلوب تطبيق الاكواد على القاعدة الجديد NewScan.accdb بحيث عند سحب السكنر او ادراج ملفات يتم حفظها بناءا على رقم الكتاب و التاريخ 

[زياد الحسناوي]

Up

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

[زياد الحسناوي]

السلام عليكم تم نقل الاكواد
ولكن توجد مشكلة بـ انشاء المجلد اولا 

ثانيا بتسجيل اسم الملف (رقم الكتاب + التاريخ) مثلا 

124 6-11-2023

حيث 124 هو رقم الكتاب و 6-11-2023 التاريخ

ثالثا بالسحب من السكنر 

NewScan.accdb

[Ahmed_J]

السلام عليكم

اخي زياد  انا ماعندي سكنر حاليا

1- لانشاء فولدر  انا وضعته عند فتح الموذج pdf

Dim xFolder
Set xFolder = CreateObject("Scripting.FileSystemObject")
If xFolder.FolderExists(CurrentProject.Path & "\archives") = True Then
Me.Undo
Else
'انشاء مجلد
MkDir CurrentProject.Path & "\archives\"
End If

2- هذا الكود شغال عندي تمام  لاضافة صور  او صورة واحدة من الماسح الضوئي 

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

Shell ("c:\Program Files\irfanview\i_view32.exe /batchscan=(" & ID & "_" & Date_Boolk & ",,,,," & temp_scan_path & " ,pdf,1) /scanhidden")

جربه واخبرني بالنتيجة

تم تعديل نوفمبر 6, 2023 بواسطه Ahmed_J