MS Access-VBA-code-capture-Bild von der Kamera und speichern Sie es

Möchte ich hinzufügen, dass ein button in meiner form(MS Access Datenbank), so kann es zu erfassen Bild aus meiner Kamera(laptop) und speichern Sie es in einem bestimmten Ort (c:\image).
Ich bin mit windows 10 mit Microsoft office 2010 oder office 365.

Irgendwelche Ideen oder Hilfe.

Danke.

Ps Update-code mit WIA:

Private Sub Command1_Click()

  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

Mit diesem Schaffe ich es öffnen, meine iPhone-Kamera (usb Anhängen). Ich mein-build-Kamera von meinem laptop.

Danke

InformationsquelleAutor YvetteLee | 2017-05-12
Schreibe einen Kommentar