List 7-25　FormEditCustomerフォームのEditCustomerプロシージャ

  1： Public Sub EditCustomer(ID As Long)
  2：     ' 既存の顧客を編集する
  3：     Dim objCustomer As Business.Customer
  4：     Dim CUSTOMERNAME As Variant, YOMIGANA As Variant
  5：     Dim ZIP As Variant, ADDRESS As Variant
  6：     Dim TELEPHONE As Variant, FAX As Variant
  7：     Dim BILLDAY As Variant, MEMO As Variant
  8：     Dim MADEUSER As Variant, MADEDATE As Variant
  9：     Dim LASTUSER As Variant, LASTDATE As Variant
 10：     
 11：     CustomerID = ID
 12：     
 13：     ' 顧客の現在の情報を得る
 14：     On Error GoTo ErrHandle
 15：     
 16：     Set objCustomer = CreateObject("Business.Customer")
 17：     
 18：     TXT_ID.Text = CustomerID
 19：     
 20：     objCustomer.GetCustomer CustomerID, CUSTOMERNAME, _
   　                             YOMIGANA, ZIP, _
   　                             ADDRESS, TELEPHONE, _
   　                             FAX, BILLDAY, _
   　                             MEMO, MADEUSER, _
   　                             MADEDATE, LASTUSER, _
   　                             LASTDATE
 21：     
 23：     If Not IsNull(CUSTOMERNAME) Then
 24：         TXT_CUSTOMERNAME.Text = CUSTOMERNAME
 25：     Else
 26：         TXT_CUSTOMERNAME.Text = ""
 27：     End If
 28：     
 29：     If Not IsNull(YOMIGANA) Then
 30：         TXT_YOMIGANA.Text = YOMIGANA
 31：     Else
 32：         TXT_YOMIGANA.Text = ""
 33：     End If
 34：     
 35：     If Not IsNull(ZIP) Then
 36：         TXT_ZIP.Text = ZIP
 37：     Else
 38：         TXT_ZIP.Text = ""
 39：     End If
 40：     
 41：     If Not IsNull(ADDRESS) Then
 42：         TXT_ADDRESS.Text = ADDRESS
 43：     Else
 44：         TXT_ADDRESS.Text = ""
 45：     End If
 46：     
 47：     If Not IsNull(TELEPHONE) Then
 48：         TXT_TELEPHONE.Text = TELEPHONE
 49：     Else
 50：         TXT_TELEPHONE.Text = ""
 51：     End If
 52：     
 53：     If Not IsNull(FAX) Then
 54：         TXT_FAX.Text = FAX
 55：     Else
 56：         TXT_FAX.Text = ""
 57：     End If
 58：     
 59：     If Not IsNull(BILLDAY) Then
 60：         TXT_BILLDAY.Text = BILLDAY
 61：     Else
 62：         TXT_BILLDAY.Text = ""
 63：     End If
 64：     
 65：     If Not IsNull(MEMO) Then
 66：         TXT_MEMO.Text = MEMO
 67：     Else
 68：         TXT_MEMO.Text = ""
 69：     End If
 70：     
 71：     TXT_MADEUSER.Text = MADEUSER
 72：     TXT_MADEDATE.Text = MADEDATE
 73：     TXT_LASTUSER.Text = LASTUSER
 74：     TXT_LASTDATE.Text = LASTDATE
 75：     
 76：     Set objCustomer = Nothing
 77：     Exit Sub
 78：     
 79： ErrHandle:
 80：     ' エラーが発生した
 81：     MsgBox Err.Description, vbOKOnly, "顧客の編集エラー"
 82：     Set objCustomer = Nothing
 83： End Sub