|
Private Sub 更新_Click()
If IsNull(Me.資格コード.Value) Then
MsgBox ("資格を選択して下さい")
Exit Sub
End If
If IsNull(Me.学籍番号.Value) Then
MsgBox ("学生を選択して下さい")
Exit Sub
End If
If Not IsRec(Me) Then
MsgBox ("対象レコードが存在しない為、更新できません")
Exit Sub
End If
If MsgBox("更新しますか?", vbOKCancel) = vbOK Then
bUpdate = True
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
If Err.Number <> 0 Then
MsgBox (Err.Description)
End If
On Error GoTo 0
End If
| |