Kod:
	Private Sub Formac_Click()
On Error GoTo Err_Formac_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
 'Açık olan formu kapatır
DoCmd.Close 
'İstediğiniz formu açar
    stDocName = "AcilacakFormadi"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Formac_Click:
    Exit Sub
Err_Formac_Click:
    MsgBox Err.Description
    Resume Exit_Formac_Click
    
End Sub