ElseIf PRMT = 2 Then Status = DLookup("[Status]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID) Prefix = DLookup("[Prefix]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID) Naziv = DLookup("[Dokument]", "tblTransakcijeVrsta", "[IDdokumenta] =" & ID) BrojD = BrojDokumenta(Prefix) Frm.IDdokumenta.DefaultValue = ID Frm.BrojDok.DefaultValue = "'" & BrojD & "'" Frm.Caption = UCase(Naziv) DoCmd.Restore End If