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
Pozdrav