Function KorekcijaVlage(IntVlaga As Integer) As Single
Dim KorV As String
If IntVlaga = 0 Then
KorekcijaVlage = 0
Else
Select Case Me.Sifra
Case 1
KorV = "KV_Jecam"
Case 2
KorV = "KV_Kukuruz"
Case 3
KorV = "KV_Psenica"
Case 4
KorV = "KV_Psenica"
Case 5
KorV = "KV_Psenica"
Case 6
KorV = "KV_Psenica"
Case 7
KorV = "KV_Psenica"
Case 8
KorV = "KV_soja"
Case 9
KorV = "KV_Suncokret"
End Select

KorekcijaVlage = DLookup(KorV, "tblVlage", "Vlaga=" & IntVlaga)
End If
End Function