Citat:
Markanto: To nije ono sto sam trazio.
Trazim da mi se stanje prikazuje u label kada kliknem na ime u ComboBoxul.
To je cilj!!!
Bilo bi brže da si okačio ovde uzorak baze da ne nagađamo šta je pesnik hteo da kaže...
Evo ti na brzaka uzorak, manjeg dela koda tek da vidiš kako se to rešava (pa ti doteraj za slučaj tvog combo boxa "on update" ili "on change" događaj)
Code:
... stLinkCriteria = "LOOKUP_ADRESAR = " & Me.LOOKUP_ADRESAR
If IsNull(DSum("SALDO", "qryFINANSIJE_SALDO", stLinkCriteria)) = False Then
numSTANJE1 = DSum("SALDO", "qryFINANSIJE_SALDO", stLinkCriteria)
numSTANJE2 = DSum("FINANSIJE_IZNOS", "FINANSIJE", "Year([FINANSIJE_DATUM]) = " & Year(Now()))
If Me.LOOKUP_ADRESAR = 1 Then
stLINE = "UKUPNO STANJE = " & Format(numSTANJE2, "Standard")
Else
stLINE = "UKUPNO STANJE = " & Format(numSTANJE1, "Standard")
End If
If numSTANJE1 < 0 Then
Me.TxtUKUPNO.ForeColor = 255
Me.TxtUKUPNO.FontSize = 12
Else
Me.TxtUKUPNO.ForeColor = 0
Me.TxtUKUPNO.FontSize = 10
End If
End If
Me.Caption = "Konto: " & Me.LOOKUP_ADRESAR.Column(1) _
& ", " & Me.LOOKUP_ADRESAR.Column(4)
Me.TxtUKUPNO = stLINE
Me.CmdNOVIUNOS.ForeColor = Me.TxtUKUPNO.ForeColor
...