---

ソースプログラム

---

1. ユーザー関数に次のプログラムを追記します。

   0) Then 10: Call MsgBox("レコードの追加が出来ません。") 11: End If 12: Table_save = Err.Number 13:End Function

   ---

2. 個人情報入力フォームの「記録する」ボタンをダブルクリックして次のプログラムを記述します。

   01:Private Sub btn記録_Click()
   02:    Dim statements As Integer
   03:    Dim save_statements As Integer
   04:    Dim save_string As String
   05:    
   06:    statements = Database_open
   07:    If (statements <> 0) Then
   08:        Exit Sub
   09:    End If
   10:
   11:    save_string = "INTO addresstb2 ( name, zip, address, tel, k_code) VALUES "
   12:    With frm個人情報
   13:         save_string = save_string & "('" & .txt氏名.Value
   14:         save_string = save_string & "','" & .txt郵便番号.Value
   15:         save_string = save_string & "','" & .txt住所.Value
   16:         save_string = save_string & "','" & .txt電話番号.Value
   17:         save_string = save_string & "','" & .txt勤務先.Value
   18:         save_string = save_string & "')"
   19:    End With
   20:    save_statements = Table_save(save_string)
   21:    If (statements = 0) Then
   22:        Label6.ForeColor = &HFF&
   23:        Label6.Caption = "登録しました。"
   24:    Else
   25:        Label6.ForeColor = &HFF&
   26:        Label6.Caption = "登録出来ません。"
   27:    End If
   28:    
   29:    statements = Database_close
   30:    
   31:End Sub
   

   ---

3. 会社情報入力フォームの「記録する」ボタンをダブルクリックして次のプログラムを記述します。

   01:Private Sub btn記録_Click()
   02:    Dim statements As Integer
   03:    Dim save_statements As Integer
   04:    Dim save_string As String
   05:    
   06:    statements = Database_open
   07:    If (statements <> 0) Then
   08:        Exit Sub
   09:    End If
   10:
   11:    save_string = "INTO k_addresstb ( k_code, k_name, k_zip, k_address, k_tel) VALUES "
   12:    With frm会社情報
   13:         save_string = save_string & "('" & .txt会社コード.Value
   14:         save_string = save_string & "','" & .txt会社名.Value
   15:         save_string = save_string & "','" & .txt郵便番号.Value
   16:         save_string = save_string & "','" & .txt住所.Value
   17:         save_string = save_string & "','" & .txt電話番号.Value
   18:         save_string = save_string & "')"
   19:    End With
   20:    save_statements = Table_save(save_string)
   21:    
   22:    statements = Database_close
   23:    If (statements = 0) Then
   24:        Label6.ForeColor = &HFF&
   25:        Label6.Caption = "登録しました。"
   26:    Else
   27:        Label6.ForeColor = &HFF&
   28:        Label6.Caption = "登録出来ません。"
   29:    End If
   30:    
   31:End Sub
   

   ---

4. 個人情報入力フォームの「閉じる」ボタンをダブルクリックして次のプログラムを記述します。

   01:Private Sub btn閉じる_Click()
   02:    Unload frm会社情報
   03:End Sub
   

   ---

5. 会社情報入力フォームの「閉じる」ボタンをダブルクリックして次のプログラムを記述します。

   01:Private Sub btn閉じる_Click()
   02:    Unload frm個人情報
   03:End Sub
   

   ---

6. プロジェクトエクスプローラの「メニュー（Sheet1）」をダブルクリックして次のプログラムを追記して下さい。

   01:Private Sub btnEND_Click()
   02:Dim b As Object
   03:    Set b = Workbooks
   04:    Label1.Caption = ""
   05:    For Each b In Workbooks
   06:        b.Save
   07:        Next b
   08:    Application.Quit
   09:End Sub
   10:
   11:Private Sub btn会社情報_Click()
   12:    frm会社情報.Show
   13:End Sub
   14:
   15:Private Sub btn個人情報_Click()
   16:    frm個人情報.Show
   17:End Sub
   

---

© AstroHeart. All Rights Reserved.