[ tok @ 23.03.2005. 19:23 ] @
Imam pitanje i stvarno se vec mucim par dana i ne znam kako...
Molim vas pomoc...

U formi se napravi odabir koji definira vrednost "id_ure" i onda sam mislio preko selecta proveriti u odredjenoj tablici ovisno o tom "id_ure" koji je primarni ključ u tablici koja je vrednost definirana u pojedinom stupcu flag_ure

Stavio sam message box samo da mi izvadi vrednost da li radi kao kontrolu.

Nadam se da nisam zakomplicirao objašnjenje i da je izvedivo :-)

Ovo dole sam pokusao, ali javlja gresku 2342 :-((
Moze li neko pomoci, sta je krivo??

Hvala....


Private Sub Combo0_Change()

Dim SQLA As String

SQLA = "SELECT flag_ure FROM uredjaj WHERE id_ure = combo0.value"

DoCmd.RunSQL SQLA

MsgBox SQLA

End Sub
[ GoranVucicevic @ 24.03.2005. 08:03 ] @
Code:

Private Sub Combo0_Change()

Dim SQLA As String

SQLA = "SELECT flag_ure FROM uredjaj WHERE id_ure = " & combo0.value

DoCmd.RunSQL SQLA

MsgBox SQLA

End Sub 
[ tok @ 24.03.2005. 08:28 ] @
Hvala, ali opet ne radi...odnosno...

u MSgBox-u mi ne vraca vrednost tog SQLA stringa...ne javlja se greska, ali kod ne kupi tu vrednost preko selecta
[ bestlight @ 24.03.2005. 09:38 ] @
Mozda bi ti bilo jednostavnije da se koristis sa Column() svojstvom Combo Box-a. Naime, ako u querryu za taj combobox, pored id_ure, stavis i flag do njega jednostavno dolazis preko vrednosti (ako ti je ime comboboxa cmbID) cmbID.Column(n) gde ti je n broj kolone u kojojse nalaz flag umanjeno za 1 (jer pocinje da broji od 0).
[ tok @ 24.03.2005. 10:02 ] @
Ne mogu nazalost tako jer ovo mi je samo jedan od preduveta za dalje slozenije stvari...
U principu ono sta ne znam je kako povuci preko selecta određenu vrednost ovisno o primarnom kljucu koji je odabran u comboboxu i staviti je kao string da bude upotrebljiva za dalje
[ bestlight @ 24.03.2005. 12:19 ] @
Nisam siguran da razumem. I jedan i drugi primer ti daju vrednost sa kojom posle mozes da radis sta hoces. Deklarisi jednu PUBLIC varijablu i dodeli joj dobijenu vrednost. Posle mozes da je pozivas bilo gde u kodu (samo iz VB-a). Mozda da malo bolje pojasnis sta se desva dalje sa tom vrednoscu i zasto to treba. Koliko sam shvatio, i ID i flag su iz iste tabele sto jos vise pojednostavljuje stvar.
[ Zidar @ 24.03.2005. 15:02 ] @
Code:
Code:

Private Sub Combo0_Change()

Dim SQLA As String

SQLA = "SELECT flag_ure FROM uredjaj WHERE id_ure = " & combo0.value

DoCmd.RunSQL SQLA

MsgBox SQLA



End Sub

Ovaj kod sto si dao radi sledece:
1) gradi string varijablu SQLA, koja na kraju izgleda bnesto kao "SELECT flag_ure FROM uredjaj WHERE id_ure = 789", gde je 789 vrednost koja je dosla iz kombo boxa.

2) MasgBox SQLA ne radi NISTA .RunSQL je za akcione kverije (INSERT, UPDATE). Mozda se cak nesto i desi - negde u memoriji 'otvori' se SELECT kveri, ali se to naravno ne vidi nigde.

3) DoCmd.RunSQL SQLA vratice ti poruku u kojoj pise - string "SELECT flag_ure FROM uredjaj WHERE id_ure = 789"

Ono sto ti verovatno hoces, ali ne umes da nam objasnis jeste da upotrebis vrednost flag_ure koju je odabrao SELECT statemet koji si sagradio. E to ne moze ovako kako si zamislio. Umseto DoCmd.runSQl treba da otvoris recordset koji se bazira na tvojoj SQLA varijabli ("SELECT flag_ure...") i da procitas sta ti je rekrdset vratio.

:-)
[ tok @ 24.03.2005. 15:19 ] @
Da tocno, to je to!

Upotrebio bi vrednost flag_ure koju je odabrao SELECT statemet za daljnje akcije

Recordset koji se bazira na SQLA varijabli ("SELECT flag_ure...") i da procita sta je rekrdset vratio.
Message box je bio samo zbog kontrole da vidim da li je pokupio vrednost.



Samo ne znam kako tih par redova za recordset ispisati...
Mozda sam dosadan i mozda je zaista neko trivijalno pitanje, al zaista ne znam

Hvala puno na trudu...
[ tok @ 24.03.2005. 22:09 ] @

Pokusao i napisao sam ovo ali ne ide opet...ne dobivam kontrolnu vrednost.
Javlja gresku Type mismatch na kraju koda za
s=rst

Kako da ovo ucinim da radi ?

Hvala...

Code:

Private Sub Combo0_Change()

 If Combo0.Value = True Then


Dim dbs As Database, rst As Recordset
Dim strSQL As String
Dim s As String

Set dbs = CurrentDb

strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure =" & Chr(34) & Combo0.Value & Chr(34)

Set rst = dbs.OpenRecordset(strSQL)

s = rst

MsgBox s


End If
End Sub
[ izonic @ 25.03.2005. 18:40 ] @
jeli id_ure Broj ili string u bazi
[ tok @ 25.03.2005. 19:18 ] @
String je....

Jel znash? Mooolim te ispravi sto je krivo...

Hvala
[ izonic @ 25.03.2005. 19:53 ] @
strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure ='" & Combo0.Value & "'"---imedju chr(34) chr(39)i iza zanaka jednakosti
[ tok @ 25.03.2005. 20:19 ] @
strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure ='" & Combo0.Value & "'"

a kako idu chr(34) chr(39) ???

oprost na neznanju...
[ tok @ 25.03.2005. 21:10 ] @
Code:


strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure =chr(34) '" & Combo0.Value & "'chr(39)"


Probao ovako ali ne ide...ne dobivam iznos u kontrolnom msgbox.u...

Jel nesto krivo ???
[ izonic @ 25.03.2005. 22:56 ] @
strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure ='" & Combo0.Value & "'"

ide ovako a napisao sam ti chr da bi to mogao i ti napisati -da znas staje a netreba chr
Hajde da probam pojasnit.
ALJES BAZI STRING "SELECT flag_ure FROM uredjaj " I STRING " WHERE id_ure =" E SAD TOJ JE JEDNAKO NEKOM STRINGU. DA BI SQL TO RAZUMIO KAO STRING TREBA STAVITI POD ZNAKE NAVODA A POSTO IMAS JEDNE ONDA DRUGE ZNAKE NAVODA PISES KAO chr(39) TJ. '. ZNACI TVOJ KOMPLETAN SQL KAO STRING TREBA DA IZGLEDA OVAKO SELECT flag_ure FROM uredjaj WHERE id_ure ='Podatak id_ure'
nadam se da smo se sad razumjeli
Pozdrav
[ tok @ 25.03.2005. 23:18 ] @
Hvala puno,,,

To je ok, ali ne mogu nikako izvuci taj rst podatak iz recordset-a ili krivo radim?

Zelio sam rst nakon sto je setiran kao OpenRecordset spremiti kao neki podatak da mogu baratati s njima i zato sam stavio msgbox samo radi kontrole da vidim da li ga imam...

Jel to moze ovako ?

Javlja mi Compile error: Tye mismatch na s=rst


Code:


strSQL = "SELECT flag_ure FROM uredjaj "
strSQL = strSQL & " WHERE id_ure ='" & Combo0.Value & "'"

Set rst = dbs.OpenRecordset(strSQL)

s = rst

MsgBox s

[ izonic @ 25.03.2005. 23:34 ] @
zakaci tabelu i Query
ili mozda ti rs nije dimenzinisan kao recordset
[ tok @ 25.03.2005. 23:44 ] @
Evo, zakacio sam primer u poruci iznad koji sam izvukao iz kompletne baze atreba samo ovo da uradi sta me muci...

[ izonic @ 26.03.2005. 00:02 ] @
evo
[ tok @ 26.03.2005. 00:46 ] @
Tooooooooooooooooooooooo!!!!!!!!!!!!!!!!

HVALA!!!
HVALA!!!
HVALA!!!

Mislim da to ne bi sam provalio.....
[ tok @ 26.03.2005. 01:21 ] @
Evo mene opet...

radi, ali mi se dogadja da bez obzira sto je id_ure koji se odabere kao Combo=.value zapravo string...ukoliko se odabere neki zapis koji nije brojcani, ako ima npr slovo, combo0.value ne dobiva vrednost ?!?

trebalo bi raditi ako je string, zar ne ?
[ tok @ 26.03.2005. 01:48 ] @
Napravio sam...

stavio combo.text a ne combo.value

LUDNICA....