Postavke baze podataka

Pozdrav,

imam odredjenu bazu podataka gdje na svakodnevnom nivou pratim ucinak uposlenika.

Baza se sastoji od sljedeceg:

* .xls fajl u kojem postoji za svakog uposlenika odvojeni sheet sa istoimenim aktivnostima i gdje oni unose broj aktivnosti u toku dana, npr. Prodaja cipela - 5, prodaja odjece - 10 itd.

* .mdb baza podataka gdje pored gore navedenih aktivnosti povlace se sistemski odredjene aktivnosti - koliko je ko bio na pauzi itd.

* sljedeci je novi .xls fajl u kojem putem .mdb update query-a ubacujem sistemske i manuelne aktivnosti uposlenika i sabirem ukupno radno vrijeme.

E sada, posto se ova varijanta pokazala kao nepouzdana (cesto se poremete formatirane celije u .xls fajlovima i sl.) da li neko ima prijedlog kako bi mogao raditi gore navedene aktivnosti, a da sebi olaksam zivot ?

Unaprijed hvala.

Mogao bi odraditi tako da kompletnu aplikaciju složiš u npr. Accessu ili ako poznaješ neki drugi jezik i/ili bazu.

Potpis

F

Ima li jos neku ideju, i malo detaljnije da objasni ?

Hvala puno

Ako hoces detaljnije uputstvo, moras detaljnije da opises problem koji pokusavs da resis. Ono sto si napisao nije dovoljno za savet bolji od ovog koji ti je dao captPicard. Ako hoces vise, moras vise i da nam kazes.

Posto ocigledno imas neko iskustvo, nisi bas totalni pocetnik, i sam znas koliko je vazno kad ti korisnik lepo objasni sta mu treba. E sad si ti korisnik kome nesto treba. Zato nam objasni sta to radis, sta zelis time da postignes, sta vec imas (to si nam objasnio delimicno), pa ce se vec neko naci da pomogne.

Deluje mi da imas neku vrstu "Ko je sta radio danas" problema, koja ce brzio da se prosiri pitanjima tipa "i ko nije danas bio na poslu", "kome koliko treba da platimo". Sve to lici na kombinaciju personalne evidencije ("human resources") i ono sto ovde zovu "payroll", a to nije ni malo naivno ni jednostavno. Pogotovo kad ne znamo tacno sta se desava.

Znaci, vise detalja s tvoje strane, da bi ti neko mogao pomoci.

Hvala na posvecenom vremenu. Mislio sam da sam dovoljno detaljan bio, evo ponovo cu nastojati objasniti i ubaciti fajlove.
Napomena: necu moci prikazati prakticno sve formule i sl. zbog bojazni da necu odati neku poslovnu tajnu.

Dakle imamo vise fajlove:

1. Unos uposlenici.xls - fajl u koji uposlenici na kraju svakog radnog dana su duzni da unesu aktivnosti koje su oznacene u koloni "Unos" kao "M" (manuelno).

2. baza.mdb - ovdje linkujem sve tabele iz gore navedenog fajla, i tu povlacim sve sistemske aktivnosti za svakog uposlenika(oznaka "S" u gore navedenom fajlu)

3. UNOS FINAL.xls - u ovom fajlu putem update query iz baza.mdb ubacujem i "M" i "S" aktivnosti sabirem ih i dobijem koliko je svaki radnik u jednom radnom danu koji se sastoji od 8 radnih sati proveo aktivno radeci.


Jos jednom napominjem da trenutni nacin povlacenja podataka mi se nikako ne svidja i jako je nepouzdan (formatirane celije izmedju Excel i Access pomjesaju razliku izmedju Numb i Text).

Kao sto rekoste u predhodnom postu, ovo je klasicni primjer "Human Resources" i volio bi kada bi neko dao prijedlog koji bi najefikasniji nacin bio da od uposlenika dobijem ove aktivnosti sto oni rucno moraju ubaciti i ove sto ja sistemski ubacujem.

Jos jednom unaprijed hvala, i moram reci da bi mi ovo na dugorocnom planu u mnogome olaksalo rad.

Ako ti nije potrebno,neophodno izbegni excel fajlove, Napravi formu za unos i report u accessu to ti je mnogo bolje resenje a ako ti treba izvestaj u excelu konvertuj.

Još jednom ponavljam isto.



Znači kompletnu aplikaciju napravi u Accessu npr. Djelatnici imaju formu u koju unose podatke, ti imaš formu/report gdje možeš pregledavati/mijenjati/dodavati podatke.

Potpis

F

Svabo, bukvalno prenosenje Excel metoda u Access ili bilo koju drugu bazu podataka jednostavno ne radi. Znaci, sve sto si uradio u Excelu, za Access ne valja. Ne valja za Access, u Excelu jos uvek valja. Pogotovo ne valja citati nesto iz jednog Excel fajla pa korististi Access query da se popuni drugi Excel fajl. Za to postoje formule ili postupak konsolidacije tabela.

Ako tek ucis Access, izaberi neki drugi primer. Human resource je previse komplikovan process. Da radis bazu koja podrzava human resource, treba da odlicno poznajes dve stvari 1) human resources i 2) baze podataka. Naglasak je na "ODLICNO". Povrsno, prosecno ili cak solidno poznavanje 1) ili 2) nije dovoljno. Da dobijes jasniju sliku, reci cu ti da na ovom forumu, od aktivnih korisnika, najvise 3-4 zadovoljavaju oba uslova (ja nisam jedna od njih, ne poznajem human resources).

Prema tome, mani se corava posla, za sada.

Kao sto ti predlaze @captpicard i @ galac1968 sve bi to trebao imati u accessovoj bazi, najlaksi nacin.
A što ti kaže @zidar to ti je zakon, morao bi dobrano znati programirati , tj iz accessa otvarati excel tabel provjeravati po nekoj
celiji dali je podatak ispravan itd....

Evo samo da vidis kako bi to izgledalo u praksi s tim da su u jednoj celiji ispisani ovi dolje svi podaci.
ti bi morao prvo ispitati da li su u toj celiji uneseni bas ti podaci koji po nekoj semi moraju bit, a ako ne , ajmo na celiju do nje .. itd

podaci = (objexcel.Cells(j, 1).Value), pa onda podaci = (objexcel.Cells(j, 2 ).Value) , ako nije datumsko polje onda podaci = (objexcel.Cells(j, 3).Value)

Mukotrpan posao, a skoro nikad ne mozes bas sve predvidjeti






Dim dato22 As Database
Dim rek22 As Recordset
Set dato22 = CurrentDb
Dim sqlupit22 As String
sqlupit22 = "select * from kontrola"
Set rek22 = dato22.OpenRecordset(sqlupit22)


kolona = 1

Set objexcel = CreateObject("Excel.Application")
lnkput = "C:\Program Files\Baan\tmp\privremena"
objexcel.Workbooks.Open (lnkput)




For j = 1 To 11000

podaci = (objexcel.Cells(j, 1).Value)



rbr = Mid(podaci, 1, 6)

predmet = Mid(podaci, 8, 14)
imepredmeta = Mid(podaci, 23, 30)
kupac = Mid(podaci, 54, 25)
referent = Mid(podaci, 80, 15)
tehnolog = Mid(podaci, 96, 10)
grpred = Mid(podaci, 107, 8)
sastav = Mid(podaci, 116, 8)
tehnologija = Mid(podaci, 125, 12)



If IsNumeric(rbr) Then

rek22.AddNew
rek22.Fields("rbr") = CDbl(rbr)

rek22.Fields("predmet") = Trim(predmet)
rek22.Fields("ime_predmeta") = Trim(imepredmeta)
rek22.Fields("kupac") = Trim(kupac)
rek22.Fields("referent") = Trim(referent)
rek22.Fields("tehnolog") = Trim(tehnolog)
rek22.Fields("gr_predmeta") = Trim(grpred)
rek22.Fields("sastav") = Trim(sastav)
rek22.Fields("tehnologija") = Trim(tehnologija)

rek22.Update

End If

Next j


rek22.Close
Set dato22 = Nothing

objexcel.Application.DisplayAlerts = False
objexcel.Application.Quit
objexcel.Application.DisplayAlerts = True

Ok ljudi, hvala svima na odvojenom vremenu.