گرفتن عكس با اكسس

[bita_ziba77]

با سلام
من بانك اطلاعاتي ساخته ام كه شامل عكس پرسنل مي باشد بدين صورت كه بعد از افزوده شدن كاربر جديد عكس آن كاربر با دوربين گرفته شده و سپس در كامپيوتر ذخيره مي گردد و حالا بايد در اكسس گزينه Add را در فرم انتخاب كرده و سپس عكس مربوطه را كه در كامپيوتر ذخيره شده است رابه آن كاربر اضافه نمود.
حالا سوال من اين است كه آيا امكان دارد كليدي در فرم با شد كه پس از فشردن آن عكس كاربر را گرفته و مستقيما به آن كاربر اضافه نمايد.(نيازي به دادن آدرس و مسير نباشد)


با تشكر

[mazoolagh]

از توضیحاتتون اینطور بنظر میاد که دوربین به کامپیوتر متصل هست.
اگر اینطور باشه به فولدر ذخیره کردن عکسها در دوربین هم دسترسی دارین و میتونین آخرین عکس گرفته شده توسط دوربین رو با اسم یا تاریخ و ساعت پیدا کنین. حداقلش این هست که از زحمت اسم و مسیر مشخص کردن راحت میشین.

اما اینکه از کامپیوتر به دوربین فرمان بدین عکس بگیره هم شدنی هست چون بعضی آتلیه ها همین کار رو میکنن ولی مطمئنا خود دوربین این امکان رو بهشون میده.

[bita_ziba77]

با سلام
بالاخره پيدا كردم
ابتدا بايد Windows® Image Acquisition Automation Library v2.0 Tool را دانلود و نصب كنيم از لينك زير:
http://www.microsoft.com/downloads/details.aspx?familyid=a332a77a-01b8-4de6-91c2-b7ea32537e29
سپس بايد فايل wiaaut.dll را رجيستر كنيم

در نهايت فايل زير را در رخداد كليك بر روي كليدي وارد نماييم.


Private Sub btnTakePicture_Click()
'Take a picture from a webcam and store it in a temp file.
'By Justin Johnson Nov 26, 2007

'On Error GoTo Err_btnTakePicture_click

Dim tempfile As String
Dim mydevice As WIA.Device
Dim item As WIA.item
Dim imfile As WIA.ImageFile
Dim Commondialog1 As WIA.CommonDialog

tempfile = ("C:\filename.jpg") 'put the path and name for the location of your temp file here.

'the next 4 lines deletes the old temp file if it exists
Set filesystemobject = CreateObject("Scripting.FileSystemObject")
If filesystemobject.FileExists(tempfile) Then
Kill (tempfile)
End If

Set Commondialog1 = New CommonDialog
Set imfile = Commondialog1.ShowAcquireImage



If imfile Is Nothing Then
MsgBox "Action aborted"
Else
imfile.SaveFile (tempfile) 'this line saves the picture to a specified file
Me.Image1.Picture = (tempfile) 'this sets the picture on the form to show the new picture
End If

Exit_btnTakePicture_click:
Set mydevice = Nothing
Set item = Nothing
Exit Sub

Err_btnTakePicture_click:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error Taking Picture"
Resume Exit_btnTakePicture_click

End Sub
همچنين مي توان فايل آماده را از سايت زير دانلود نمود:
http://www.ammara.com/support/samples/access-wia-camera-control.html

با تشكر