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


Polje = "Status Kupca"
Set Frm = Me.Form
StatusK = Trim(Me.StatusKupca)
If Format$(StatusK) = "" Then GoTo Kraj
If Me.StatusKupca = 1 Then
Vrijednost = Me.ImeKupca
    If Format$(Vrijednost) = "" Then
       Polje = Me.ImeKupca.Controls.Item(0).Caption
       GoTo Kraj
    End If
Else
    For Each Ctl In Frm.Controls
        If Ctl.ControlType = acTextBox Then
        Vrijednost = Ctl
            If Format$(Vrijednost) = "" Then
            Polje = Ctl.Controls.Item(0).Caption
            GoTo Kraj
            End If
        End If
    Next Ctl
End If
Izlaz:
Exit Sub
Kraj:
MsgBox "Unesi " & Polje
Cancel = 1
GoTo Izlaz
End Sub