Prikazi cijelu temu 08.04.2011 13:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Baza za skladište
Citat:
Private Sub Sifra_AfterUpdate()

If Me.Korisnik.Column(4) = Me.Sifra Then
Dim Db As Database
Dim Rs As Recordset
M_Oper.OperID = Me.Korisnik
M_Oper.ImeO = Me.Korisnik.Column(1)
M_Oper.PravaO = Me.Korisnik.Column(5)

Moras i ovdje napuniti one var. koje nisi.
ja vidim ovu prezimeO
Znaci treba dodati:
M_Oper.PrezimeO= Me.Korisnik.Column(Brojkolone)'Kolone se broje od 0.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.