何も入力しないでEnterキーやTabキーを押した時にフォーカス移動させないためのコードです。必須入力にしたいテキストボックスの補助機能です。本当の入力チェックはレコードの更新前で行わないといけません。

必須入力にしたいテキストボックスのキークリック時にイベントで

Private Sub テキスト2_KeyDown(KeyCode As Integer, Shift As Integer)

  If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
    If Len(Screen.ActiveControl.Text) = 0 Then
      KeyCode = 0
      MsgBox "なんか記入して"
    End If
  End If

End Sub