Mesajınızı yeni fark ettim diyebilirim,kendi adıma.ilk etapta bir cevap olması adına,ilk aklıma geldiği hali ile yanıtlamak üzere,bahsettiğiniz talebinize yönelik olarak,uygun görülen açıklama aşağıda yer almaktadır.
1) Modulescanner adlı modülün içeriğini aşağıdaki kod ifadeleri ile değiştiriniz.
Kod:
Option Compare Database
Option Explicit
Public fileLocation As String
Public diagFile As FileDialog
Public Sub GetImage()
Set diagFile = Application.FileDialog(msoFileDialogSaveAs)
diagFile.Title = "Save Bitmap File As..."
diagFile.InitialFileName = "*.jpg"
If diagFile.Show Then
fileLocation = diagFile.SelectedItems(1)
' Dim scanDiag As Object
' Dim image As Object
'
Set scanDiag = CreateObject("WIA.CommonDialog")
Set image = CreateObject("WIA.ImageFile")
Dim scanDiag As New WIA.CommonDialog
Dim image As WIA.ImageFile
Set image = scanDiag.ShowAcquireImage()
image.SaveFile fileLocation
End If
End Sub
Kod:
Private Sub Komut114_Click()
Call GetImage
Me.pdf = fileLocation
End Sub