Call NoEmptyTexts
If ii = 1 Then
Exit Sub
DoCmd.CancelEvent
Else
Me.Refresh
MsgBox "   " & " " & Me.sname & "  " & "" & " " & usr_ID, _
    vbInformation, _
    "E?E??"
End If
DoCmd.GoToRecord , , acNewRec
End Sub


Private Sub NoEmptyTexts()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If IsNull(ctl) Or ctl = "" Then
ii = 1
MsgBox "E?E?? C???C? ??? ???? C?IC?CE C?EC??"
DoCmd.CancelEvent
ctl.SetFocus
Exit For
Else
ii = 2
End If
End If
Next ctl
End Sub