Skip to main content

AccessTr.neT


Access Scanner Yardım

Access Scanner Yardım

Çözüldü #1
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]
.rar RVS MDB albüm.rar (Dosya Boyutu: 906,49 KB | İndirme Sayısı: 16)
Cevapla
#2
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Çok teşekkürler hocam, benzer bir kodu formdaki butonun koduna girdim ama modulde denemedim. Teşekkürler Img-grin
Cevapla
#4
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.
Cevapla
#5
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task