List 7-206　FormBillフォームの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_DELETE.Enabled = enableFlag
 13：     BTN_DETAIL.Enabled = enableFlag
 14：     
 15：     If enableFlag Then
 16：         ' 請求書明細のフォームを更新する
 17：         If FormBillDetail.Visible = True Then
 18：             FormBillDetail.InitData pRecordset.Fields("ID").Value
 19：         End If
 20：     Else
 21：         If FormBillDetail.Visible = True Then
 22：             FormBillDetail.DisableControl
 23：         End If
 24：     End If
 25： End Sub