Mas de lo mismo :P
Publicado por David Mata (3 intervenciones) el 15/11/2007 10:08:04
Private Sub Comando108_Click()
On Error GoTo Err_Comando108_Click
DoCmd.Close
'OBRIR FRM_PRINCIPAL
stDocName = "frm_Principal"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando108_Click:
Exit Sub
Err_Comando108_Click:
MsgBox Err.Description
Resume Exit_Comando108_Click
End Sub
Segun este codigo que cierra el formulario activo y abre otro donde tengo el control de ficha.... como hago para que se abra el control de ficha numero 2 por ejemplo
???? Me.ControlFicha.Pages (2) donde y como iria esto o quizas otro manera
Gracias!
On Error GoTo Err_Comando108_Click
DoCmd.Close
'OBRIR FRM_PRINCIPAL
stDocName = "frm_Principal"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando108_Click:
Exit Sub
Err_Comando108_Click:
MsgBox Err.Description
Resume Exit_Comando108_Click
End Sub
Segun este codigo que cierra el formulario activo y abre otro donde tengo el control de ficha.... como hago para que se abra el control de ficha numero 2 por ejemplo
???? Me.ControlFicha.Pages (2) donde y como iria esto o quizas otro manera
Gracias!
Valora esta pregunta


0