List 7-126　FormEditSlipフォームのBTN_OK_Clickプロシージャ

---

  1： Private Sub BTN_OK_Click()
  2：     ' ［OK］ボタンが押されたときの処理
  3：     Dim objSlip As Business.Slip
  4：     Dim CustomerID As Variant
  5：     Dim ONEBILLFLAG As Variant
  6：     
  7：     ' コンボボックスで選択された顧客の顧客番号の取得
  8：     If COMBO_CUSTOMER.listIndex = -1 Then
  9：         MsgBox "顧客が選択されていません", vbOKOnly, "伝票情報の編集エラー"
 10：         Exit Sub
 11：     End If
 12：     
 13：     CustomerID = COMBO_CUSTOMER.ItemData(COMBO_CUSTOMER.listIndex)
 14：     
 15：     On Error GoTo ErrHandle
 16：     
 17：     Set objSlip = CreateObject("Business.Slip")
 18：     
 19：     If CHK_ONEBILL.Value = 0 Then
 20：         ONEBILLFLAG = False
 21：     Else
 22：         ONEBILLFLAG = True
 23：     End If
 24：     
 25：     If SlipID = -1 Then
 26：         ' 新規登録
 27：         SlipID = objSlip.AddSlip(CustomerID, ONEBILLFLAG, TXT_DIVISION.Text, _
   　                                  TXT_PERSON.Text, TXT_DELIVERDATE.Text, _
   　                                  TXT_SENTADDR.Text, TXT_SENTTEL.Text, _
   　                                  TXT_MEMO.Text)
 28：     Else
 29：         ' 既存の伝票の編集
 30：         If TXT_DELIVERDATE.Enabled Then
 31：             objSlip.UpdateSlip SlipID, CustomerID, ONEBILLFLAG, TXT_DIVISION.Text, _
 32：                                TXT_PERSON.Text, TXT_DELIVERDATE.Text, _
   　                                TXT_SENTADDR.Text, TXT_SENTTEL.Text, _
   　                                TXT_MEMO.Text
 33：         End If
 34：     End If
 35：     
 36：     Set objSlip = Nothing
 37：     Me.Hide
 38：     
 39：     Exit Sub
 40：     
 41： ErrHandle:
 42：     ' エラーが発生した
 43：     MsgBox Err.Description, vbOKOnly, "伝票情報の更新エラー"
 44：     Set objSlip = Nothing
 45： End Sub