Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoć oko sintakse za if then u VBA editoru

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

[ Pregleda: 2314 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

janez_drk

Član broj: 88686
Poruke: 12
85.94.135.*



Profil

icon Pomoć oko sintakse za if then u VBA editoru28.08.2008. u 11:30 - pre 163 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: 2750



+33 Profil

icon Re: Pomoć oko sintakse za if then u VBA editoru28.08.2008. u 11:41 - pre 163 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

 
Odgovor na temu

janez_drk

Član broj: 88686
Poruke: 12
85.94.135.*



Profil

icon Re: Pomoć oko sintakse za if then u VBA editoru28.08.2008. u 12:32 - pre 163 meseci
Jos jednom hvala Getsbi...problem rijesen :D
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
93.159.77.*



+8 Profil

icon Re: Pomoć oko sintakse za if then u VBA editoru29.08.2008. u 17:52 - pre 163 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

icon Re: Pomoć oko sintakse za if then u VBA editoru29.08.2008. u 18:43 - pre 163 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

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

[ Pregleda: 2314 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.