Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (2):1,2
 Prikazi prvu neprocitanu poruku

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


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
Podrska 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

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 02 am.