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

[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]

  في 1‏/3‏/2018 at 21: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.rarFetching info...

Expand  

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

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

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

 

[صالح حمادي]

  في 2‏/3‏/2018 at 04:39, N_ELMASRY said:

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

Expand  

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

 

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

  في 1‏/3‏/2018 at 21: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.rarFetching info...

Expand  

 

[ابو جودي]

  في 1‏/3‏/2018 at 17:28, N_ELMASRY said:

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

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

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

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

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

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

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

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

ImageScan.rarFetching info...

Expand  

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

 

 

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

  في 3‏/3‏/2018 at 18:51, ابا جودى said:

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

 

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

Expand  

 

[صالح حمادي]

  في 3‏/3‏/2018 at 16:33, ابو ياسين المشولي said:

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

Expand  

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

[N_ELMASRY]

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

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

[miroudz]

merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii