
ACTUALIZAR CUADRO COMBINADO Y FORMULARIOS CON SUBFORMULARIOS
Publicado por sebas (7 intervenciones) el 17/12/2013 22:07:39
hola colegas..estoy creando una bd en access 2003..en donde tengo dos formularios..el primer formulario contiene dos subfomularios y un cuadro combinado..en el segundo solo agrego los datos de los clientes..
resulta que cuando ingreso al primer formulario para ingresar al segundo formulario para agregar datos,este me lo guarda,pero el primer formulario no,ya que lo que quiero es que al aceptar los datos agregados en el segundo formulario me aparezcan automáticamente en el cuadro combinado..es decir,que se actualiza.
ESTE ES EL CODIGO ACEPTAR:
Private Sub CmdAceptar_Click()
Dim control As Boolean
On Error GoTo Err_CmdAceptar_Click
If IsNull(Me.Cuadro_combinado16.Value) = True Then
control = True
End If
If control = False Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If agregando = True Then
agregando = False
Me.AllowAdditions = False
End If
If modificando = True Then
modificando = False
End If
mUtiles.bloquearDetalle Me, False
Me.CmdModificar.SetFocus
Me.PieDelFormulario.Visible = False
Me.CmdAgregar.Enabled = True
Me.CmdVolver.Enabled = True
Else
MsgBox "Existen datos obligatorios que aún no fueron ingresados.", vbCritical + vbOKOnly, "Atención:"
End If
Exit_CmdAceptar_Click:
Exit Sub
Err_CmdAceptar_Click:
MsgBox "Error: " & Err.Number & " --- " & Err.Description
Resume Exit_CmdAceptar_Click
End Sub
resulta que cuando ingreso al primer formulario para ingresar al segundo formulario para agregar datos,este me lo guarda,pero el primer formulario no,ya que lo que quiero es que al aceptar los datos agregados en el segundo formulario me aparezcan automáticamente en el cuadro combinado..es decir,que se actualiza.
ESTE ES EL CODIGO ACEPTAR:
Private Sub CmdAceptar_Click()
Dim control As Boolean
On Error GoTo Err_CmdAceptar_Click
If IsNull(Me.Cuadro_combinado16.Value) = True Then
control = True
End If
If control = False Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If agregando = True Then
agregando = False
Me.AllowAdditions = False
End If
If modificando = True Then
modificando = False
End If
mUtiles.bloquearDetalle Me, False
Me.CmdModificar.SetFocus
Me.PieDelFormulario.Visible = False
Me.CmdAgregar.Enabled = True
Me.CmdVolver.Enabled = True
Else
MsgBox "Existen datos obligatorios que aún no fueron ingresados.", vbCritical + vbOKOnly, "Atención:"
End If
Exit_CmdAceptar_Click:
Exit Sub
Err_CmdAceptar_Click:
MsgBox "Error: " & Err.Number & " --- " & Err.Description
Resume Exit_CmdAceptar_Click
End Sub
Valora esta pregunta


0