Centar za edukaciju-BiH



#11 24.11.2012 21:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Generiranje broja dokumenta
Treba u jednu tabelu popisati imena komjutera.
Tabela neka se zove tblKomjuteri
Znaci tabela bi isla ovako:
Id autonumber
ImeKompa tekst

Procedura na polju iddokumenta na after update:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub IDdokumenta_AfterUpdate()
  2. Dim Br As Integer
  3. Dim ImeKompa As String
  4. Dim ID As Integer, Poz As Integer
  5.  
  6. ImeKompa = Environ(6)
  7. Poz = InStr(1, ImeKompa, "=") + 1
  8. ImeKompa = Mid(ImeKompa, Poz)
  9. Br = DCount("[BrojDok]", "tblDokumenti", "[IDdokumenta]=Forms!frmDokumenti.IDdokumenta") + 1
  10. ID = DLookup("ID", "tblKomjuteri", "ImeKompa='" & ImeKompa & "'")
  11. Me.BrojDok = Me.Prefix & "-" & ID & "_" & Format(Br, "0000")
  12. End Sub

PodrĊĦka samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 24.11.2012 23:38
denoza Van mreze
Clan
Registrovan od:03.08.2011
Postovi:12


Predmet:Re: Generiranje broja dokumenta
Hvala na brzom odgovoru, probat ću implementirati.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 8: 45 pm.