Option Compare Database
Private Sub Příkaz0_Click()
On Error GoTo Err_Příkaz0_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Imageform"
stLinkCriteria = "[IDID]=" & Me![ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Příkaz0_Click:
Exit...