Jedan od nacina za staticko dodeljivanje vrednosti je da odradis odgovarajuci kod za dogadjaj kao sto je OnChange ili OnClick kako ti vise odgovara i da u njemu imas nesto kao dole sto je dato kao primer.
Code:
Private Sub Tarifa_Change()
Dim Query As String
Dim Rs As DAO.Recordset
Debug.Print Now, "Tarifa_Change() Value:", Tarifa.Value
Query = "SELECT cena FROM tarife WHERE id=" & Tarifa.Value
Set Rs = CurrentDb.OpenRecordset(Query)
If Rs.RecordCount > 0 Then
Me.Cena_tarife.Value = Rs.Collect("cena")
Else
MsgBox "Nema cene za odabrani zapis."
End If
End Sub