メールマガジン【アクセスで作るシリーズ】
バックナンバー 【会計ソフト編】 Vol.58
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【会計ソフト編】
発 行 ： Yoshihisa Fukuda 2001. 7. 7 Vol.58
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
今回は勘定科目設定の科目ＩＤ欠番対策のプログラムを解説します。
＝＝ ◇ 第５章 拡張機能 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
第13回 勘定科目設定の科目ＩＤの欠番対策（解説続き）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
前回は勘定科目設定の欠番対策の考え方、理論の解説を行いました。
今回は、その理論を元にプログラムを解説していきます。
１．Dim S_Pos As Integer
Dim E_Pos As Integer
Dim Now_Pos As Integer
Dim SELSQL As String
Dim ACC_DB As Database
Dim Kamo_T As Recordset
Dim TopBookmark As Variant
これはもう、いまさら解説する事も無いと思いますが、使用する変数の宣言です。
２．Set ACC_DB = CurrentDb
これも前に詳しくやりました、データベースオブジェクトの設定です。(Vol.50参照）
さて、ここから先の解説を行う前に、使用する変数の役割を簡単に解説しておきます。
３．
（１）S_Pos ・・・バイナリサーチで検索する範囲の開始位置
（２）E_Pos ・・・バイナリサーチで検索する範囲の終了位置
（３）NOW_Pos ・・・バイナリサーチで検索する範囲を２分割した分割位置
（４）SELSQL ・・・SQL文
（５）ACC_DB ・・・データベースオブジェクト
（６）Kamo_T ・・・勘定科目テーブルのレコードセット
（７）TopBookmark・・勘定科目テーブルの先頭を押えるブックマーク
では、解説です。
４．S_Pos = 1
まず最初に、バイナリサーチで検索する範囲の開始位置を１に設定しています。
５．SELSQL = "select KamokuID from KamokuTable ORDER BY KamokuID"
勘定科目テーブルに対するSELECT文です。(Vol.53・54参照）
勘定科目テーブルの科目ＩＤフィールドを科目ＩＤで昇順にソートして抽出します。
ORDER BY KamokuID が、科目ＩＤを昇順でソートでしたが、勘定科目テーブルの
科目ＩＤは主キーに指定されていますので、このORDER BY句が無くてもソートされて
いますが、一応明示的に記述してあります。
６．Set Kamo_T = ACC_DB.OpenRecordset(SELSQL)
勘定科目テーブルのレコードセットに SELSQL の SQL文で抽出したレコードセットが
設定されます。
７．Kamo_T.MoveLast
E_Pos = Kamo_T.RecordCount
抽出した勘定科目のカレントレコードを最終レコードに移動して、バイナリサーチで
検索する範囲の終了位置に勘定科目のレコード数を設定しています。
８．If E_Pos = 0 Then
Me![KamokuID] = 1
GoTo Exit_Form_BeforeInsert
End If
勘定科目テーブルのレコード数が０の場合（１件も登録されていない場合）、最初の
科目ＩＤを１に設定します。
そして、Exit_Form_BeforeInsertラベルのところへ処理を移動します。
９．If Kamo_T.RecordCount = Kamo_T.Fields(0).Value Then
Me![KamokuID] = Kamo_T.RecordCount + 1
GoTo Exit_Form_BeforeInsert
End If
勘定科目テーブルのレコード数と、最終レコードの科目ＩＤが同一の場合、欠番は
無い（理由はVol.57の欠番を探す原理参照）ので、科目ＩＤに現在のレコード数＋１
を設定します。
そして、Exit_Form_BeforeInsertラベルのところへ処理を移動します。
10．Kamo_T.MoveFirst
TopBookmark = Kamo_T.Bookmark
勘定科目テーブルのカレントレコードを先頭に移動し、ブックマークを先頭で設定
します。
ここで、突然ブックマークと言うのが出てきましたが、このブックマークは、皆さん
が普段お使いのインターネットブラウザにあるのと同じ（ＩＥの場合、お気に入りと
言う）で、その場所を記憶しておけるものです。
11．Now_Pos = S_Pos + Int((E_Pos - S_Pos) / 2)
バイナリサーチで検索する範囲を２分割し、その分割位置を設定します。
12．Kamo_T.Move Now_Pos - 1, TopBookmark
勘定科目テーブルのカレントレコードを、２分割した位置に移動します。
Moveメソッドは第一引数が移動するレコード数で、第２引数にブックマークを指定
すると、ブックマーク位置から第１引数のレコード数分移動する事になります。
第一引数のレコード数に負の数を指定する事で、前に移動する事ができます。
13．While S_Pos + 1 <> E_Pos
バイナリサーチで検索する範囲の開始位置と終了位置が１レコード違い、すなわち
２分割出来ない状態になるまでループします。
14．If Now_Pos = Kamo_T.Fields(0).Value Then
S_Pos = Now_Pos
Else
E_Pos = Now_Pos
End If
２分割したレコード番号と、そのレコードの科目ＩＤを比較します。
同一の場合、欠番は２分割したレコードの後側にあるので、バイナリサーチで検索
する範囲の開始位置を２分割した分割位置に設定します。
同一でない場合、欠番は２分割したレコードの前側にあるので、バイナリサーチで
検索する範囲の終了位置を２分割した分割位置に設定します。
15．Now_Pos = S_Pos + Int((E_Pos - S_Pos) / 2)
Kamo_T.Move Now_Pos - 1, TopBookmark
再び、バイナリサーチで検索する範囲を２分割し、その分割位置を設定します。
そして、勘定科目テーブルのカレントレコードを、２分割した位置に移動します。
16．Wend
ここまでを、先程の13．While文の条件でループします。
17．Me![KamokuID] = E_Pos
バイナリサーチで検索する範囲の開始位置と終了位置が１レコード違いになった所で、
バイナリサーチで検索する範囲の終了位置が欠番の値となるので、その値を科目ＩＤ
に設定します。
18．Exit_Form_BeforeInsert:
Kamo_T.Close
ACC_DB.Close
Set Kamo_T = Nothing
Set ACC_DB = Nothing
これらは、後処理です。
勘定科目テーブルのレコードセット、データベースオブジェクトをクローズし、領域
を開放して終了です。
以上で、プログラムの解説は終わりです。
１つ１つの命令は、今までに出てきたので、もう大分解ってきた事と思います。
ＶＢＡによるテーブル操作やＳＱＬ文なども拡張編で取り上げたので大丈夫でしょう。
唯一、ブックマークだけが突然出てきましたが、このブックマークは今回の使い方
以外にも、色々と便利に使えます。
また、続編で機会があれば、使って解説をしていきたいと思います。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
いよいよ、この【会計ソフト編】が、次回で最終回となります。
最終回は、全体のまとめと、続編に付いて少しお話します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ Ｑ＆Ａコーナー ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
今回はありません。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ ACCESSで作るシリーズ 【会計ソフト編】
◇ 発 行 元 ：Yoshihisa Fukuda（福田 義久）
◇ ご意見・ご要望
ご質問等 ：fukuda@shun-net.com
◇ このメールマガジンは、インターネットの本屋さん『まぐまぐ』を利用して発行
しています。（まぐまぐID:0000030446)
◇ バックナンバー：http://www.shun-net.com/fukuda/
◇ 登録・解除 ：http://www.shun-net.com/fukuda/
Copyright(C) 2000-2001 Yoshihisa Fukuda All rights reserved.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【会計ソフト編】
発 行 ： Yoshihisa Fukuda 2001. 7. 7 Vol.58
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
今回は勘定科目設定の科目ＩＤ欠番対策のプログラムを解説します。
＝＝ ◇ 第５章 拡張機能 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
第13回 勘定科目設定の科目ＩＤの欠番対策（解説続き）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
前回は勘定科目設定の欠番対策の考え方、理論の解説を行いました。
今回は、その理論を元にプログラムを解説していきます。
１．Dim S_Pos As Integer
Dim E_Pos As Integer
Dim Now_Pos As Integer
Dim SELSQL As String
Dim ACC_DB As Database
Dim Kamo_T As Recordset
Dim TopBookmark As Variant
これはもう、いまさら解説する事も無いと思いますが、使用する変数の宣言です。
２．Set ACC_DB = CurrentDb
これも前に詳しくやりました、データベースオブジェクトの設定です。(Vol.50参照）
さて、ここから先の解説を行う前に、使用する変数の役割を簡単に解説しておきます。
３．
（１）S_Pos ・・・バイナリサーチで検索する範囲の開始位置
（２）E_Pos ・・・バイナリサーチで検索する範囲の終了位置
（３）NOW_Pos ・・・バイナリサーチで検索する範囲を２分割した分割位置
（４）SELSQL ・・・SQL文
（５）ACC_DB ・・・データベースオブジェクト
（６）Kamo_T ・・・勘定科目テーブルのレコードセット
（７）TopBookmark・・勘定科目テーブルの先頭を押えるブックマーク
では、解説です。
４．S_Pos = 1
まず最初に、バイナリサーチで検索する範囲の開始位置を１に設定しています。
５．SELSQL = "select KamokuID from KamokuTable ORDER BY KamokuID"
勘定科目テーブルに対するSELECT文です。(Vol.53・54参照）
勘定科目テーブルの科目ＩＤフィールドを科目ＩＤで昇順にソートして抽出します。
ORDER BY KamokuID が、科目ＩＤを昇順でソートでしたが、勘定科目テーブルの
科目ＩＤは主キーに指定されていますので、このORDER BY句が無くてもソートされて
いますが、一応明示的に記述してあります。
６．Set Kamo_T = ACC_DB.OpenRecordset(SELSQL)
勘定科目テーブルのレコードセットに SELSQL の SQL文で抽出したレコードセットが
設定されます。
７．Kamo_T.MoveLast
E_Pos = Kamo_T.RecordCount
抽出した勘定科目のカレントレコードを最終レコードに移動して、バイナリサーチで
検索する範囲の終了位置に勘定科目のレコード数を設定しています。
８．If E_Pos = 0 Then
Me![KamokuID] = 1
GoTo Exit_Form_BeforeInsert
End If
勘定科目テーブルのレコード数が０の場合（１件も登録されていない場合）、最初の
科目ＩＤを１に設定します。
そして、Exit_Form_BeforeInsertラベルのところへ処理を移動します。
９．If Kamo_T.RecordCount = Kamo_T.Fields(0).Value Then
Me![KamokuID] = Kamo_T.RecordCount + 1
GoTo Exit_Form_BeforeInsert
End If
勘定科目テーブルのレコード数と、最終レコードの科目ＩＤが同一の場合、欠番は
無い（理由はVol.57の欠番を探す原理参照）ので、科目ＩＤに現在のレコード数＋１
を設定します。
そして、Exit_Form_BeforeInsertラベルのところへ処理を移動します。
10．Kamo_T.MoveFirst
TopBookmark = Kamo_T.Bookmark
勘定科目テーブルのカレントレコードを先頭に移動し、ブックマークを先頭で設定
します。
ここで、突然ブックマークと言うのが出てきましたが、このブックマークは、皆さん
が普段お使いのインターネットブラウザにあるのと同じ（ＩＥの場合、お気に入りと
言う）で、その場所を記憶しておけるものです。
11．Now_Pos = S_Pos + Int((E_Pos - S_Pos) / 2)
バイナリサーチで検索する範囲を２分割し、その分割位置を設定します。
12．Kamo_T.Move Now_Pos - 1, TopBookmark
勘定科目テーブルのカレントレコードを、２分割した位置に移動します。
Moveメソッドは第一引数が移動するレコード数で、第２引数にブックマークを指定
すると、ブックマーク位置から第１引数のレコード数分移動する事になります。
第一引数のレコード数に負の数を指定する事で、前に移動する事ができます。
13．While S_Pos + 1 <> E_Pos
バイナリサーチで検索する範囲の開始位置と終了位置が１レコード違い、すなわち
２分割出来ない状態になるまでループします。
14．If Now_Pos = Kamo_T.Fields(0).Value Then
S_Pos = Now_Pos
Else
E_Pos = Now_Pos
End If
２分割したレコード番号と、そのレコードの科目ＩＤを比較します。
同一の場合、欠番は２分割したレコードの後側にあるので、バイナリサーチで検索
する範囲の開始位置を２分割した分割位置に設定します。
同一でない場合、欠番は２分割したレコードの前側にあるので、バイナリサーチで
検索する範囲の終了位置を２分割した分割位置に設定します。
15．Now_Pos = S_Pos + Int((E_Pos - S_Pos) / 2)
Kamo_T.Move Now_Pos - 1, TopBookmark
再び、バイナリサーチで検索する範囲を２分割し、その分割位置を設定します。
そして、勘定科目テーブルのカレントレコードを、２分割した位置に移動します。
16．Wend
ここまでを、先程の13．While文の条件でループします。
17．Me![KamokuID] = E_Pos
バイナリサーチで検索する範囲の開始位置と終了位置が１レコード違いになった所で、
バイナリサーチで検索する範囲の終了位置が欠番の値となるので、その値を科目ＩＤ
に設定します。
18．Exit_Form_BeforeInsert:
Kamo_T.Close
ACC_DB.Close
Set Kamo_T = Nothing
Set ACC_DB = Nothing
これらは、後処理です。
勘定科目テーブルのレコードセット、データベースオブジェクトをクローズし、領域
を開放して終了です。
以上で、プログラムの解説は終わりです。
１つ１つの命令は、今までに出てきたので、もう大分解ってきた事と思います。
ＶＢＡによるテーブル操作やＳＱＬ文なども拡張編で取り上げたので大丈夫でしょう。
唯一、ブックマークだけが突然出てきましたが、このブックマークは今回の使い方
以外にも、色々と便利に使えます。
また、続編で機会があれば、使って解説をしていきたいと思います。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
いよいよ、この【会計ソフト編】が、次回で最終回となります。
最終回は、全体のまとめと、続編に付いて少しお話します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
◆◇ Ｑ＆Ａコーナー ◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
今回はありません。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ ACCESSで作るシリーズ 【会計ソフト編】
◇ 発 行 元 ：Yoshihisa Fukuda（福田 義久）
◇ ご意見・ご要望
ご質問等 ：fukuda@shun-net.com
◇ このメールマガジンは、インターネットの本屋さん『まぐまぐ』を利用して発行
しています。（まぐまぐID:0000030446)
◇ バックナンバー：http://www.shun-net.com/fukuda/
◇ 登録・解除 ：http://www.shun-net.com/fukuda/
Copyright(C) 2000-2001 Yoshihisa Fukuda All rights reserved.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□