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