List 7-81　FormProductフォームの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：     BTN_EDIT.Enabled = enableFlag
 13：     BTN_CHKSTOCK.Enabled = enableFlag
 14：     
 15：     ' 削除権限を持っているかどうか
 16：     If g_uRole And (ROLE_ALLADMIN Or ROLE_PRODUCTS Or ROLE_PRODUCTSADMIN) Then
 17：         ' 削除権限がある
 18：         BTN_DELETE.Enabled = enableFlag
 19：     End If
 20：     
 21：     If enableFlag Then
 22：         If pRecordset.Fields("DELETEDFLAG").Value = True Then
 23：             ' 削除ずみであるレコード
 24：             ' 復帰権限があるか
 25：             If g_uRole And (ROLE_ALLADMIN Or ROLE_PRODUCTSADMIN) Then
 26：                 ' 復帰を可能にする
 27：                 BTN_UNDELETE.Enabled = True
 28：             End If
 29：             ' 編集を不可にする
 30：             BTN_EDIT.Enabled = False
 31：         Else
 32：             ' 復帰を不可能にする
 33：             BTN_UNDELETE.Enabled = False
 34：             ' 編集を可能にする
 35：             BTN_EDIT.Enabled = True
 36：         End If
 37：     End If
 38： End Sub