[es] - uslovno otvaranje forme

M3RiM
Mostar

Član broj: 178335
Poruke: 93
*.PPPoE-1284.sa.bih.net.ba.

+1 Profil

^{16.07.2008. u 13:41 - pre 192 meseci}

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.... ;))

Odgovor na temu

Gjoreski 001
Aleksandar Gjoreski

Član broj: 181315
Poruke: 53
79.141.121.*

Profil

Re: uslovno otvaranje forme

^{16.07.2008. u 17:01 - pre 192 meseci}

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

Z34GAL

Prikačeni fajlovi

primer.mdb - 120k

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: uslovno otvaranje forme

^{16.07.2008. u 17:37 - pre 192 meseci}

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

Ozbiljan i odgovoran mladić

Odgovor na temu

Gjoreski 001
Aleksandar Gjoreski

Član broj: 181315
Poruke: 53
79.141.121.*

Profil

Re: uslovno otvaranje forme

^{16.07.2008. u 18:09 - pre 192 meseci}

nema problem sekoe dobro resenie se prifaka

Z34GAL

Odgovor na temu

M3RiM
Mostar

Član broj: 178335
Poruke: 93
*.PPPoE-1284.sa.bih.net.ba.

+1 Profil

Re: uslovno otvaranje forme

^{16.07.2008. u 20:16 - pre 191 meseci}

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]}

Odgovor na temu

M3RiM
Mostar

Član broj: 178335
Poruke: 93
*.PPPoE-1284.sa.bih.net.ba.

+1 Profil

Re: uslovno otvaranje forme

^{16.07.2008. u 20:46 - pre 191 meseci}

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.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
93.159.65.*

+8 Profil

Re: uslovno otvaranje forme

^{16.07.2008. u 22:10 - pre 191 meseci}

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

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: uslovno otvaranje forme

^{17.07.2008. u 09:24 - pre 191 meseci}

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

Ozbiljan i odgovoran mladić

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: uslovno otvaranje forme

^{18.07.2008. u 07:41 - pre 191 meseci}

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

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: uslovno otvaranje forme

^{18.07.2008. u 08:33 - pre 191 meseci}

Treba ev!koliko Trle, ev!koliko ...

Ozbiljan i odgovoran mladić

Odgovor na temu