Function StatusPolja()
Dim StatusK, Ctl As Control, Frm As Form
Dim Kljuc As Boolean, ImeKontrole As String, Znak As Boolean

Set Frm = Me.Form
StatusK = Trim(Me.Status)
If Format$(StatusK) = "" Then
Kljuc = False
Else
Kljuc = True
End If

For Each Ctl In Frm.Controls
    If Ctl.ControlType = acTextBox Then
    Ctl.Enabled = Kljuc
    ImeKontrole = Ctl.Name
        Select Case ImeKontrole
        Case "Oib", "Adresa", "PostBroj", "Mjesto", "Zemlja"
        Znak = Right(Ctl.Controls.Item(0).Caption, 1) = "*"
            If StatusK = "1" Then
                    If Znak = True Then
                     Ctl.Controls.Item(0).Caption = Left(Ctl.Controls.Item(0).Caption, Len(Ctl.Controls.Item(0).Caption) - 1)
                     Ctl.Controls.Item(0).FontItalic = False 'ovo je font italik
                    End If
            ElseIf StatusK = "2" Then
                    If Znak = False Then
                           Ctl.Controls.Item(0).Caption = Ctl.Controls.Item(0).Caption & "*"
                           'imelabele=
                           Ctl.Controls.Item(0).FontItalic = True 'i ovo je font italik
                    End If
            End If
        End Select
     End If

Next Ctl
End Function