Prikazi cijelu temu 28.11.2011 20:30
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


Predmet:Re: Pomoc oko combobox-a
Otvoriš VB i uradiš novi modul pa upisi ovo

PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function BrojReda(frm As Form) As Variant
  2. On Error GoTo Err_BrojReda
  3.     With frm.RecordsetClone
  4.         .Bookmark = frm.Bookmark
  5.        BrojReda = .AbsolutePosition + 1
  6.     End With
  7. Exit_BrojReda:
  8.     Exit Function
  9. Err_BrojReda:
  10.     If Err.Number <> 3021& Then
  11. Debug.Print "BrojReda() error " & Err.Number & " - " & Err.Description
  12.     End If
  13.     BrojReda = Null
  14.     Resume Exit_BrojReda
  15. 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