Recorset en un subformulario
Publicado por Alan (22 intervenciones) el 04/04/2007 11:56:56
Hola a todos, en un formulario tengo un subinforme que me muestra la tabla principal de datos. Estoy intentando hacer que cuando seleccione un registro, todos los campos que contiene ese registro me salgan en el formulario que tengo al lado para así poder modificar el registro. En el evento “al activar el registro” del subformulario pongo este código:
Option Compare Database
Private Sub Form_Current()
Dim rst As DAO.Recordset, _
strsql As String
Set rst = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
Me.Parent.Proveedor = rst!Proveedor
Me.Parent.Formatos = rst!Formatos
Me.Parent.HoraSolicitada = rst!HoraSolicitada
Me.Parent.HoraEntrada = rst!HoraEntrada
Me.Parent.FechaSolicitada = rst!FechaSolicitada
Me.Parent.FechaEntrada = rst!FechaEntrada
Me.Parent.Pedido = rst!Pedido
Me.Parent.Entrada = rst!Entrada
Me.Parent.Diferencia = rst!Diferencia
Me.Parent.Puntualidad = rst!Puntualidad
Me.Parent.Documentacion = rst!Documentacion
Me.Parent.Problemaenproduccion = rst!Problemaenproduccion
End Sub
Este código es de otro programa que utiliza la forma que yo quiero y este código es el que he adaptado yo.
Lo que pasa es que cuando activo uso el programa me sale la ventanita de: no se ha definido el tipo definido por el usuario y ahí se queda.
Otra duda que tengo es que la variable rst que usa ¿de donde proviene?, ya que yo entiende que es del subformulario mientras que el Me.Parent.Proveedor es el nombre que uso en el formulario
Yo porque he visto esta parte de programa sinó hubiese intentando hacer algo con el recordsetclone pero voy un poco perdido, a ver si me podéis ayudar, Gracias. Alan
Option Compare Database
Private Sub Form_Current()
Dim rst As DAO.Recordset, _
strsql As String
Set rst = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)
Me.Parent.Proveedor = rst!Proveedor
Me.Parent.Formatos = rst!Formatos
Me.Parent.HoraSolicitada = rst!HoraSolicitada
Me.Parent.HoraEntrada = rst!HoraEntrada
Me.Parent.FechaSolicitada = rst!FechaSolicitada
Me.Parent.FechaEntrada = rst!FechaEntrada
Me.Parent.Pedido = rst!Pedido
Me.Parent.Entrada = rst!Entrada
Me.Parent.Diferencia = rst!Diferencia
Me.Parent.Puntualidad = rst!Puntualidad
Me.Parent.Documentacion = rst!Documentacion
Me.Parent.Problemaenproduccion = rst!Problemaenproduccion
End Sub
Este código es de otro programa que utiliza la forma que yo quiero y este código es el que he adaptado yo.
Lo que pasa es que cuando activo uso el programa me sale la ventanita de: no se ha definido el tipo definido por el usuario y ahí se queda.
Otra duda que tengo es que la variable rst que usa ¿de donde proviene?, ya que yo entiende que es del subformulario mientras que el Me.Parent.Proveedor es el nombre que uso en el formulario
Yo porque he visto esta parte de programa sinó hubiese intentando hacer algo con el recordsetclone pero voy un poco perdido, a ver si me podéis ayudar, Gracias. Alan
Valora esta pregunta


0