Private Sub Command0_Click()
Dim WIADevice As WIA.Device
Dim WIAProcess As WIA.ImageProcess
Dim WIAItem As WIA.Item
Dim WIAProperty As WIA.Property
Dim WIAImage As WIA.ImageFile
Dim wiaDialog As New WIA.CommonDialog
Dim dc As DeviceCommand

Set WIADevice = wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.VideoDeviceType, False, True)

    Set WIAProcess = New WIA.ImageProcess
    WIAProcess.Filters.Add WIAProcess.FilterInfos("Convert").FilterID
    WIAProcess.Filters(WIAProcess.Filters.Count).Properties("FormatID").Value = _
    WIA.wiaFormatJPEG
   Set WIAItem = WIADevice.ExecuteCommand(wiaCommandTakePicture)
   Set WIAImage = WIAItem.Transfer
   Set WIAImage = WIAProcess.Apply(WIAImage)
   If Dir("C:\Test.jpg") <> "" Then Kill "C:\Test.jpg"
   WIAImage.SaveFile "C:\Test.jpg"
   Me.Image2.Picture = "C:\Test.jpg"

End Sub

Private Sub Кнопка1_Click()
Dim WIADevice As WIA.Device
Dim WIAProcess As WIA.ImageProcess
Dim WIAItem As WIA.Item
Dim WIAProperty As WIA.Property
Dim WIAImage As WIA.ImageFile
Dim wiaDialog As New WIA.CommonDialog
Dim dc As DeviceCommand


Set WIADevice = wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.VideoDeviceType, False, True)

    Set WIAProcess = New WIA.ImageProcess
    WIAProcess.Filters.Add WIAProcess.FilterInfos("Convert").FilterID
    WIAProcess.Filters(WIAProcess.Filters.Count).Properties("FormatID").Value = _
    WIA.wiaFormatJPEG
   
   Set WIAItem = WIADevice.ExecuteCommand(wiaCommandTakePicture)
   Set WIAImage = WIAItem.Transfer
   Set WIAImage = WIAProcess.Apply(WIAImage)
   If Dir("C:\Test.jpg") <> "" Then Kill "C:\Test.jpg"
   WIAImage.SaveFile "C:\Test.jpg"
Me!Рисунок0.Picture = "C:\Test.jpg"


End Sub

Private Sub Кнопка3_Click()
If MsgBox("Данная функция предназначена фотографирования." & ChrW( 13 ) & "В уже созданных записях, возможно, изменяться данные." & ChrW( 13 ) + ChrW( 10 ) & "Продолжить?", vbOKCancel, "Внимание!!!") = vbCancel Then
Exit Sub
End If

   Set WIAProcess = Nothing
   Dim rst As DAO.Recordset
   Dim rst2 As DAO.Recordset
   
   Set rst = Form_тест.RecordsetClone
   rst.Edit
   
   Set rst2 = rst.Fields("Вложение").Value
   
   rst2.AddNew
   rst2.Fields("FileData").LoadFromFile "C:\Test.jpg"
   rst2.Update
   rst.Update
   
   DoCmd.Close
   
End Sub

Private Sub Кнопка1_Click()
Dim WIADevice As WIA.Device
Dim WIAProcess As WIA.ImageProcess
Dim WIAItem As WIA.Item
Dim WIAProperty As WIA.Property
Dim WIAImage As WIA.ImageFile
Dim wiaDialog As New WIA.CommonDialog
Dim dc As DeviceCommand


Set WIADevice = wiaDialog.ShowSelectDevice(WIA.WiaDeviceType.VideoDeviceType, False, True)

    Set WIAProcess = New WIA.ImageProcess
    WIAProcess.Filters.Add WIAProcess.FilterInfos("Convert").FilterID
    WIAProcess.Filters(WIAProcess.Filters.Count).Properties("FormatID").Value = _
    WIA.wiaFormatJPEG
   
   Set WIAItem = WIADevice.ExecuteCommand(wiaCommandTakePicture)
   Set WIAImage = WIAItem.Transfer
   Set WIAImage = WIAProcess.Apply(WIAImage)
   If Dir("C:\Test.jpg") <> "" Then Kill "C:\Test.jpg"
   WIAImage.SaveFile "C:\Test.jpg"
Me!Рисунок0.Picture = "C:\Test.jpg"


End Sub

Private Sub Кнопка3_Click()
If MsgBox("Данная функция предназначена фотографирования." & ChrW( 13 ) & "В уже созданных записях, возможно, изменяться данные." & ChrW( 13 ) + ChrW( 10 ) & "Продолжить?", vbOKCancel, "Внимание!!!") = vbCancel Then
Exit Sub
End If

   Set WIAProcess = Nothing
   Dim rst As DAO.Recordset
   Dim rst2 As DAO.Recordset
   
   Set rst = Form_тест.RecordsetClone
   rst.Edit
   
   Set rst2 = rst.Fields("Вложение").Value
   
   rst2.AddNew
   rst2.Fields("FileData").LoadFromFile "C:\Test.jpg"
   rst2.Update
   rst.Update
   
   DoCmd.Close
   
End Sub