List 7-129　FormEditSlipフォームのCOMBO_CUSTOMER_LostFocusプロシージャ

---

  1： Private Sub COMBO_CUSTOMER_LostFocus()
  2：     ' 顧客の選択が終わったとき
  3：     ' 新規顧客であった場合には，その顧客の住所と電話番号をそれぞれ
  4：     ' 納入先住所，納入先電話番号に格納するようにする
  5：     Dim CUSTOMERNAME As Variant, YOMIGANA As Variant
  6：     Dim ZIP As Variant, ADDRESS As Variant, FAX As Variant
  7：     Dim TELEPHONE As Variant, BILLDAY As Variant
  8：     Dim MEMO As Variant, MADEUSER As Variant, MADEDATE As Variant
  9：     Dim LASTUSER As Variant, LASTDATE As Variant
 10：     Dim listIndex As Long
 11：     
 12：     If SlipID = -1 Then
 13：         listIndex = COMBO_CUSTOMER.listIndex
 14：         If listIndex <> -1 Then
 15：             Dim objCustomer As Business.Customer
 16：             On Error GoTo ErrHandle
 17：             Set objCustomer = CreateObject("Business.Customer")
 18：            
 19：             objCustomer.GetCustomer COMBO_CUSTOMER.ItemData(listIndex), _
   　                                     CUSTOMERNAME, YOMIGANA, _
   　                                     ZIP, ADDRESS, TELEPHONE, _
   　                                     FAX, BILLDAY, _
   　                                     MEMO, MADEUSER, MADEDATE, _
   　                                     LASTUSER, LASTDATE
 20：                                     
 21：             If Not IsNull(ADDRESS) Then
 22：                 TXT_SENTADDR.Text = ADDRESS
 23：             End If
 24：             
 25：             If Not IsNull(TELEPHONE) Then
 26：                 TXT_SENTTEL.Text = TELEPHONE
 27：             End If
 28：             
 29：             Set objCustomer = Nothing
 30：         End If
 31：     End If
 32：     
 33：     Exit Sub
 34：     
 35： ErrHandle:
 36：     ' エラーハンドラ
 37：     Set objCustomer = Nothing
 38： End Sub