[es] - Pomoć oko sintakse za if then u VBA editoru

janez_drk

Član broj: 88686
Poruke: 12
85.94.135.*

Profil

Pomoć oko sintakse za if then u VBA editoru

^{28.08.2008. u 11:30 - pre 202 meseci}

Pozdrav,
Pokusavam napraviti da mi na click u formi direktno racuna u toj istoj formi na sljedeci nacin..

if [vrsta_proizvoda] = 1
then [ cijena] = [cijena] + 50

eleseif[vrsta_proizvoda] = 2
then [ cijena] = [cijena] + 60

eleseif[vrsta_proizvoda] = 3
then [ cijena] = [cijena] + 70

Problem mi je tocna sintaksa za ovo iznad..hvala za bilo kakvu pomoc

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2836

+45 Profil

Re: Pomoć oko sintakse za if then u VBA editoru

^{28.08.2008. u 11:41 - pre 202 meseci}

Problem je verovatno u obraćanju objektu. Mada nije eleseif već elseif. (If.....Elseif....Else....End if).
If Me![vrsta_proizvoda] = 1 Then
Me![cijena] = Me![cijena] + 50

elseif Me![vrsta_proizvoda] = 2 Then
Me![ cijena] = Me![cijena] + 60
...................
.....................
End If

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

janez_drk

Član broj: 88686
Poruke: 12
85.94.135.*

Profil

Re: Pomoć oko sintakse za if then u VBA editoru

^{28.08.2008. u 12:32 - pre 202 meseci}

Jos jednom hvala Getsbi...problem rijesen :D

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
93.159.77.*

+8 Profil

Re: Pomoć oko sintakse za if then u VBA editoru

^{29.08.2008. u 17:52 - pre 202 meseci}

A jel ti nebi ljepše izgledalo ovako

Select Case Me![vrsta_proizvoda]

Case 1
Me![cijena] = Me![cijena] + 50

Case 2
Me![cijena] = Me![cijena] + 60

Case 3
Me![cijena] = Me![cijena] + 70

Case Else
Msgbox "Nepoznata šifra proizvoda"

End Select

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Re: Pomoć oko sintakse za if then u VBA editoru

^{29.08.2008. u 18:43 - pre 202 meseci}

Meni CASE izgleda daleko jasnije nego seriaj IF ELSEIF naredbi.
Mozda moze i jos opstije - pomocu lookup tabele. Na primer, imas tabelu tblPOvecanjeCena:

Code:

VrstaRobe  Povecanje
A                10
B                15
C                22
D                 7
E                13

Onda bi mogao da se napise ovakav SELECT :

Code:

SELECT
A.RobaID, A.VrstaRobe , A.Cena, B.Povecanje, A.Cena + B.Povecanje AS NovaCena
FROM tblRoba AS A
INNER JOIN tblPOvecanjeCena AS B ON A.VrstaRobe = B.VrstaRobe

Ako je u pitanju neki UPDATE, onda ovako:

Code:

UPDATE tblRoba
SET Cena = A.Cena + B.Povecanje
FROM tblRoba AS A
INNER JOIN tblPOvecanjeCena AS B ON A.VrstaRobe = B.VrstaRobe

Ni u kom slucaju SEELCT i UPADTE ne moraju da se kucaju u SQL prozoru. Standardno igranje u Query Designer prozoru sasvim lepo zavrsava posao.

Odgovor na temu