Kod:
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "KULLANICITANIMLA"
'burda açılmasını istediğin formun adını yaz
stLinkCriteria = "[ID]=" & Me![ID]
'burda ıd'leri kendine çevir
DoCmd.OpenForm stDocName, , , stLinkCriteria