Predmet:Re:Slike u formu i Report

---

If Me!IDSlike = "" Or IsNull(Me!IDSlike) Then

Dim Db As Database
Dim RS As Recordset
Set Db = CurrentDb
Set RS = Db.OpenRecordset("SELECT NZ(MAX(IDSlike),0) + 1 AS Br FROM tblSlike WHERE OrderID=" & OrderID)

Me![IDSlike] = RS.Fields("Br")
RS.Close
Set Db = Nothing

End If

---