سؤال : بخصوص تحديد مسار الصور عند سحبها من الاسكانر

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته
اساتذتى الكرام 
عندما اردت ربط الاسكانر بقاعدة البيانات وجدت مثال جاهز على احد المنتديات للاستاذ ابو هاجر 
اريد تعديل مسار الحفظ للصور ليكون فى فولدر مجاور لقاعدة البيانات على نفس مسار قاعدة البيانات
مثلا لو القاعدة فى القطاع  D  داخل مجلد بإسم  production control system software

اريد ان تحفظ الصور بعد الضغط على زر الاسكان من القاعدة داخل مجلد باسم Photos

فيكون مسار القاعدة كالاتى
D:production control system software

ويكون مسار حفظ الصور كالاتى 
D:production control system software/Photos

الكود المراد تعديله ليتم حفظ الصور فى نفس مسار قاعدة البيانات لكن فى مجلد خاص بالصور  هو
D:production control system software

Option Compare Database
Private Declare Function TWAIN_AcquireToFilename Lib "TWAIN32d.DLL" (ByVal hwndApp As Long, ByVal bmpFileName As String) As Integer
Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As Long
Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As Long

Public Function mypathofdb()
Dim A As String, E As String
Dim D As Integer
A = CurrentDb.Name
For D = 1 To Len(A)
    E = left(A, Len(A) - D)
        If E Like "*\" Then
        Exit For
        End If
Next
mypathofdb = E
End Function



Private Sub cmdScan_Click()
Dim Ret As Long, PictureFile As String

' يمكن تعديل مسار حفظ الصور من هنا 
' حاليا يتم حفظ الصور فى نفس مسار قاعدة البيانات


PictureFile = mypathofdb() & Me.Control_No & ".jpg"

Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile)

If Ret = 0 Then

Me.pic_path = PictureFile
Me.pic.Picture = Me.pic_path

Else
Kill PictureFile
MsgBox "فشل عملية المسح الضوئى للملفات", vbCritical, "تنبيه"
End If
End Sub

 جزاكم الله خيرا

تم تعديل يناير 9, 2016 بواسطه محمد عصامـے

[ابوخليل]

اخي محمد 

جرب هذا التعديل على السطر الخاص بهذه المهمة

PictureFile = mypathofdb() & "\photos\"& Me.Control_No & ".jpg"

ان لم يضبط حاول حذف سلاش  واحد  من الجملة "\photos\"

[ابو جودي]

7 دقائق مضت, ابوخليل said:

اخي محمد 

جرب هذا التعديل على السطر الخاص بهذه المهمة

PictureFile = mypathofdb() & "\photos\"& Me.Control_No & ".jpg"

ان لم يضبط حاول حذف سلاش  واحد  من الجملة "\photos\"

السلام عليكم ورحمة الله تعالى وبركاته
استاذى الجليل ومعلمى وحبيبى فى الله 
اولا وقبل كل شئ جزاكم الله تعالى كل الخير ان شاء الله 
انا حاليا مش موجود على جهاز مربوط بماسح ضوئى "اسكانر" لذلك لن استطيع تجربة الكود بعد التعديل 
ولكن اظننى جربت هذا الكود بتلك الطريقة بسلاش واحده فقط وهى الاولى كما يلى ولكن لم يفلح
 

PictureFile = mypathofdb() & "\photos & Me.Control_No & ".jpg"

سأجرب غدا ان شاء الله واوافيكم بالنتيجة

كل الشكر والتقدير والعرفان بجميل حلمكم ووافر كرمكم جزاكم الله عنى وعن كل طالب علم فى هذا الصرح الشامخ كل الخير ورزقكم الجنة ان شاء الله
محبكم فى الله
 

[محمد فاروق محمود]

ممكن الملف حتى نتعلم وجزاكم الله

 

[ابو جودي]

في 3/13/2017 at 22:28, محمد فاروق محمود said:

ممكن الملف حتى نتعلم وجزاكم الله

 

حاضر ابشر بالخير

في 3/13/2017 at 22:28, محمد فاروق محمود said:

ممكن الملف حتى نتعلم وجزاكم الله

 

 

[sandanet]

اعتقد انه تمت الاجابة على هذه الاشكالية .. ارجو منك بعد التأكد مشاركة الملف مع الاخوة الذين يريدون الاطلاع على المثال 

 

تحياتي

[ابو جودي]

في 3/13/2017 at 22:28, محمد فاروق محمود said:

ممكن الملف حتى نتعلم وجزاكم الله

 

تمت  الاجابة على هذه الاشكالية .. بفضل الله تعالى ثم استاذنا واخونا الحبيب    @sandanet  

جزاه الله تعالى وكل اساتذتنا الذين نتعلم منهم وعلى ايديهم خيرا وذادهم الله علما وبارك الله تعالى لهم فى علمهم وعملهم واسال الله تعالى ان يغفر لهم ولوالديهم ولكل المسلمين ان شاء الله 
والاطلاع على المثال