Private Sub Komut1_Click()
Call belgetara("C:\belgeler\", Me.belgeno)
End Sub
 
Function belgetara(dosyayolu, dosyaadi)
Dim CommonDialog1 As Object
Dim Img
On Error Resume Next
Kill dosyayolu + dosyaadi + ".tif"
On Error GoTo belgetara_Error
Set CommonDialog1 = CreateObject("WIA.CommonDialog")
Set Img = CommonDialog1.ShowAcquireImage
If Img.FormatID <> wiaFormatTIFF Then
Dim IP
Set IP = CreateObject("Wia.ImageProcess")
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
Set Img = IP.Apply(Img)
End If
Img.SaveFile dosyayolu + dosyaadi + ".tif"
Exit Function
belgetara_Error:
If Err.Number = -2145320957 Then
MsgBox "Cihaz Secmediniz"
Resume
End If
MsgBox Err.Description & Chr(13) & Chr(10) & "Error # " & Err.Number
End Function