مسح صورة وتسميتها برقم الطالب

[N_ELMASRY]

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

أرجو من الأخوة الأفاضل المساعدة فى الآتى: 

مرفق قاعدة بيانات وبها نموذج به زرين أحدهما لاضافة صورة للطالب والاخر لاضافة صورة جواز السفر والمطلوب، 

1- عند الضغط على زر اضافة صورة الطالب يقوم بفتح حوار الاسكانر أوعمل اسكان للصورة واعطاءها اسم مكون من حروف ثابته وهى pic بالاضافة لرقم الطالب ليصبح مثلا: Pic20001 وكذلك عند الضغط على الزر الاخر لاضافة صورة الجواز ليصبح Pass20001. 

2- يتم تخزينها فى الفولد المرفق مع القاعدة ويتغير مسار الصور داخل قاعدة البيانات بتغير مسارها أو نقلها لاى مكان آخر. 

3- يظهر صورة الجواز او صورة الطالب فى الاطار الموجود فى النموذج. 

أرجو أن أكون وفقت فى توضيح المطلوب. 

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

ImageScan.rar

[صالح حمادي]

السلام عليكم

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

و هذا هو الكود المستخدم:

On Error Resume Next

Dim strpath As String
Dim PathImg As String

strpath = CurrentProject.Path & "\Scans\StPic"
If Len(Dir(strpath, vbDirectory)) = 0 Then
   MkDir (strpath)
End If

Dim fpath As Variant
With Application.FileDialog(3)
   .Title = "اختر صورة الشخص"
   .Filters.Clear
   .Filters.Add "صورة", "*.jpg"
   .AllowMultiSelect = False
   .InitialFileName = ""
   If .Show = -1 Then
     PathImg = .SelectedItems(1)
   End If
End With
  FileCopy PathImg, strpath & "\Pic" & Me.txt_StID & ".jpg"
Me.St_Pic = strpath & "\Pic" & Me.txt_StID & ".jpg"

 

Desktop.rar

[N_ELMASRY]

7 ساعات مضت, صالح حمادي said:

السلام عليكم

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

و هذا هو الكود المستخدم:

On Error Resume Next

Dim strpath As String
Dim PathImg As String

strpath = CurrentProject.Path & "\Scans\StPic"
If Len(Dir(strpath, vbDirectory)) = 0 Then
   MkDir (strpath)
End If

Dim fpath As Variant
With Application.FileDialog(3)
   .Title = "اختر صورة الشخص"
   .Filters.Clear
   .Filters.Add "صورة", "*.jpg"
   .AllowMultiSelect = False
   .InitialFileName = ""
   If .Show = -1 Then
     PathImg = .SelectedItems(1)
   End If
End With
  FileCopy PathImg, strpath & "\Pic" & Me.txt_StID & ".jpg"
Me.St_Pic = strpath & "\Pic" & Me.txt_StID & ".jpg"

 

Desktop.rar

جزاك الله خيرًا على المجهود الرائع والاهتمام .... ونفعك الله بعلمك

ولكن أستأذن فى جعل زر اضافة الصورة او صورة الجواز ليقوم بعمل سكان او مسح للصورة من الاسكانر بدلا من اضافة الصورة. 

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

 

[صالح حمادي]

12 ساعات مضت, N_ELMASRY said:

ولكن أستأذن فى جعل زر اضافة الصورة او صورة الجواز ليقوم بعمل سكان او مسح للصورة من الاسكانر بدلا من اضافة الصورة.

استعمل خاصية البحث في المنتدى سوف تجد العديد من المواضيع حول جلب الصورة من الماسح الضوئي

 

[ابو ياسين المشولي]

في ٢‏/٣‏/٢٠١٨ at 00:34, صالح حمادي said:

الاستاذ صالح حمادي

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

On Error Resume Next

Dim strpath As String
Dim PathImg As String

strpath = CurrentProject.Path & "\Scans\StPic"
If Len(Dir(strpath, vbDirectory)) = 0 Then
   MkDir (strpath)
End If

Dim fpath As Variant
With Application.FileDialog(3)
   .Title = "اختر صورة الشخص"
   .Filters.Clear
   .Filters.Add "صورة", "*.jpg"
   .AllowMultiSelect = False
   .InitialFileName = ""
   If .Show = -1 Then
     PathImg = .SelectedItems(1)
   End If
End With
  FileCopy PathImg, strpath & "\Pic" & Me.txt_StID & ".jpg"
Me.St_Pic = strpath & "\Pic" & Me.txt_StID & ".jpg"

 

Desktop.rar

 

[ابو جودي]

في ١‏/٣‏/٢٠١٨ at 19:28, N_ELMASRY said:

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

أرجو من الأخوة الأفاضل المساعدة فى الآتى: 

مرفق قاعدة بيانات وبها نموذج به زرين أحدهما لاضافة صورة للطالب والاخر لاضافة صورة جواز السفر والمطلوب، 

1- عند الضغط على زر اضافة صورة الطالب يقوم بفتح حوار الاسكانر أوعمل اسكان للصورة واعطاءها اسم مكون من حروف ثابته وهى pic بالاضافة لرقم الطالب ليصبح مثلا: Pic20001 وكذلك عند الضغط على الزر الاخر لاضافة صورة الجواز ليصبح Pass20001. 

2- يتم تخزينها فى الفولد المرفق مع القاعدة ويتغير مسار الصور داخل قاعدة البيانات بتغير مسارها أو نقلها لاى مكان آخر. 

3- يظهر صورة الجواز او صورة الطالب فى الاطار الموجود فى النموذج. 

أرجو أن أكون وفقت فى توضيح المطلوب. 

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

ImageScan.rar

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

 

 

[ابو ياسين المشولي]

10 دقائق مضت, ابا جودى said:

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

 

تسلمي الله بارك الله فيك

 

[صالح حمادي]

في ٣‏/٣‏/٢٠١٨ at 17:33, ابو ياسين المشولي said:

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

من المفروض هذا يقبل من أي ملف و قد جربت ذلك

[N_ELMASRY]

جزاكم الله خيرًا .... وأشكركم على المتابعة والاهتمام ....

وسأراجع الموضوعات المرفقه وأرجو أن يتسع صدركم لأسئلتى إن أردت الاستفسار عن أى نقطه فى الموضوع.

[miroudz]

merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii