کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی
کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

کلینیک فوق تخصصی اکسس ( کاربرد vba در اکسس )

به اشتراک گذاری اطلاعات کسب شده در اکسس از سایت آفیس و سایت های تخصصی خارجی

اسکنر کار با WIA در رفرنس اکسس (یوزر اینترفیس )


CommonDialog Object


محتوی تمام متدهایی است که UI ( رابط کاربری یا  User Interface ) را نشان میدهد و باید  "WIA.CommonDialog" با CreateObject ساخته شود یا CommonDialog در فرم آورده شود.


Methods


ShowAcquireImage

نمایش یک یا چند دایالوگ باکس که یوزر را قادر سازد تا  تصویر را از دستگاه مربوطع سازد بگیرد.

ShowAcquisitionWizard

ویزارد اسکنر و دوربین را فعال می کند ( نمایش )

ShowDeviceProperties

نمایش پراپرتی های دیالوگ باکس دستگاه یا Device مربوطه 

ShowItemProperties

نمایش آیتم های دیالوگ باکس دستگاه یا Device مربوطه 


باز شدن پنجره ی  اسکنر  


Dim Img 

Dim CommonDialog1

Set CommonDialog1=CreateObject("Wia.CommonDialog

Set Img = CommonDialog1.ShowAcquire

(Img.SaveFile (Img


میشود لوپ زد و پراپرتی های مربوطه رو گرفت   For Each Prp In


کپی در Word البته در خود Word نوشته شده مربوط به اکسس نیست 


objImage.SaveFile strPath ' save into temporary file
' Insert in Word Document
Selection.InlineShapes.AddPicture 

strPath



'Requires a reference to Microsoft Windows Image Acquisition Object Library




Dim Img 'As ImageFile _ )Set Img=CommonDialog1.ShowAcquireImage

_ ,UnspecifiedDeviceType

_ ,TextIntent

_ ,MaximizeQuality

( wiaFormatGIaf




(ScanDev=CommonDialog1.ShowSelectDevice(1,False,False

("Set img=CreateObject("Wia.ImageFile

      (ScanDev.Items(1).Transfer(WiaFormatBMP