Private Sub Form_Current()
Call StausPolja
End Sub
Private Sub StatusKupca_AfterUpdate()
Call StausPolja
End Sub

Function StausPolja()
Dim StatusK, Ctl As Control, Frm As Form
Dim Kljuc As Boolean, Znak As Boolean

Set Frm = Me.Form
StatusK = Trim(Me.StatusKupca)
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
    Znak = Right(Ctl.Controls.Item(0).Caption, 1) = "*"
        If Znak = False Then
        Ctl.Controls.Item(0).Caption = Ctl.Controls.Item(0).Caption & "*"
        End If
        If StatusK = "1" Then
        If Ctl.Name <> "ImeKupca" Then
        Ctl.Controls.Item(0).Caption = Left(Ctl.Controls.Item(0).Caption, Len(Ctl.Controls.Item(0).Caption) - 1)
        End If
    End If
    End If    
Next Ctl
End Function