Adición de dato de subformulario a una tabla en access
Mi nombre es Joel y mi problema es el siguiente.
Utilizo access 2010, en esta tengo un Formulario llamado Actividades el cual procede de una Talbla llamada Actividades, este Formulario posee un Subformulario llamado Detalle de actividades, este Subformulario posee un campo llamado SumaTotal que realiza un calculo automáticamente, lo que deseo hacer es colocar los datos de SumaTotal en la tabla que Actividades en un Campo que se llama MontoTotal. Necesito saber el código de Visual Basic que podría usar para realizar esta operación u otra forma de como podría hacerlo.
Utilizo access 2010, en esta tengo un Formulario llamado Actividades el cual procede de una Talbla llamada Actividades, este Formulario posee un Subformulario llamado Detalle de actividades, este Subformulario posee un campo llamado SumaTotal que realiza un calculo automáticamente, lo que deseo hacer es colocar los datos de SumaTotal en la tabla que Actividades en un Campo que se llama MontoTotal. Necesito saber el código de Visual Basic que podría usar para realizar esta operación u otra forma de como podría hacerlo.
1 respuesta
Respuesta de Neckkito Nck
1
Voy a contestarte suponiendo que tienes un botón en el formulario para guardar el registro, porque aquí, lo complicado, es dónde asignar el código.
Debes sacar las propiedades de ese botón de comando->Pestaña Eventos->Al hacer click y le generas el siguiente código (la primera línea de Private Sub debes dejar la que te salga por defecto):
---
Private Sub...
'Esta línea guarda el registro activo
Docmd. RunCommand acCmdSaveRecord
'Esto te captura el valor del campo SumaTotal.
'Si no hay valor sale del proceso
Dim vTot as Variant
vTot = Forms!Actividades.[Detalle de actividades].Form.SumaTotal.Value
If IsNull(vTot) then Exit Sub
'Esta línea te pasa el valor de SumaTotal a MontoTotal
Forms!Actividades.MontoTotal.Value = vTot
'Y esta línea te lleva a un nuevo registro. Si no la quieres
'la puedes borrar
DoCmd. RunCommand acCmdRecordsGoToNew
End Sub
---
Te lo he escrito de cabeza. Si te da algún problema me lo comentas y lo solventamos.
Debes sacar las propiedades de ese botón de comando->Pestaña Eventos->Al hacer click y le generas el siguiente código (la primera línea de Private Sub debes dejar la que te salga por defecto):
---
Private Sub...
'Esta línea guarda el registro activo
Docmd. RunCommand acCmdSaveRecord
'Esto te captura el valor del campo SumaTotal.
'Si no hay valor sale del proceso
Dim vTot as Variant
vTot = Forms!Actividades.[Detalle de actividades].Form.SumaTotal.Value
If IsNull(vTot) then Exit Sub
'Esta línea te pasa el valor de SumaTotal a MontoTotal
Forms!Actividades.MontoTotal.Value = vTot
'Y esta línea te lleva a un nuevo registro. Si no la quieres
'la puedes borrar
DoCmd. RunCommand acCmdRecordsGoToNew
End Sub
---
Te lo he escrito de cabeza. Si te da algún problema me lo comentas y lo solventamos.
