zxz 24.11.2012 22:19
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

denoza 25.11.2012 00:38
Predmet:Re: Generiranje broja dokumenta

Hvala na brzom odgovoru, probat ću implementirati.