Access Scanner Yardım

03/12/2015, 18:05

Akifff

Arkadaşlar benzer bir konu olacak , yine ben açmıştım konuyu, bu sefer şöyle bir sorum olacak, aşağıda resimde de anlattığım üzere, "muy" formunda tarama butonu ile tarayıcıdan aldığım resmi seçtiğim bir konuma kaydedebiliyorum. Benim istediğim tarama yaptıktan sonra seçtiğim dosya yolunun aynı formdaki Belge1 met,n kutusuna yazılması. Böylelikle ben o dasyaları tek tıkla açabilirim. Yeniden ekleme ihtiyacı olmadan. Yardımlarınızı bekliyorum.


03/12/2015, 19:36

atoz112

sayın akifff,

bahsettiğiniz talebinize yönelik olarak,

GetImage fonksiyonunun içerisindeki End If kod satırının bir altına


Kod:
[Forms]![muy]![pdf] = fileLocation

kod satırını yazmanız yeterli olacaktır.

bilginize...iyi çalışmalar,saygılar.
04/12/2015, 11:26

Akifff

Çok teşekkürler hocam, benzer bir kodu formdaki butonun koduna girdim ama modulde denemedim. Teşekkürler
04/12/2015, 11:29

Akifff

Peki hocam bu modülü birden çok form içinde kullanmak istediğimde nasıl yaparım. Şimdi başka bir formda aynı işlemi yaptırdığımda ve bu modülü çağırdığımda bu metin kutusundaki değerde değişecektir. Bunu nasıl engellerim. Ya da bu filelocation komutunu tarama yap butonunun koduna ekleyemez miyim . Teşekkürler.
04/12/2015, 13:59

atoz112

Sayın akifff,

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

2) Muy adlı formun üzerindeki Komut114 adlı butonun içeriğini aşağıdaki gibi değiştiriniz.
Kod:
Private Sub Komut114_Click()
Call GetImage
Me.pdf = fileLocation
End Sub

3) Her bir form üzerinde yer alacak olan butonun içeriğini,ikinci maddede yazılı olan kodlar ile belirtiniz.bilginize…iyi çalışmalar,saygılar.