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])
Ovaj post je ureden
1
puta. Posljednja izmjena 04.12.2012 15:06 od strane roko.