اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب اضافة الكود لسحب المستندات من الاسكانر


alriashi

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

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

في المرفق نموذج لادخال بيانات وفيه زرين امر لسحب المستندات من الاسكانر ((جزا الله خير من عمله))  

المطلوب جزاكم الله خير وضع الكود المناسب لهذين الزرين 

الزر الاول يسحب المستند من الاسكانر ويضعه في الحقل المسمى file_loc

الزر الثاني يسحب المستند من الاسكانر ويضعه في الحقل المسمى file_loc2

او كما ترونه مناسبا

ولكم خالص الشكر والتقدير

 

HLA_HLA.accdb

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

  • 2 weeks later...

صباح الخير استاذي العزيز

عند التجربه يشتغل الاسكانر ويحمل وكل شي تمام

وعندما ينتهي ما تظهر الصوره وتظهر الرساله التالية

object doesnt support this property or methof

اما التحميل من الجهاز الحمد لله 100%

بارك الله فيك

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

تفضل التعديل 

لكن فيه ملاحظة ما اقدر اقول انها بسيطة

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

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

HLA_HLA.accdb

رابط هذا التعليق
شارك

توجيهاتك على عيني وراسي

لكن فيه ملاحظة ما اقدر اقول انها بسيطة

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

بس كيف السبيل الى ذلك...؟

لان هذه البرنامج عمله احد الاساتذه في هذه المنتدى

ردا على تسائل احد الاخوة الاعضاء وكان وقد وافق نظام عملي بالضبط.

جزاك الله كل خير وبارك فيك

رابط هذا التعليق
شارك

تفضل هذا التعديل اخي الكريم

ستلاحظ اولا و الأهم بأن الادراج اصبح اسرع من قبل

كذلك مع كثرة العمل على البرنامج ستلاحط بأنه السرعة لن تتأثر كثير بسبب عدم تحميل القاعدة للمرفقات

لأن المرفقات ستكون في ملف خارجي بجوار قاعدة البيانات 

لأن فقط عليك استخراج الملفات من الملف المضغوط و جرب

ملاحظة كثرة الضغط على قاعدة البيانات بالمرفقات تتسبب في ثقلها و احيانا في عطبها

كذلك انصحك بانشاء نسخة احتياطية يومية و الكود الخاص بذلك سهل كماهو موضح ادناه

 

فقط انسخ و الصق لا اكثر من ذلك

Dim MyFile, DstFile As String
Dim Syso As Object
On Error GoTo ErrH

MyFile = CurrentProject.FullName
DstFile = CurrentProject.Path & "\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb"

DBEngine.Idle

Set Syso = CreateObject("Scripting.FileSystemObject")
Syso.copyfile MyFile, DstFile
Set Syso = Nothing

Name DstFile As DstFile & ".ptc"
DBEngine.CompactDatabase DstFile & ".ptc", DstFile
Kill DstFile & ".ptc"
MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

Exit Sub
ErrH:
Select Case Err.Number
End Select

 

Programe.zip

  • Like 3
رابط هذا التعليق
شارك

لا خلاء ولا عدم

سلمت ايدك استاذنا الكبير ... والله هذا هو المطلوب والذي كنت ابحث عنه

الله يبارك فيك باقي صورة المتهم سوها نفس ما سويت صور المستندات

رحم الله والديك ورزقكم من اوسع ابوابه. 

HLA_HLA.rar

رابط هذا التعليق
شارك

في ١٥‏/٨‏/٢٠٢٠ at 05:20, د.كاف يار said:

تفضل اخي الكريم

HLA_HLA.accdb 764 kB · 12 تنزيلات

عاشت ايدك استاذ @د.كاف يار على هذه المعلومات , عندي استفسار كيف اضيف اكثر من صورة للشخص الواحد  وخارج قاعدة البيانات. مثلا اريد اضيف صورة الشخص وجنسيته واجازة السوق وجواز السفل وبطاقة المصرف والبطاقة التموينية لشخص واحد وخارج قاعدة البيانات , واكون ممنون منك استاذي 

رابط هذا التعليق
شارك

5 ساعات مضت, ameer.iraq.93 said:

عاشت ايدك استاذ @د.كاف يار على هذه المعلومات , عندي استفسار كيف اضيف اكثر من صورة للشخص الواحد  وخارج قاعدة البيانات. مثلا اريد اضيف صورة الشخص وجنسيته واجازة السوق وجواز السفل وبطاقة المصرف والبطاقة التموينية لشخص واحد وخارج قاعدة البيانات , واكون ممنون منك استاذي 

تفضل طلبك اخي الكريم

سحب المستندات بالاسكانر.accdb

  • Thanks 1
رابط هذا التعليق
شارك

19 ساعات مضت, د.كاف يار said:

عاشت ايدك استاذ @د.كاف يار مقصرت . اكو مشكلة الصور الي تنحفظن كل مستند له صورة .عندما تدخل على اي مستند تلقاهم نفس الصورة متكررة , يكرر الصورة الاخيرة على كل المستندات

تم تعديل بواسطه ameer.iraq.93
رابط هذا التعليق
شارك

منذ ساعه, ameer.iraq.93 said:

عاشت ايدك استاذ @د.كاف يار مقصرت . اكو مشكلة الصور الي تنحفظن كل مستند له صورة .عندما تدخل على اي مستند تلقاهم نفس الصورة متكررة , يكرر الصورة الاخيرة على كل المستندات

فعلا يوجد خطأ

نسيت ان افرغ الحافظة

Set imagefile = Nothing

جرب هذا المرفق تم التعديل عليه

سحب المستندات بالاسكانر.accdb

رابط هذا التعليق
شارك

2 ساعات مضت, د.كاف يار said:

فعلا يوجد خطأ

نسيت ان افرغ الحافظة


Set imagefile = Nothing

جرب هذا المرفق تم التعديل عليه

سحب المستندات بالاسكانر.accdb 1.47 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 تنزيلات

الف رحمة على والديك استاذ .هذا هو المطلوب @د.كاف يار

رابط هذا التعليق
شارك

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