A un formulario cerrado
Publicado por Rubén (47 intervenciones) el 09/07/2010 08:36:58
Antes de enviar los datos, puedes comprobar por medio de una función que vea si ese objeto está abierto o no, más o menos algo así:
Public Function ObjetoCargado(nombreobjeto As String) As Boolean
Dim objeto As AccessObject
ObjetoCargado = False
For Each objeto In Application.CurrentProject.AllForms
If obxecto.Name = nombreobjeto Then
If objeto.IsLoaded Then
ObjetoCargado = True
Exit For
End If
End If
Next objeto
End Function
Si el valor es afirmativo, continúas con la ejecución de ese código. Si no es así, tendrás que, o bien abrir ese formulario y que quede oculto, ejecutar tu código y luego cerrarlo, o bien abrir la tabla deseada, situarte en el registro adecuado, copiar allí ese dato y volver a cerrarla.
Un saludo,
Rubén
Public Function ObjetoCargado(nombreobjeto As String) As Boolean
Dim objeto As AccessObject
ObjetoCargado = False
For Each objeto In Application.CurrentProject.AllForms
If obxecto.Name = nombreobjeto Then
If objeto.IsLoaded Then
ObjetoCargado = True
Exit For
End If
End If
Next objeto
End Function
Si el valor es afirmativo, continúas con la ejecución de ese código. Si no es así, tendrás que, o bien abrir ese formulario y que quede oculto, ejecutar tu código y luego cerrarlo, o bien abrir la tabla deseada, situarte en el registro adecuado, copiar allí ese dato y volver a cerrarla.
Un saludo,
Rubén
Valora esta pregunta


0