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
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
0