abrir y cerrar
Publicado por JYM72 (39 intervenciones) el 24/10/2008 20:51:18
Tengo un formulario (Pre_Centros) con un combobox y un boton de abrir, este boton me abre un segundo formularario regido por el valor del combobox, pero no me cierra el primer primer formulario (el del combobox).
Las ordenes son:
Private Sub ACEPTAR_Click()
On Error GoTo Err_ACEPTAR_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Centros"
stLinkCriteria = "[Nombre del Centro]=" & "'" & Me![Cuadro combinado0] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ACEPTAR_Click:
Exit Sub
Err_ACEPTAR_Click:
MsgBox Err.Description
Resume Exit_ACEPTAR_Click
...y si le añado:
DoCmd.Close
...antes de Exit... me cierra el formulario que me interesa tener abierto.
¿Que he de corregir?
GRAICIAS
Las ordenes son:
Private Sub ACEPTAR_Click()
On Error GoTo Err_ACEPTAR_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Centros"
stLinkCriteria = "[Nombre del Centro]=" & "'" & Me![Cuadro combinado0] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ACEPTAR_Click:
Exit Sub
Err_ACEPTAR_Click:
MsgBox Err.Description
Resume Exit_ACEPTAR_Click
...y si le añado:
DoCmd.Close
...antes de Exit... me cierra el formulario que me interesa tener abierto.
¿Que he de corregir?
GRAICIAS
Valora esta pregunta
0