Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "PitaIzdatnicu"
    stLinkCriteria = "IDPoz=" & CStr(Me.txtIDpoz)  [color=#FF0000]'IDpoz je bio broj, a sada je string[/color]
 
    If Not IsNull(DLookup("IDPoz", "qryNalog", "IDPoz=" & CStr(Me.txtIDpoz))) Then
        DoCmd.OpenForm FormName:=stDocName, OpenArgs:=Me.txtIDpoz
    Else
    DoCmd.OpenForm FormName:=stDocName _
                    , datamode:=acFormAdd _
                    , WhereCondition:=stLinkCriteria _
                    , OpenArgs:=Me.txtIDpoz
End If