[[場所 : 確認.Click]]

● 修正時の処理とは処理区分によって排他的に処理されます
@DIV
' ************************
' 新規
' ************************
If Me.処理区分.SelectedValue = 1 Then
	If db.QueryAndRead(Query) Then
		MessageBox.Show("入力された社員コードは既に存在します　　　　", _
		"エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
		Me.社員コード.Focus()
	Else
		Me.Protect(1, True)
		Me.Protect(2, False)
		Me.Protect(3, False)

		Me.氏名.Focus()
	End If

End If
@END