Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim StatusK, Ctl As Control, Frm As Form, Vrijednost
Dim Polje As String, Znak

Polje = "Status Kupca"
Set Frm = Me.Form
StatusK = Trim(Me.Status)
If Format$(StatusK) = "" Then GoTo Kraj
    For Each Ctl In Frm.Controls
        If Ctl.ControlType = acTextBox Then
        On Error Resume Next
        Znak = Right(Ctl.Controls.Item(0).Caption, 1) = "*"
            If Znak = True Then
            Vrijednost = Ctl
                If Format$(Vrijednost) = "" Then
                Polje = Ctl.Controls.Item(0).Caption
                GoTo Kraj
                End If
            End If
        End If
    Next Ctl
Izlaz:
Exit Sub
Kraj:
MsgBox "Unesi " & Polje
Ctl.SetFocus
Cancel = 1
GoTo Izlaz
End Sub