Predmet:Re: Reden broj vo Queri

---

ja koristim ovu funkciju

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
With frm.RecordsetClone
.Bookmark = frm.Bookmark
RowNum = .AbsolutePosition + 1
End With
Exit_RowNum:
Exit Function

Err_RowNum:
If err.Number <> 3021& Then 'Ignore "No bookmark" at new row.
Debug.Print "RowNum() error " & err.Number & " - " & err.Description
End If
RowNum = Null
Resume Exit_RowNum
End Function

a pozovem je kao unbound row
=RowNum([Form])