List 7-123　FormSlipフォームのBTN_NEW_Clickプロシージャ

---

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