Ovaj kod sam našao, probao samo da li pokreće skener, radi. U Accessu 2010.
Potrebno je u Referencama uključiti Microsoft Windows Image Acquisition Library v2.0
Code:
Private Sub slika_DblClick(Cancel As Integer)
Dim oWIA_DeviceManager As WIA.DeviceManager
Dim oWIA_Device As WIA.Device
Dim oWIA_ComDlg As WIA.CommonDialog
Dim oImageFile As WIA.ImageFile
Dim i As Long
Set oWIA_DeviceManager = New WIA.DeviceManager
If oWIA_DeviceManager.DeviceInfos.Count > 0 Then
Set oWIA_ComDlg = New WIA.CommonDialog
' Index the Devices property starting here at 1, not 0 .
For i = 1 To oWIA_DeviceManager.DeviceInfos.Count
Set oWIA_Device = oWIA_DeviceManager.DeviceInfos.Item(i).Connect
' Use this to show Acquisition CommonDialog
Set oImageFile = oWIA_ComDlg.ShowAcquireImage
' Use this to show Acquisition Wizard
Set oImageFile = oWIA_ComDlg.ShowAcquisitionWizard(oWIA_Device)
Next i
Else
MsgBox "No WIA compatible device attached!"
End If
End Sub
Proverio sam, radi i u AccessXP.
[Ovu poruku je menjao BiloKoje dana 14.05.2015. u 10:23 GMT+1]