Hola J.M.Movilla y muchas gracias por contestarme.
Aqui te mando lo que me has pedido:
Visualización el muestrario de platos
Private Sub mnuMuestrario_Click()
Dim rutafoto As String
Set Plato = New clsPlato
Set DRMuestrario.DataSource = Plato.Todos_Platos
'Foto
rutafoto = Plato.Todos_Platos(6).Value
Debug.Print "Ruta Foto = " & rutafoto
On Error Resume Next
Set DRMuestrario.Sections("Detalle").Controls.Item("imgPlato").Picture = LoadPicture(rutafoto)
Set Plato = Nothing
DRMuestrario.Show
End Sub
La función Platos.Todos_Platos es:
Public Function Todos_Platos() As Recordset
Dim sSQLInstruccion As String
sSQLInstruccion = " Select * from Plato order by Descripcion"
Set Todos_Platos = New Recordset
Todos_Platos.CursorType = adOpenKeyset
Todos_Platos.CursorLocation = adUseClient
Todos_Platos.Open sSQLInstruccion, CN, adOpenKeyset, adLockOptimistic
End Function
Registros (Sólo te mando uno como ejemplo):
Descripcion: Pichon de Narvaz Sangrante con reducción de Garnacha
PVP: 1.533,00
Foto: La ruta completa del archivo donde está la foto. Ejemplo:
C:WINDOWSEscritorioHoteles NHFotosQuesos.jpg
Además en el Reporte he vinculado el control rptTextBox de la Descripción (el nombre del Plato) con el campo Descripcion (en la Propiedad DataField) y lo mismo he hecho con el rptTextBox del PVP, pero con el rptImage no puedo hacer lo mismo.
Espero que con esto sea suficiente.
Muchas Gracias.
