Pucanje Access-a

Najbolje je privremena tabela BodyTemp.Znači formu vežeš za nju,a ne za tabelu Body i onda možeš da se igraš do mile volje.Čak i ako nestane struje,ostaće zapisa onoliko koliko je uneto u toj perivremenoj tabeli,pa posle ponovnog otvaranja forme Body,zapisi se pojavljuju i tako sve dok ne okineš dugme Sacuvaj.Posle okidanja,običnim Append query-jem dodaješ zapise iz tabele BodyTermp u tabelu Body a sa DeleteQuery-jem brišeš zapise iz privremene tabele i sve je ok.Pozdrav.

Potpis

Jednog dana...

Pretpostavljam da i pod else vazi isti uslov. Meni je ovo sasvim logicno,ali se desi da Access javi kako kontrola ne moze da dobije property dok focus nije na kontroli.

Evo sa ispravljenom tabelom BodyTemp (Recuired) i sa otklonjenim greskama u kodu na formi Body.

Potpis

Jednog dana...

Hvala. Ti si covece car. Probacu i ovu verziju,a u prilogu je Word dokument gde su 2 zapazanja.Molim te da ih zanemaris akoje to sredjeno. Imam i pitanje da li mi trebaju 2 temp tabele posto koristim 2 verzije forme(srpsku i englesku). Pretpostavljam da nije potrebno posto ce korisnik moci da koristi samo jednu,a ne obe forme istovremeno. Smem li da append vezem za dbo Body sa SQL Servera( to je linkovana tabela pa bih da punim nju, a preko nje i tabelu na serveru). Ako korisnik odluci da menja slog koji je vec uneo i koji je izbrisan iz Temp-a sta preporucujes u tom slucaju. Ja sam ubacio i kod na CMAnaliza Enter i za sada radi( ako mislis da ne treba kazi da ga sklonim):

Private Sub CManaliza_Enter()
On Error GoTo CManaliza_Enter_Err


If ((Me.Tipzastoja = 435 Or Me.Tipzastoja = 440 Or Me.Tipzastoja = 450) And (IsNull(Me.Text120) Or Me.Text120 = "")) Then
Beep

MsgBox "Obavezan unos uzroka zastoja za ovaj tip.", vbCritical, "Unesi uzrok"
Me.Text120.SetFocus

Else
End If

CManaliza_Enter_Exit:
Exit Sub

CManaliza_Enter_Err:
MsgBox Error$ & Err.Number
Resume CManaliza_Enter_Exit

End Sub

Probaj drugu verziju,koju sam pooslao,sve to je ispravljeno,čak i kod za CManaliza.Što se tiče Temp tabele,pa ne znam baš,nisam vičan sa SQL-om.Možda neko iskusniji da svoje mišljenje,a dotle mislim da neće škoditi još jedna Temp tabela. Možeš da puniš tabelu pomoću append querija bilo gde i bilo koju.Što se tiče ovoga:mislim da je najbolje da na dugme Sacuvaj postaviš upozorenje tipa:Ovim potezom pamtite podatke i nećete biti u mogućnosti da ih ispravite bla bla bla. Da li ste sigurni?.Znači moraju i korisnici malo da vode računa o onome što rade.

Potpis

Jednog dana...

Dali je neophodno After update za Datum, On Got Focus za Radna stanica.
On Change za tip zastoja zamenio sam mesto
Me.Uzrokzastoja.Visible = True
Me.Uzrokzastoja.SetFocus posto pretpostavljam da i za ovu kontrolu vazi isto kao za text120.

Sve radi i posle poruke Ovim potezom unosite.... dobio sam poruku Uspesan unos.
Problem je sto je slog iz BodyTemp izbrisan,ali Body nije napunjena.

Nista nisam menjao osim tab order jer nije bio u logicnom redosledu kod Radne stanice.

Jeste,da bi se zapamtio zapis i da bi se posle izlaska sa forme,bez pritiska Sacuvaj,sacuvao zapis i da bi se moglo nastaviti tamo gde se stalo.Namerno sam postavio na prvi slog(polje),na Datum,jer ako ne bi bilo onog me.refresh,zapis se ne bi ni upamtio sve do negde Tipzastoja ili gde već, a šta ako korisnik ukuca prva tri reda,i izadje sa forme-očekuje da posle ponovnog ulaska ta tri polja budu popunjena.

Jeste,jer posle ponovnog ulaska neće moći bez tog OnGotFocus koda da izabere bilo šta,ponuda u dropboxu biće prazna .
A za poslednje vidim i sam,uvek zaboravim Me.Refresh jer se zapis ne unese u Temp tabelu bez njega.Sada bi trebalo da je sve ok.I da još nešto:MRZIM autonumber polja,uvek naprave neki problem.Nisam hteo da diram ovaj put jer su ti i na serveru tabele sa Autonumberom,samo sam iz Temp tabele izbacio ID jer nije potreban.

Potpis

Jednog dana...

Proverio sam sledece.
Sklonio brisanje iz Body Temp i slog ostao zapisan u Body Temo,ali ne i u Body sto bi trebalo jer je upit za Append ostao u kodu.
Najcudnije je sto se Body napunio kada sam rucno kliknuo na Run upita.

Hvala covece. Stvarno si car.
Problem je sto svaki slog moze da se ponavlja,a ostaje mi jedino da ih pratim preko Id i mozda da ukljucim vreme i dan(sistemski) u kljuc.

Ako mi daju jedan lep projekat ostaje mi da trazim da te angazuju da se oduzim.
U suprotnom placam pice cim dodjem u PO( citaj do kraja maja).
Pozdrav

Sve radi super nad bazom. Ima li sanse da se proveri zasto nece da puni tabelu dbo_Body posle potvrde na poruku If MsgBox("Ovim potezom unosite podatke u bazu i necete moci da vrsite bilo kakve ispravke." & vbCrLf & "Da li ste sigurni da to zelite?", vbExclamation + vbYesNo, "Paznja!") = vbYes Then

Lepo puni i prazni Body i Body Temp,ali ne mogu da Body zamenim sa dbo_Body pa da slog ide u tu tabelu,a samim tim i na SQL Server posto je to linkovana tabela.

Srdacan pozdrav

Trenutno sam na poslu,pa nemam mogucnosti da otvorim 2010-ku. Ne bih da te uvredim,ali jesi li prepravio Append query,tj da li si umesto insert into Body upisao dbo_Body?
Obrisi iz koda za dugme Sacuvaj deo Docmd.SetWarnings false i prepravi u Docmd.SetWarnings true pa da vidimo sta Access prijavljuje.

_{[Ovu poruku je menjao SLOJ.1973 dana 07.05.2013. u 10:56 GMT+1]}

Potpis

Jednog dana...

Nisam neki veliki poznavalac Sql servera,ali google mi je ponudio neke odgovore prvi i drugi pa pokusaj.Pozdrav.

Potpis

Jednog dana...

Nema sanse da me uvredis. Append query sam prepravio,ali samo upisao dbo_Body umesto Body.
Promenicu ovo za SetWarnings pa cu videti. Hvala za linkove,ali ja ne umem da se snadjem.
Iscitao sam i probao predlozeno,ali sam ocigledno krs za VBA.

Uradio kako si rekao i naravno dobio sistemsku poruku da ce upit dodati slog u tabelu. prihvatio sam to,ali se nisat nije desilo, cak ni poruka uspesan unos.
Niti je izbrisan temp niti napunjena linkovana tabela.
najcudnije je sto upit sve radi kada ga pokrenem rucno i stavim insert into dbo_Body
Napunio sam rucno Body Temp pa simulirao upit.

Pozdrav

U kojoj verziji pokušavaš: Sloj3 ili Sloj3.1? Postuj sliku kad dodje do sistemske poruke.

Potpis

Jednog dana...

Probao sam sada da Query koji upisuje prevedem na Pass-Through Query i u Property zadao koja je ODBC konekcija.
Javio je poruku kao na ekranu.