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