وثائق يجب حفظها على شكل صور بواسطة السكانر

دبر عمرك

This article was previously published under Q148463 
Advanced: Requires expert coding, interoperability, and multiuser skills. 


SUMMARY
This article shows you how you can display bitmap images on a form or on a report with only the path and the file name stored in the Microsoft Access table. 

This article assumes that you are familiar with Visual Basic for Applications and that you are familiar with creating Microsoft Access applications by using the programming tools provided with Microsoft Access. 

For more information about Visual Basic for Applications, see your version of the "Building Applications with Microsoft Access" manual. 

NOTE: Visual Basic for Applications is called Access Basic in Microsoft Access version 2.0. For more information about Access Basic, see the "Building Applications" manual. 
MORE INFORMATION
Sometimes it is not practical to store images in a Microsoft Access table. If you have a large number of images, or if each of your image files is large, the size of the Microsoft Access database file can rapidly increase. 

The following examples show you how to display Windows bitmap images on a Microsoft Access form and on a report without storing the images in a Microsoft Access table. 
In Microsoft Access 97 and 7.0
Creating the Table to Store File and Path Data
Open the sample database Northwind.mdb. 
Create a new table that is named Imagetable and then add a text field that is named ImagePath. 
Open the Imagetable table in Datasheet view and then add the path and the name of a bitmap file to each record. The following examples show how the records might look:      c:windowscircles.bmp
      c:windowswaves.bmp
      c:windowstiles.bmp
      c:windowsbubbles.bmp

Displaying Images in a Form
Use the AutoForm: Columnar Wizard to create a new form that is based on the ImageTable table. 
Open the Imageform form in Design view and then add an image control to the form by using the Image tool in the toolbox. You are prompted to select an image to insert. Select any image available on your computer. Name the control ImageFrame. 
Set the OnCurrent property of the Imageform form to the following event procedure:       Private Sub Form_Current()
         On Error Resume Next
         Me![ImageFrame].Picture = Me![ImagePath]
      End Sub

Set the AfterUpdate property of the ImagePath text box to the following event procedure:       Private Sub ImagePath_AfterUpdate()
         On Error Resume Next
         Me![ImageFrame].Picture = Me![ImagePath]
      End Sub

Open the Imageform form in Form view. Notice that the form displays the corresponding bitmap for each record.
Displaying Images in a Report
You can use the AutoReport Wizard to create a new report that is based on the ImageTable table. Name the report ImageReport. 
Open ImageReport in Design view and then add an image control to the report by using the Image tool in the toolbox. You are prompted to select an image to insert. Select any image that is available on your computer. Name the control ImageFrame. 
Set the Format Event of the "Details" section of the report to the following Event Procedure:       
      Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
         Me![Imageframe].picture = me![Imagepath]
      End Sub 

Open the ImageReport in Print Preview mode. Notice that the report displays the corresponding bitmap for each record.
In Microsoft Access 2.0
Creating the Table to Store File and Path Data
Open the sample database Nwind.mdb. 
Create a new table that is named Imagetable and then add a text field that is named ImagePath. 
Open the Imagetable table in Datasheet view and then add the path and the name of a bitmap file to each record. The following examples show how the records might look:      c:windowscircles.bmp
      c:windowswaves.bmp
      c:windowstiles.bmp
      c:windowsbubbles.bmp
Displaying the Images in a Form
Use the AutoForm Wizard to create a new form that is based on the ImageTable table. Name the form Imageform. 
Open the Imageform form in Design view and then add an unbound object frame by using the Unbound Object Frame tool in the toolbox. Name the control ImageFrame. 
Set the OnCurrent property of the Imageform form to the following event procedure:       Private Sub Form_Current()
         On Error Resume Next
         If Not IsNull(Me![ImagePath]) Then
         Me![ImageFrame].OLETypeAllowed = 1
         Me![ImageFrame].SourceDoc = Me![Imagepath]
         Me![ImageFrame].Action = 0
         End If
      End Sub

Set the AfterUpdate property of the ImagePath text box to the following Event Procedure:       Sub ImagePath_AfterUpdate ()
         On Error Resume Next
         Me![ImageFrame].OLETypeAllowed = 1
         Me![ImageFrame].SourceDoc = Me![Imagepath]
         Me![ImageFrame].Action = 0
      End Sub

Set the following properties for the ImageFrame unbound object frame:       Enabled: Yes

       Locked: No


Open the Imageform in Form view. Notice that the form displays the corresponding bitmap for each record.

;)

أخي الحبيب

قم بانشاء مجلد وقم بحفظ الصور فيه

بعد ذلك اطلب الصور من النموذج بإدراجها بالإسم

ولكن عند نسخك للبرنامج لا تنسى ارفاق المجلد الخاص بالصور مع البرنامج

بحيث يقوم الأكسس بإستدعائها وقت تشاء

وأرجو ان تقوم بحفظها بإمتداد JPEG وان تكون دقة الصورة 150 DPI

لكي لا تأخذ حجم كبر وتثقل عليك عمل البرنامج

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

وشكراً

:D

أخي الميكرو

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

أخوك القحم

شكرا اخي MICRO للاهتمام

ولكني اضم صوتي للاخ GAHAM حول الروابط وكذلك اذا كان عندك لروابط لمواقع اكسس او مواقع تتحدث عن هذا الموضوع وخاصتا اذا كانت انكليزية افضل

مع جزيل الشكر

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

تم البحث بواسطة جوجل عن مصدر المشاركة فوجدت من شركة ميكروسوفت ;)

اليكم الرابط

http://support.microsoft.com/default.aspx?...&NoWebContent=1

رابط البحث بواسطة جوجل :

http://www.google.com/search?q=Q148463&ie=...UTF-8&hl=ar&lr=

========

تسلم اخوي فيصل وسامحوني اخواني

والله نسيت ادخل على المشاركه

اسف اخوي القحم ولك مني 400 كود هديه

اسف اخوي زاهر انا خارج الوطن ولم استطع الشرح كثيرا سامحني

شكراً يا فيصل يا بطل سديت ووفيت :o:o:o