List 7-154　FormSlipDetailフォームのg_objRec_MoveCompleteプロシージャ

---

  1： Private Sub g_objRec_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _
   　                                   ByVal pError As ADODB.Error, _
   　                                   adStatus As ADODB.EventStatusEnum, _
   　                                   ByVal pRecordset As ADODB.Recordset)
  2：     ' カレントレコードの位置が変更されたときの処理
  3：     Dim enableFlag As Boolean
  4：     
  5：     If pRecordset.EOF Or pRecordset.BOF Then
  6：         ' カレントレコードが空である
  7：         enableFlag = False
  8：     Else
  9：         enableFlag = True
 10：     End If
 11：     
 12：    ' 作成中か却下中でなければ編集作業はできない
 13：     If Not ((g_SlipStatus = Creating) Or (g_SlipStatus = Rejected)) Then
 14：         enableFlag = False
 15：     End If
 16：     
 17：     BTN_EDIT.Enabled = enableFlag
 18：     
 19：     ' 削除ずみのものは削除できない
 20：     If enableFlag Then
 21：         If pRecordset.Fields("DELETEDFLAG").Value Then
 22：             enableFlag = False
 23：         End If
 24：     End If
 25：     BTN_DELETE.Enabled = enableFlag
 26： End Sub