Merhaba .Frm_resim isimli formunda bulunan;

Option Compare Database
Option Explicit
Dim ResimAdi As Variant
Dim ResimveYolu As Variant
______________________________________________________

Private Sub Form_Load()
DoCmd.GoToRecord , , acLast
End Sub
___________________________________________________________

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Hata1
ResimAdi = "kameraodası-" & Format(Now, "ddmmyyyy") & ".bmp"
ResimveYolu = Environ("TEMP") & "\" & ResimAdi
H