Access - PROBLEMA IMAGENES EN VISTA PREVIA

   
Vista:

PROBLEMA IMAGENES EN VISTA PREVIA

Publicado por Salva (1 intervenci√≥n) el 17/10/2007 12:14:06
Hola,

Tengo un problmea en ACCESS al seleccionar la vista previa en un informe que he generado.

En este informe para cada dato se le carga una fotografía en funcion del valor de uno de los campos del informe.
En la vista normal no hay ning√ļn problema y a cada registro que abro se me carga la imagen perfectamente.
El problema viene a la hora de mostrar la vista previa o de imprimirlo, cuando me sale la misma imagen para todos los valores......

Os dejo la secuencia SQL que he generado por si el problema está ahí....
Muchas gracias de antemano.....

Option Compare Database
Option Explicit

Dim path As String

Private Sub Form_Current()
Dim Ruta As String

Ruta = "Z:\infograf\DatFmt\35012_ingenio\" & Format$([refcat]) & Format$([hoja]) & "\" & Format$([refcat]) & Format$([hoja]) & ".jpg"

If Len(Dir(Ruta)) <> 0 Then
FOTO.Picture = Ruta
Else
FOTO.Picture = path & "muestra.jpg"
End If

End Sub

Private Sub Form_Load()

Dim DB As Database, i As Integer

Set DB = CodeDb
path = DB.Name
DB.Close

For i = Len(path) To 1 Step -1
If Mid(path, i, 1) = "\" Then
Exit For
End If
Next i

path = Mid(path, 1, i)

End Sub

Private Sub SOLAD_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

Private Sub SUB_AfterUpdate()
Dim Ruta As String

Ruta = "Z:\infograf\DatFmt\35012_ingenio\" & Format$([refcat]) & Format$([hoja]) & "\" & Format$([refcat]) & Format$([hoja]) & ".jpg"

If Len(Dir(Ruta)) <> 0 Then
FOTO.Picture = Ruta
Else
FOTO.Picture = path & "ND.gif"
End If

End Sub
Valora esta pregunta
Me gusta: Est√° pregunta es √ļtil y esta claraNo me gusta: Est√° pregunta no esta clara o no es √ļtil
0
Responder