Problemas con registros nuevos en subformularios
Publicado por kyo435 (1 intervención) el 18/04/2006 15:54:13
Saludos
Tengo un problema con los registros nuevos de un subformulario..explico rapido su estructura:
un formulario con 4 cuadros combinados, boton nuevo registro y un subformulario en columnas, sucede que al seleccionar valores en los cuadros combinados el subformulario se carga con los registros seleccionados y lo hace bien, precionas el boton nuevo y te crea si efectivamente un nuevo registro pero...................con datos de la consulta hecha por los cuadros combinados ademas de colocar otro registro nuevo marcado con un *
¿Como podria evitar que los registros nuevos sean cargados con los datos de la consulta anterior sin borrar lo que han filtrado los cuadros combinados en el subformulario?
Este es mi ultimo cuadro combinado:
Private Sub Cuadro_combinado10_AfterUpdate()
Dim strSQLSF As String
strSQLSF = " SELECT * FROM LIBRANZAS "
strSQLSF = strSQLSF & " WHERE LIBRANZAS.Activo = '" & Cuadro_combinado4 & "' And "
strSQLSF = strSQLSF & " LIBRANZAS.FechaInicio = #" & Format(Me![Cuadro combinado6], "mm\/dd\/yyyy") & "# And "
strSQLSF = strSQLSF & "LIBRANZAS.FechaTermino = #" & Format(Me![Cuadro combinado8], "mm\/dd\/yyyy") & "# And "
strSQLSF = strSQLSF & "LIBRANZAS.Descripcion = '" & Cuadro_combinado10 & "'"
Me!menu.LinkChildFields = ""
Me!menu.LinkMasterFields = ""
Me!menu.LinkChildFields = "Activo;FechaInicio;FechaTermino;Descripcion"
Me!menu.LinkMasterFields = "Activo;FechaInicio;FechaTermino;Descripcion"
Me.RecordSource = strSQLSF
Me.Requery
End Sub
y este mi boton nuevo registro:
Private Sub Comando20_Click()
Me.menu.Form.AllowAdditions = True
DoCmd.GoToControl "menu"
DoCmd.GoToRecord , , acNewRec
Me!menu!Descripcion = ""
Me!menu!FechaInicio = ""
Me!menu!FechaTermino = ""
Me!menu!Diferencia = ""
Me!menu!Autorizado = ""
Me!menu!Comentario = ""
Me!menu!Objetivo = ""
Me!menu!Alcances = ""
Me.AllowEdits = True
End Sub
Tengo un problema con los registros nuevos de un subformulario..explico rapido su estructura:
un formulario con 4 cuadros combinados, boton nuevo registro y un subformulario en columnas, sucede que al seleccionar valores en los cuadros combinados el subformulario se carga con los registros seleccionados y lo hace bien, precionas el boton nuevo y te crea si efectivamente un nuevo registro pero...................con datos de la consulta hecha por los cuadros combinados ademas de colocar otro registro nuevo marcado con un *
¿Como podria evitar que los registros nuevos sean cargados con los datos de la consulta anterior sin borrar lo que han filtrado los cuadros combinados en el subformulario?
Este es mi ultimo cuadro combinado:
Private Sub Cuadro_combinado10_AfterUpdate()
Dim strSQLSF As String
strSQLSF = " SELECT * FROM LIBRANZAS "
strSQLSF = strSQLSF & " WHERE LIBRANZAS.Activo = '" & Cuadro_combinado4 & "' And "
strSQLSF = strSQLSF & " LIBRANZAS.FechaInicio = #" & Format(Me![Cuadro combinado6], "mm\/dd\/yyyy") & "# And "
strSQLSF = strSQLSF & "LIBRANZAS.FechaTermino = #" & Format(Me![Cuadro combinado8], "mm\/dd\/yyyy") & "# And "
strSQLSF = strSQLSF & "LIBRANZAS.Descripcion = '" & Cuadro_combinado10 & "'"
Me!menu.LinkChildFields = ""
Me!menu.LinkMasterFields = ""
Me!menu.LinkChildFields = "Activo;FechaInicio;FechaTermino;Descripcion"
Me!menu.LinkMasterFields = "Activo;FechaInicio;FechaTermino;Descripcion"
Me.RecordSource = strSQLSF
Me.Requery
End Sub
y este mi boton nuevo registro:
Private Sub Comando20_Click()
Me.menu.Form.AllowAdditions = True
DoCmd.GoToControl "menu"
DoCmd.GoToRecord , , acNewRec
Me!menu!Descripcion = ""
Me!menu!FechaInicio = ""
Me!menu!FechaTermino = ""
Me!menu!Diferencia = ""
Me!menu!Autorizado = ""
Me!menu!Comentario = ""
Me!menu!Objetivo = ""
Me!menu!Alcances = ""
Me.AllowEdits = True
End Sub
Valora esta pregunta


0