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

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

قام بنشر (معدل)

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

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

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

الزر الاول يسحب المستند من الاسكانر ويضعه في الحقل المسمى 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