List 7-17　変更したFormCustomerフォームのBTN_NEW_Clickプロシージャ（変更箇所は赤色で示した）

  1： Private Sub BTN_NEW_Click()
  2：     ' ［新規］ボタンが押されたときの処理
  3：     
  4：     FormEditCustomer.NewCustomer
  5：     FormEditCustomer.Show 1
  6：     
  7：     ' データグリッドの内容を更新する
  8：     If FormEditCustomer.CustomerID <> - 1 Then
  9：         RefreshData
 10：         ' 追加した顧客をカレントレコードとする
 11：         g_ObjRec.MoveFirst
 12：         g_objRec.Find "ID=" & FormEditCustomer.CustomerID, _
    　                       0, adSearchForward
 13：    End If
 14： End Sub