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