pmiroslav | 28.10.2011 11:00 |
---|---|
Predmet:Problemi viÅ¡ekorisničkog rada Imam Access bazu koja radi u mreži. Znači BackEnd na jednom kompjuteru, a FrontEnd na kompjuterima od 4 do 5 korisnika. Problem je kada dva ili možda viÅ¡e korisnika unosi ili mijenja podatak u istoj tablici i tada dolazi do greÅ¡ke. Ima li načina da se ovakovi problemi rijeÅ¡e. |
zxz | 28.10.2011 17:01 |
---|---|
Predmet:Re: Problemi viÅ¡ekorisničkog rada Jedan nacin je da naprav is lokalne tabele pa da napr pri zatvaranju formi za unos preneses podatke ili da napravis nevezana polja na formi pa na komandni taster da vrsis update podataka u bazu. |
pmiroslav | 28.10.2011 19:04 |
---|---|
Predmet:Re: Problemi viÅ¡ekorisničkog rada MožeÅ¡ li mi molim te, ovo malo bolje objasniti. Kod mene je problem slijedeći. za generiranje ID-a u određenoj tablici koristim slijedeći kod koji si ti na napravio: PreuzmiIzvorni kôd (vbnet):
U formi kojom se pune podaci za polje ID, Default Value je =SifraN(). I sad kada više od jednog operatora otvori na svome kompjuteru tu istu formu u svakoj se generira isti String tako da samo jedan može spremiti podatak dok se ostalima javlja greška. |
zxz | 28.10.2011 19:29 |
---|---|
Predmet:Re: Problemi viÅ¡ekorisničkog rada Sad mi je jasno sta ti se desava. Mogao bi jos dodati broj racunara u sifru i nebi se poklapale. Function SifraN() Dim DB As Database Dim SQL As String Dim Rs As Recordset Dim I As String Set DB = CurrentDb SQL = "SELECT Max(OrderID) AS BrojN " & "FROM tblProdaja" ' SQL za najveci OrderID u tabeli prodaja Set Rs = DB.OpenRecordset(SQL) ' podize rekordset If Format$(Rs.Fields(0)) <> "" Then ' ako ima redova tada I = Val(Rs.Fields(0)) ' Ucitava vrijednost polja OrderID u var. i End If I = I + 1 ' na tu vrijednost dodaje 1 SifraN = Format(I, "000000") Rs.Close Set DB = Nothing End Function Imam goste nocas. Sutra cu se pozabaviti ovim ako ne rijesis. |
zxz | 30.10.2011 12:42 |
---|---|
Predmet:Re: Problemi viÅ¡ekorisničkog rada Probaj pozvati ovu proceduru na before update i zapisati id. Znaci bilo bi Me.ImeIDPolja=SifraN() Ako ovo ne bude islo valja nesto kompleksnije uraditi. Posto rece da imas oko 5 racunara mozda bi moglo da prodje. |
pmiroslav | 30.10.2011 14:38 |
---|---|
Predmet:Re: Problemi viÅ¡ekorisničkog rada Hvala, probat ću u srijedu jer do tada ne radim na poslu. |
pmiroslav | 02.11.2011 09:45 |
---|---|
Predmet:Re: Problemi viÅ¡ekorisničkog rada Evo isprobao sam prijedlog koji si mi dao i to mi ispravno upiÅ¡e novi podatak u tablicu, jedino je problem Å¡to u formi kroz koje unosim novi podatak polje ID na koje se ovo odnos stalno ostaje prazno tj ne vidi se novi ID sve dok se ne ode na novi unos pa se onda ponovo vrati na prednodni. |
pmiroslav | 02.11.2011 10:12 |
---|---|
Predmet:Re: Problemi viÅ¡ekorisničkog rada Evo i primjer |
|
Prilozi: ProbaID.rar (Velicina datoteke:22.60 KB) |
zxz | 02.11.2011 10:15 |
---|---|
Predmet:Re: Problemi viÅ¡ekorisničkog rada Mozda si skinuo ovu proceduru sa onog default value. Cini mi se da je bila tamo. Trebala bi ostati ako hoces da vidis, mada cesto neces vidjeti pravi odnosno on ce se ponovo generisati pa ako vec ima takav ovecat ce ga. |
pmiroslav | 02.11.2011 11:33 |
---|---|
Predmet:Re: Problemi viÅ¡ekorisničkog rada Ovo je O.K. Hvala |