Predmet:Re: Pomoc oko combobox-a
Otvoriš VB i uradiš novi modul pa upisi ovo
PreuzmiIzvorni kôd (Visual Basic):Public Function BrojReda(frm As Form) As Variant
On Error GoTo Err_BrojReda
With frm.RecordsetClone
.Bookmark = frm.Bookmark
BrojReda = .AbsolutePosition + 1
End With
Exit_BrojReda:
Exit Function
Err_BrojReda:
If Err.Number <> 3021& Then
Debug.Print "BrojReda() error " & Err.Number & " - " & Err.Description
End If
BrojReda = Null
Resume Exit_BrojReda
End Function
a onda na vrijednost polja upisi =BrojReda([Form])
jedino neznam ako je access njemački dali ima neko drugo ime za Form pa to stavi u zagradu