Access Scanner Yardım - Baskı Önizleme

Access Scanner Yardım - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Scanner Yardım (/konu-access-scanner-yardim.html)

Access Scanner Yardım - Akifff - 03/12/2015

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.

[Resim: do.php?img=5232]

Cvp: Access Scanner Yardım - atoz112 - 03/12/2015

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.

Cvp: Access Scanner Yardım - Akifff - 04/12/2015

Çok teşekkürler hocam, benzer bir kodu formdaki butonun koduna girdim ama modulde denemedim. Teşekkürler Img-grin

Cvp: Access Scanner Yardım - Akifff - 04/12/2015

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.

Cvp: Access Scanner Yardım - atoz112 - 04/12/2015

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.