Cerrar formulario activo y abrir otro
Publicado por antonio (114 intervenciones) el 22/07/2010 10:21:32
Hola a todos a través de un botón quiero salir de un formulario "PROPUESTA DE GASTO" y entrar en otro "Ficha Proyecto". Como quería que fuese a un proyecto en concreto había puesto esto:
Private Sub PROYECTO_Click()
On Error GoTo Err_PROYECTO_Click
Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = "[Id_Proyecto]=" & Me![Id_Proyecto]
stDocName = "FICHA PROYECTO"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_PROYECTO_Click:
Exit Sub
Err_PROYECTO_Click:
MsgBox Err.Description
Resume Exit_PROYECTO_Click
End Sub
Creo que ahora tengo que añadir a esto lo siguiente, pero no sale y no se donde se incluye
DoCmd.Open , "ficha de proyecto"
DoCmd.Close , "propuesta de gasto"
Gracias
Private Sub PROYECTO_Click()
On Error GoTo Err_PROYECTO_Click
Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = "[Id_Proyecto]=" & Me![Id_Proyecto]
stDocName = "FICHA PROYECTO"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_PROYECTO_Click:
Exit Sub
Err_PROYECTO_Click:
MsgBox Err.Description
Resume Exit_PROYECTO_Click
End Sub
Creo que ahora tengo que añadir a esto lo siguiente, pero no sale y no se donde se incluye
DoCmd.Open , "ficha de proyecto"
DoCmd.Close , "propuesta de gasto"
Gracias
Valora esta pregunta


0