Private Sub txtData_AfterUpdate() Dim Godina As Integer If Tip_Godina(Year(Me.txtData)) Then MsgBox "Vnesenata godina odgovara" Else MsgBox "Vnesenata godina ne odgovara" End If End Sub