List 7-165　FormEditSlipDetaiilフォームのTXT_NUMBER_LostFocusプロシージャ

---

  1： Private Sub TXT_NUMBER_LostFocus()
  2：     ' フォーカスを失ったとき，価格に数量×単価を格納する
  3：     Dim Price As Currency
  4：     On Error Resume Next
  5：     Price = TXT_NUMBER.Text * TXT_UNITPRICE.Text
  6：     
  7：     If Err.NUMBER = 0 Then
  8：         TXT_PRICE.Text = Price
  9：     End If
 10： End Sub