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]](https://accesstr.net/resim/do.php?img=5232)
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.
Çok teşekkürler hocam, benzer bir kodu formdaki butonun koduna girdim ama modulde denemedim. Teşekkürler
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.
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.