[ M3RiM @ 16.07.2008. 13:41 ] @
imam dvije forme; Proces-Ispravan i Proces-Neispravan

u query imam jedno polje koje racuna neke stvari. i ako je taj broj koji je izracunat veci ili jednak 1 treba da mi otvori formu Proces-Neispravan
a ako je taj broj manji1 onda treba da otvori formu Proces-Ispravan

ja sam pokusao u macro-u
u macro za "openForm" ima opcija "Where Condition" i ja u njega stavim [ProvjeraTacnosti2]![Mi1]<1
medjutim taj uslov kod mene nista neradi
taj macro mi otvara formu bez obzira da li [Mi1] bio manji ili veci od 1

takodje sam pokusao u jednu formu postaviti dugme i u "On Click" kucati IF petlju.
ali mi u tamo u kodu stalno oznaci ovaj dio [ProvjeraTacnosti2]![Mi1]<1 i prijavi neku gresku.

pomozite mi.... ;))
[ Gjoreski 001 @ 16.07.2008. 17:01 ] @
probaj vaka so uslov
na osnovnata forma od koja gi povikuvas ovie dve formi postavi check pole koe ke go krstis OK ,potoa napravi komand buton i na on click postavi go ovaj kod:

If Me.OK = True Then

DoCmd.OpenForm "Proces-Ispravan"
Else
DoCmd.OpenForm "Proces-Neispraven"
End If

End Sub
[ domaci_a_nas @ 16.07.2008. 17:37 ] @
Ja bih ovo malčice izmenio...
Code:
Docmd.OpenForm "Proces-" & Iif(Me.OK, "", "NE") & "Ispravan"
Šta ću kad volim da skraćujem tuđ kod A projekat koji polako završavam ima 313 strana programskog koda, da ga Trle piše imao bi 1000

I samo da dodam da sam ničim izazvan spomenuo Trtka
[ Gjoreski 001 @ 16.07.2008. 18:09 ] @
nema problem sekoe dobro resenie se prifaka
[ M3RiM @ 16.07.2008. 20:16 ] @
hmm
cini mi se da me nisi bas razumio.

evo bas sam vidio ono sto si napravio.
onaj uslov ne postavljam ja, nego neka izracunata vrijednost u queryju

ali dao si mi ideju.

da napravim formu koja ce sadrzati taj podatak iz querija
i onda u toj formi napraviti dugme sa kodom slicnim tome tvom


Code:


If [Mi1]<1 Then

DoCmd.OpenForm "Proces-Ispravan"
Else
DoCmd.OpenForm "Proces-Neispravan"
End If

End Sub


[Ovu poruku je menjao M3RiM dana 16.07.2008. u 21:31 GMT+1]
[ M3RiM @ 16.07.2008. 20:46 ] @
to je to... ;)
to radi, ali sada imam mali... malo veci problemcic

forma na kojoj mi se treba da nalazi to dugme je formirana na osnovu tabele, pa cu morati mijenjati record source te forme sa tabele na query, a taj query ce biti formiran na osnovu te tabele... a baza je ogromna. do sada ima 22 queryja, a svaka vuce podatke iz te glavne forme

lud sam sto to nisam u startu uradio.
znao sam da ce mi nekad trebati na toj formi podaci iz drugih queryja.
al sta je tu je
ili cu nesto drugo iskombinovati.
mozda to dugme i nemora biti direktno na toj formi.


uglavnom hvala puno.
pozdrav.
[ Trtko @ 16.07.2008. 22:10 ] @
Zato ti Nikola imaš tako malu plaču

1 linija koda = 5 EUR a
pa sad racunaj, jel bolje mojih 1000 strana * 60 linija il 313 * 60

hmmmmmm pa i ti dost zaradiš , platiš rundu kad dojdem u kragujevac

-------------------------------------------------------------------

Pa možeš i u kodu ispitat što ti vrača uvjet
na onoj tvojoj formi , nema veze što joj je tablica record source
znači na On Klik postaviš ovo dolje , i to je to ....

npr...

Dim d As Database
Set d = CurrentDb
Dim ev As Recordset

Set ev = d.OpenRecordset("select sum(kolicina) as koliko * from tblListic where Cstr(datum_listica)='" & CStr(datum) & "'")

if koliko>1 then
otvori ovuformu
else
otvori druguformu
endif

zatvori recordset... ev.close
zaatvori .... set d=nothing

i
[ domaci_a_nas @ 17.07.2008. 09:24 ] @
Meni ovaj kod prijavljuje grešku variable not defined ?

Citat:
Trtko:if koliko>1 then
Evo Tršo, za tebe bih radio jedan evro po liniji koda koliko sam te zagotivio
[ Trtko @ 18.07.2008. 07:41 ] @
bogme sam pogriješio , nisam pazio na kod

ovak bi bilo ispravno

if koliko>1_pive then
msgbox("Nikoli samo davat mineralnu vodu" )
else
msgbox("Možete Nikoli dat pivo , ali bezalkoholno (i ona mu je prejaka)" )
endif

hehehehe


[ domaci_a_nas @ 18.07.2008. 08:33 ] @
Treba ev!koliko Trle, ev!koliko ...