anyone have an example of a webcam in Access?

[clebergyn]

anyone have an example of a webcam in Access? How to capture photo with your webcam in Access?

[June7]

You want to grab stills from the camera feed?

Bing: Access database webcam

Maybe this does what you want: http://viscom-twain-scanner-sdk-acti....informer.com/

Apparently VB6 can do it. Sometimes VB6 code can be translated to VBA (they are very similar). If you have VB6 then maybe can open the project and view the code. Unfortunately, my old VB6 won't install on new computer.
http://www.planet-source-code.com/vb...28493&lngWId=1

However, do not advise storing image file in database.

[ItsMe]

I have bean using Dosadi as a TWAIN interface for years. I believe their DLL files are $1,000 now. I use Dosadi for Scanner interface. The link June provided to Viscom seems reasonable if all you want to do is capture Images from TWAINS and do not need to interact with the TWAIN beyond that.

[clebergyn]

Look at this example of webcam in Access. Someone knows how to make it work?
WebCam2003.zip

[June7]

Have you tried running? What happened?

It has code that won't run on 64-bit machine.

Not seeing any new library references in VBA. But the CameraWeb module references avicap32.dll. So you must get that file from somewhere if you don't already have it. Then install the dll.

Beyond that, I have no idea how this works.

[ItsMe]

I took a look at the DB. I think you can get it to work as long as your WebCam is a 32bit device. Your first step would be to get a list of available WebCam drivers. I do not have any so I cannot test. Using this link, I came up with some VBA to print a list in the Immediate Window.
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

You would use the following code in a click event of a new form. Create a new form in your WebCam app and use the following code.

        Dim DriverName As String
'        DriverName = Space(80)
        DriverName = Space$(64)
        Dim DriverVersion As String
'        DriverVersion = Space(80)
        DriverName = Space$(64)
        
        Dim intFind As Integer
        For intFind = 0 To 9
'            If capGetDriverDescriptionA(intFind, DriverName, 80, DriverVersion, 80) Then
             If capGetDriverDescriptionA(intFind, DriverName, 64, DriverVersion, 64) Then
'                Debug.Print Trim(DriverName)
                Debug.Print Left(DriverName, InStr(Name, Chr(0)) - 1)
            End If
        Next intFind

In order to get the capGetDriverDescriptionA function to work correctly, make sure you are using a 32bit version of Access. If you have a 64bit OS, the default Office/Access install is 32bit. However, you can opt to install 64bit office. 64 bit office would require some alterations to the existing code.

The Avicap32.dll requires a reference to the Vfw32.lib. The WebCam app has a reference to"Microsoft Visual Basic for Applications Extensibility X.X". Make sure this reference is not broken or missing so the capGetDriverDescriptionA function will work correctly.