Sizin uygamanız için yaklaşık 2 saat uğraşıp kod hazırlıyorum, açıklamalı mesaj yazıyorum, siz
Access ile yapılamamakta yazıp kendi uygulamanız için uğraşmıyorsunuz.
Acaba kodu kopyalayıp butonda denediniz mi? Resim aktarıyor, soru alanındaki veriyi de aktarıyor, siz sadece aktarılacak 8 veriden kalan 6 veri aktarılması için kod ekleyeceksiniz.
Bu çalışma
Access ile yapılabilir,
İletişim linkinden ulaşın yapılır.
Sayın Ozan Hocam Merhaba.
Öncelikle başta size ve diğer forum üyelerinin emeğine sağlık. Konularda bizlere her fırsatta yardımcı oluyorsunuz
Sizin çalışma için kod hazırladığınızdan bilgim yoktu.
Verdiğiniz kodu denedim. ekli resimdeki hatayı aldım. Kod yordamlarını kontrol ediyordum. hata için.
Kod yazdığınızı bilmediğim için bende konuyla ilgili şu aşama da yapılacak bir şey olmadığı kanaatine vardığımdan kapatmanızı istedim
Modüle aşağıdaki kodu ekleyip modülü kaydedin.
Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean
Dim lngAttributes As Long
lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)
If bFindFolders Then
lngAttributes = (lngAttributes Or vbDirectory) 'Include folders as well.
Else
Do While Right$(strFile, 1) = "\"
strFile = Left$(strFile, Len(strFile) - 1)
Loop
End If
On Error Resume Next
FileExists = (Len(Dir(strFile, lngAttributes)) > 0)
End Function
Sayın Ozan Hocam
Kodu modüle ekledim. aşağıdaki hataları vermekte.
Önceki mesaja eklediğiniz "murat352018.rar" isimli uygulamadaki "sorgu_rapor" isimli sorguda ölçüt yoktu. Son mesajınızda eklediğiniz hata iletisinin sebebi ölçüt ile ilgili.
Uygulamanızdaki "sorgu_rapor" isimli sorguda ölçüt var mı?
Sayın ozan hocam
Öncelikle emeğinize yüreğinize sağlık gerçekten verdiğiniz kod istenilen sayıda sayfaya tabloyu eklemektedir.
Evet sorguda ölçüt kullanıyorum. Ölçütü silince worde aktarımı yaptı. Uygulama da ölçüt kullanacam
Lakin resim ile ilgili alana resmi eklemedi.
Resim alanına soruyu yazdı.
Onuda ben kod yordamını inceleyip ayarlamaya çalışırım.
Emeğiniz ve desteğiniz için çok teşekkür ederim.