Private Sub APOTEKA_Click()
Dim NazivF As String

If K = 0 Then
NazivF = "Izlaz"
ElseIf K = 1 Then
NazivF = "Ulaz"
End If

    DoCmd.OpenForm NazivF, acNormal, "", "[APOTEKA]=[Forms]![frmpokreni]![APOTEKA]", , acNormal
    DoCmd.GoToRecord , , acLast
End Sub