Abrir formulario
Publicado por Eduardo (6 intervenciones) el 05/04/2007 15:20:35
hola tengo un formulario de facturas y otro de lineas de factura, el primero tiene un boton que me abre el segundo para dar de alta registros contenidos en el codigo de factura que paso del primer formulario al segundo. El segundo formulario tiene un boton que me cierra este formulario y me abre el primero. El problema que tengo es que cuando cierro el formulario me almacena un registro en blanco en la tabla de lineas de factura. Alguien me podria decir como solucionarlo, gracias.
El codigo del boton es el siguiente
Private Sub Close1Button_Click()
On Error GoTo Err_Close1Button_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "facturas"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Lineasfactura"
Exit_Close1Button_Click:
Exit Sub
Err_Close1Button_Click:
opcion = MsgBox("No se puede cerrar el formulario.", vbCritical, "")
Resume Exit_Close1Button_Click
End Sub
El codigo del boton es el siguiente
Private Sub Close1Button_Click()
On Error GoTo Err_Close1Button_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "facturas"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Lineasfactura"
Exit_Close1Button_Click:
Exit Sub
Err_Close1Button_Click:
opcion = MsgBox("No se puede cerrar el formulario.", vbCritical, "")
Resume Exit_Close1Button_Click
End Sub
Valora esta pregunta


0