Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim CheckVal As String
    Dim MyArray( 6 ) As String
    MyArray( 0 ) = Me.idFrom.name
    MyArray( 1 ) = Me.idCityTo.name
    MyArray( 2 ) = Me.idClientTo.name
    MyArray( 3 ) = Me.idTranspType.name
    MyArray( 4 ) = Me.idCarrier.name
    MyArray( 5 ) = Me.MatType.name
    MyArray( 6 ) = Me.DateDeparture.name
    
    For I =  0  To  6 
        CheckVal =  "Me."  & MyArray(I)
        MsgBox CheckVal
        
        If Me.Controls.Item(CheckVal).Value = Null Then
                MsgBox  "Не заполнено обязательное поле" 
                Me.Controls.Item(CheckVal).SetFocus
                Exit Sub
            Else
        End If
    Next I
End Sub