Obračun registracije automobila.

[ Pocev-od-mene @ 31.07.2012. 01:09 ] @

Pozdrav,

napravio sam neki pokušaj obračuna registracije u accessu, isti imam u excelu i u javascript ali htio bih to napraviti u accessu čisto da naučim kako. U oba urađena slučaja sam koristio if funkciju ali sada mi je malo nejasno.

Ovako je jedan dio koda za "Putarinu" izgledao u javascriptu, a slično je i u excelu samo manje pisanja.

Code:
    if ((v > 0) && (v < 1100)) document.getElementById('putarina').value = '25.00';
    if ((v >= 1101) && (v <= 1600)) document.getElementById('putarina').value = '50.00';
    if ((v >= 1601) && (v <= 2000)) document.getElementById('putarina').value = '60.00';
    if ((v >= 2001) && (v <= 2500)) document.getElementById('putarina').value = '100.00';
    if ((v >= 2501) && (v <= 3000)) document.getElementById('putarina').value = '150.00';
    if (v > 3000) document.getElementById('putarina').value = '350.00';
    porez();
    ukupno();

Eh sad bi mi trebala informacija kada ja napravim u formi četiri polja ( Kilovati, Kubici, Godina, Ukupno ) kako bih ja uspio povezati kojom funkcijom sve to da mi ispiše npr.
Ako ja unesem 58 u polje kilovati, 1830 u polje kubici i 1998 u polje godina.

Code:
if kilovati > 55; && kilovati < 66; && kubici < 2000; && godina < 10; = 20 EURA

I da mi u polju Ukupno piše 20.

Hvala svima koji su spremni pomoći i ako je potrebno mogu zakačiti ovo što sam do sada pravio u excelu, javascriptu i nešto u accessu forma, tabela itd...

[ FOX028 @ 31.07.2012. 05:58 ] @

Mozes napraviti svoju funkciju VBA editoru i kasnije je pozvati za polje ukupno na formi.

Evo funkcije kako bi mogla izgledati:

Code:
Function Registracija(KW As Single, CCM As Single, GOD As Integer) As Currency

    If KW > 55 And KW < 66 And CCM < 2000 And GOD < 10 Then
        Registracija = 20
    ElseIf KW > 66 And KW < 77 And CCM < 3000 And GOD < 10 Then
        Registracija = 30
    ElseIf KW > 77 And KW < 88 And CCM < 4000 And GOD < 10 Then
        Registracija = 40
    'ostale uslove bi pisao slicno kao ove gore
    End If

End Function

ako ne budes uspeo okaci svoj primer u access-u pa da pokusamo da resimo problem.

[ Zidar @ 31.07.2012. 14:01 ] @

Ima jedan mali problem kad se ova situacija resava funkcijama. Sta radis kad se promene cene i uslovi? Nije bas zgodno prepravljati funkciju svaki put kad se promeni cena ili uslovi za odredjivanje cene. Zasto ne pokusate da uslove i cene drzite u nekakvim tabelama, pa da ih odatle kveri izvlaci kad zatreba? Access ima mogucnosti da radi na drugacijem, visem nivou nego Excel i treba to iskoristiti.

[ SLOJ.1973 @ 01.08.2012. 02:14 ] @

Zidar je u pravu (kao i inače,zar ne?!).Zato sam ti odradio bazu da možeš da biraš koje cene i za koje uslove važe.Pozdrav.Au,pa malo je kasno zar ne?!.

[ Pocev-od-mene @ 02.08.2012. 01:46 ] @

Pozdrav,

metod koji je napisao Zidar sam shvatio i ok mogu to uraditi, ali i ovaj sa funkcijom mi je ok samo nemogu nikako učitati funkciju da radi ili mi javlja neke errore ili kad ih ne javlja onda neće da radi. Evo mog pokušaja koji trenutno nedaje nikakve znakove života ako neko može da učita da proradi i da napiše kako je učitao da znam za ubuduće. HVALA PUNO

[ FOX028 @ 02.08.2012. 07:54 ] @

Odradio sam ti nesto na brzinu, u prilozenom primeru imas obe varijante.

[ Pocev-od-mene @ 02.08.2012. 11:26 ] @

Hvala ti puno, kad završim cijeli obračun okačit ću ovdje da pogledate :D

[ Pocev-od-mene @ 03.08.2012. 01:28 ] @

Pozdrav,

opet ja sa problemima! Napravio sam sve kako sam želio imam 2 problema.
Radio sam sve preko modula sa if funkcijom i sada kad snimim podatke uopšte mi neće da ostanu u tabeli kao da ih nisam ni snimio, a drugi problem mi je sa chekboxom nemogu da skontam kako kada je box cekiran da vrijednost neke kolone bude npr. 4 a kada nije čekiran da bude 5.Bazu sam postavio u attachment pa ko ima vremena neka pogleda. HVALA PUNO

Edit: Pregledao sam po forumu ima sličnih pitanja za oba problema ali nisam uspio riješiti.

[ Pocev-od-mene @ 03.08.2012. 11:32 ] @

Molim Vas jel ima neko da mi pojasni ovo.

[ SLOJ.1973 @ 03.08.2012. 13:57 ] @

Evo primera.Nadam se da će ti biti jasnije kada ga pogledaš.

[ Pocev-od-mene @ 04.08.2012. 00:23 ] @

Hvala puno sada sam shvatio i uradio kako sam želio uz vašu pomoć. Ono što ima ovaj forum nema sigurno cijeli balkan! HVALA JOŠ JEDNOM.

[ Pocev-od-mene @ 15.08.2012. 01:28 ] @

Pozdrav raja,
evo mene opet, već ste navikli na mene... Sada kad sam sve upakovao kako treba primjetio sam jedan problem koji se javlja kada ljudi koji nisu u toku sa ovim programčićem kojeg radim već dugo... Naime kada upišem kilovate, kubike, godinu proizvodnje onda da bi se stanje u formama mjenjalo moram klikati jedno po jedno polje ili ići putem tab, nekad davno sam imao jedan imenik i po njemu sam pokušao uraditi ovako, ali neće...

Znači da skratim, kako kada unesem određeni broj kilovata, da se automatski u polju POLICA1 promjeni cijena, a da nemoram kliknuti na polje.

Code:
Private Sub KW_Change()
Dim KW1 As String
KW1 = KW.Text
TextKW.Value = KW1
Me.POLICA1.Requery
End Sub

Hvala Vam na pomoći.

EDIT:

Sada mi stoji ovako:

Code:

Private Sub POLICA1_GotFocus()
Me.POLICA1 = POLICA2(Me.KW)
End Sub

[ Pocev-od-mene @ 21.08.2012. 09:39 ] @

Molim Vas jel može neko da mi pomogne, sve sam pokušao ali nemože :)

[ SLOJ.1973 @ 21.08.2012. 12:09 ] @

Ako sam dobor shvatio iz prilozenog koda vrednost polja POLICA1 je u stvari POLICA2(Me.KW)

Citat:

Pocev-od-mene:
code]
Private Sub POLICA1_GotFocus()
Me.POLICA1 = POLICA2(Me.KW)
End Sub[/code]

Ako je tako,onda u prvom kodu stavis prvo Me.POLICA1 = POLICA2(Me.KW)
,pa tek onda Me.POLICA1.Requery

[ Pocev-od-mene @ 21.08.2012. 13:14 ] @

Prijatelju, glavna fora je u GotFocus... Kako da ja nemoram doći na to polje mišem, a da on promjeni evo baza pa da lakše skontaš u čemu je problem.

PS. Nemogu upload 35 mb mi je baza, a ovdje samo 1 mb može...

Ti si mi gore već pomogao i postavio GOTFOCUS dali može da ja unesem CCM, KW, GOD a da on bez gotfocusa promjeni sve vrijednosti.

_{[Ovu poruku je menjao Pocev-od-mene dana 21.08.2012. u 14:26 GMT+1]}

[ srdrazic @ 21.08.2012. 13:41 ] @

Pa ZIP-uj je.

[ Pocev-od-mene @ 21.08.2012. 14:00 ] @

Pa pokušao sam, ali izgleda da se nemože 35,1 mb kompresovati u 1024 kb, kojom metodom?

ps. moj najbolji rezultat je 3,49 mb ako imaš rješenje, neki program i sl. javi. POZ

[ Getsbi @ 21.08.2012. 14:30 ] @

Pre nego zipuješ uradi Compact and Repair baze. Ako i tada bude veća, probaj da napraviš poseban primer gde većina podataka i nepotrebnih objekata neće egzistirati. Tada je spakuj i uploaduj.

_{[Ovu poruku je menjao Getsbi dana 21.08.2012. u 20:04 GMT+1]}

[ SLOJ.1973 @ 21.08.2012. 18:55 ] @

Evo ti baza u prilogu.Sve rešavaš pomoću komandnog dugmeta.Nadam se da si to želeo.Pozdrav.
PS:Možeš ceo kod sa tog komandnog dugmeta da staviš na događaj OnLostFocus GOD ili AfterUpdate GOD,ali čini mi se da ti je ovo elegantnije.

[ Pocev-od-mene @ 22.08.2012. 07:51 ] @

Hvala ti puno, ovo mi je trebalo uspio sam sada riješiti sve i isprobao. Hvala još jednom.