Sn danke, siz bu sorunuzda resim veya fotoğrafın rapora getirilmesinden bahsetmek istemişsiniz sanırım. Doğrumu anlamışım.
Kod:
Private Sub Form_Current()
If IsNull(SrNO) Then
ImageFrame.Picture = Empty
Else
patates = CurrentProject.Path & "\Photos\" & SrNO & ".jpg"
ImageFrame.Picture = patates
End If
End Sub
Buradaki kodu incelerseniz mdb nin bulunduğu yerde (CurrentProject.Path & "\Photos\" & SrNO & ".jpg") Photos adında bir klasör olması gerekli ve kaydınızın sıra numarası olan SrNO ile aynı ismi taşıyan resim/fotoğrafında bu klasörün içinde olması lazım. Aksi halde hata mesjaı almaya devam edeceksiniz. Sizin kayıtlarınıza göre Photos klasörünün içeresine 1.jpg adında bir resim atın ve tekrar deneyin, ben denedim gayet güzel çalışıyor.
Ayrıca; eğer Photos klasörünün içerisinde SrNO ile eşleşen fotoğra/resim yoksa yine hata veriyor, dilerseniz yukarıdaki kodun yerine şimdilik kafanızın karışmaması için
Kod:
Private Sub Form_Current()
ImageFrame.Picture = CurrentProject.Path & "\Photos\" & SrNO & ".jpg"
End Sub
deneyin.
