Pomoć oko sintakse za if then u VBA editoru

Odgovori Nova tema

4 odgovora
3.738 pregleda

Pomoć oko sintakse za if then u VBA editoru 28.08.2008. u 12:30 · pre 221 mesec #1

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

Re: Pomoć oko sintakse za if then u VBA editoru 28.08.2008. u 12:41 · pre 221 mesec #2

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

Potpis

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

Re: Pomoć oko sintakse za if then u VBA editoru 28.08.2008. u 13:32 · pre 221 mesec #3

Jos jednom hvala Getsbi...problem rijesen :D

Re: Pomoć oko sintakse za if then u VBA editoru 29.08.2008. u 18:52 · pre 221 mesec #4

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

Re: Pomoć oko sintakse za if then u VBA editoru 29.08.2008. u 19:43 · pre 221 mesec #5

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.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme