Accessフォームで住所→郵便番号変換

郵便番号データを使って、住所→郵便番号変換のデータやプログラムを作成するのは、個人では大変なので、Accessの住所郵便番号変換ウイザードが使えないか試行していましたがこんな方法でVB.netのフォームにAccessの住所郵便番号変換ウイザードの結果を取り込む事が出来ました。

VB.netのフォームで、郵便番号か住所のTEXTBOXをクリックすると

住所変換設定を組み込んだAccessフォームが開く。

住所や郵便番号が表示されたら、ボタンをクリックしてaccessフォームが閉じる。
その際にINIファイルに入力と変換結果を保存する。

VB.netのフォームでは、タイマー監視して、INIファイルのデータが変更されていたらデータを読み込む。

読み込み後INIファイルのデータをクリアする。


個人使用のアプリなら、この方法でも構わないかなと思います。
これで、郵便番号データは住所入力のコンボ専用データに加工して大丈夫そうです。

データ連携にINIファイルを使ったり、Accessフォームを使ったりと、随分変則なやり方をしているので、スクリプトの公開予定は有りません。
もし、どうしても知りたい方は、コメントからでもサイクルメンテあのこらホームページに記載のメールアドレスにでも、ご連絡ください。

＊2016.06.06追記
動作確認で、1番号複数町域や一町複数番号の変換結果を見て、Accessの住所郵便番号変換ウイザードのアップデートがされていないことに気付きました。
正しい結果を得るためには、常に最新のAccessを使用する必要があります。

郵便番号は入りませんでした。

accessのテーブルの項目間で住所入力支援を設定し、フォームからの住所入力で、テーブルの郵便番号が自動的に入力されないかと期待したのですが、駄目でした。

テーブルの項目間の住所入力支援はaccessでテーブルを開いている時しか有効に働かないようです。

改めて、郵便番号変換のAPIを探してみたのですが、MSのサイト で「郵便番号変換機能プログラムは、Microsoft Corporation のためにアドバンス技研株式会社により開発され、ライセンスされています。」との記載を見つけたので、諦めがつきました。

思いつきは、もう少しありますので、住所入力支援を使えないかもう少し続けてみます。

住所→郵便番号変換

日本郵便の郵便番号データを使って、住所入力支援をする際、accessでは、住所入力支援ウィザードを使って郵便番号⇔住所の相互の変換が可能ですが、VB.netでは、その機能がありません。

その点がネックで、VB.net用の郵便番号データの住所入力支援データへの変換が難航していました。
というより、実現できずに諦めていたのですが、こんな方法を見つけたので、先に進めそうです。

accessのテーブルデザインでも項目間で住所入力支援ウィザードが使えます。

テーブルを更新して、住所から変換した郵便番号データをフォームに表示してやれば、見かけ上はaccessのフォームの住所入力支援と同じ結果が得られそうです。
実際にフォームを作って、フォーム上にも表示できるか試そうとしたのですが、ＶＢ.netでのフォームとテーブルの連携の仕方をきれいさっぱり忘れています。

もう一度最初からＶＢ.netの勉強し直しです。
ちゃんとフォーム上にも表示出来たら、改めて紹介します。

BlueTooth USBアダプタ その後

ずいぶん古い話ですが、一昨年の９月に、BlueTooth　USBアダプタが不調の記事を書きました。

ペアリングは出来るけれど、携帯のハンズフリーでの接続が出来ませんでした。
実は、使っていたBlueTooth　USBアダプタはＰＬＡＮＥＸのBT-MicroEDR2 でした。
WindowsXPの時代から使っていたもので、一昨年９月の時点では.Windows８．１にOSを変更していて、ドライバーはアップデートしていませんでした。

その後、ＯＳもWindows１０に変わっていて、ドライバを更新しようとしたのですが、もうサポート切れとのことで、対応ドライバーは有りませんでした。

やむなく、BlueTooth　USBアダプタをWindows１０に対応している中で、一番安かった、ＥＬＥＣＯＭ　LBT-UAN05C2 に変更です。

無事携帯を認識して、着信番号の表示も出来ました。

VBAに戻ります。

昨年の８月以来、少しずつ進めていた自転車店統合管理システムのVB.net化ですが、今の私のプログラム知識では、遅々として進まずVBAで作成したシステムの不具合も残ったままで、業務管理に支障をきたす為、またVBAでの修正に方向転換します。

.NET化を諦めるわけだはなく、VBAでの修正を進めながら、少しづつでも出来る範囲で.NET化も進めていくつもりです。

IMEひらがなモードでのキー入力取得 ×

【半角/全角】キーの動作を確かめたくて、こんな検証プログラムとフォームを作って確認しています。

Public Class Form1     Friend key_p As String     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         Me.TextBox19.Text = Me.購入場所.ImeMode.ToString     End Sub     Private Sub 購入場所_KeyPress(sender As Object, e As KeyPressEventArgs) Handles 購入場所.KeyPress         Me.TextBox19.Text = Me.購入場所.ImeMode.ToString     End Sub     Private Sub 購入場所_KeyDown(sender As Object, e As KeyEventArgs) Handles 購入場所.KeyDown         Me.TextBox19.Text = Me.購入場所.ImeMode.ToString     End Sub     Private Sub 購入場所_Keyup(sender As Object, e As KeyEventArgs) Handles 購入場所.KeyUp         Me.TextBox19.Text = Me.購入場所.ImeMode.ToString     End Sub     Private Sub 購入場所_ImeModeChanged(sender As Object, e As EventArgs) Handles 購入場所.ImeModeChanged         Me.TextBox19.Text = Me.購入場所.ImeMode.ToString     End Sub End Class

今のところ、次に進める結果は得られていません。

一番問題なのは、このプログラムで、【半角/全角】キーを押しても、フォーム上のIMEモードの表示が変わらない事です。（ImeModeChangedイベントが発生しません。）
ブレークポイントを設定すると、ちゃんとイベントを受け付けています。

もう一つ、面白いことに気づいたのは、ブレークポイントを設定すると半角/全角キーを押した時に、Keyupイベントが先に発生することです。
ローマ字キーを押した時は、普通にKeydownイベントが先に発生します。
ちょっと、訳が分かりません。

IME制御で悩んでいます。

コンボボックスに入力されたカナのキー入力を取得したくて、試行錯誤中です。

Keyup、Keydown、KeyPressそれぞれで試してみたのですが、コンボボックスのImeModeをonに設定しても、Hiraganaに設定しても、キーイベントが発生するとImeModeがoffに切り替わってしまいます。

開発環境は、Win８.1　VB2013のWindows　フォームです。

何かほかの手段を見つけなければいけないのですが、あまり似たような処理をされていないのか、まだ見つけられないでいます。

複数レコード間の共通文字列取り出し

また、郵便番号データの住所入力データ化が一歩進みました。

一番のネックで悩んでいたのがこの変換処理です。


R_市に入っている「ｻｲﾀﾏｼ」「ﾖｺﾊﾏｼ」を取り出して、市のデータを除いたものをR_区に入れています。

手順としては、政令市をグループ化(単一化）したデータの集合を作り、変換テーブルを政令市でフィルターして、R_市のデーターを1文字目から順に取り出し、文字列の比較をしていきます。

たとえば、ｻｲﾀﾏｼなら６文字目で差異が出ますので、差異が出る文字数より１個少ない文字列が共通文字になります。

今回の、スクリプトは、これです。     Private Sub 市区分離() '市区分離処理         Dim strSQL As String         Dim i As Integer         db = DbE.OpenDatabase(db_path() + "\anocora.mdb")         '市区分離変換テーブル作成         strSQL = " SELECT M_住所.市区町村, First(Left([R_住所].[市区町村],InStr([R_住所].[市区町村],'　')-1)) AS 政令市, M_住所.R_市, First(Mid([R_住所].[市区町村],InStr([R_住所].[市区町村],'　')+1)) AS 区, M_住所.R_区 INTO 市区分離変換テーブル "         strSQL = strSQL & "FROM M_住所 INNER JOIN R_住所 ON M_住所.市区町村 = R_住所.市町村置換 "         strSQL = strSQL & "GROUP BY M_住所.市区町村, M_住所.R_市, M_住所.R_区 "         strSQL = strSQL & "HAVING (((M_住所.市区町村) Like '*市*' And (M_住所.市区町村) Like '*区*'));"         db.Execute(strSQL)         Label1.Text = "市区分離変換テーブル作成を作成しました。"         Application.DoEvents()         '政令市のカナ表記抽出         '政令市抽出クエリ         Dim 政令市SQL As String = "SELECT 市区分離変換テーブル.政令市 "         政令市SQL = 政令市SQL & " FROM 市区分離変換テーブル "         政令市SQL = 政令市SQL & "GROUP BY 市区分離変換テーブル.政令市; "         Dim rs2 As DAO.Recordset = db.OpenRecordset(政令市SQL, DAO.RecordsetTypeEnum.dbOpenDynaset)         'R_市の文字列から政令市の共通文字列を抽出         While rs2.EOF = False             '政令市抽出クエリの政令市と同じデータを持つ、市区分離変換テーブルのレコードを抽出。             Dim strSQL2 As String = "SELECT 市区分離変換テーブル.政令市,市区分離変換テーブル.R_市 FROM 市区分離変換テーブル WHERE 市区分離変換テーブル.政令市='" & rs2.Fields!政令市.Value & "';"             Dim rs3 As DAO.Recordset = db.OpenRecordset(strSQL2, DAO.RecordsetTypeEnum.dbOpenDynaset)             Dim kana_ku As String = ""             i = 1             Dim k As Integer = Len(rs3.Fields!R_市.Value)             Dim srshi As String = rs3.Fields!R_市.Value             Do Until i > k '先頭レコードと次のレコードのR_市のデータを先頭から1文字づつ比較。                 kana_ku = kana_ku & srshi.Substring(i - 1, 1)                 While rs3.EOF = False                     If rs3.Fields!R_市.Value.Substring(0, i) <> kana_ku Then '差異が発生したしたら、区の更新をしてループから出る。                         kana_ku = kana_ku.Substring(0, i - 1)                         Dim strSQL3 As String = "UPDATE 市区分離変換テーブル SET 市区分離変換テーブル.[R_区] = Mid([R_市],InStr([R_市],'" & kana_ku & "')+" & i - 1 & ") "                         strSQL3 = strSQL3 & "WHERE (((市区分離変換テーブル.政令市)='" & rs2.Fields!政令市.Value & "'));"                         db.Execute(strSQL3)                         Exit Do                     End If                     rs3.MoveNext()                 End While                 rs3.MoveFirst()                 i = i + 1             Loop             rs2.MoveNext()         End While         rs2.Close()         Label1.Text = "市区分離変換テーブルに区のカナ表記を追加しました。"         Application.DoEvents()         '分離処理         strSQL = " UPDATE M_住所 INNER JOIN 市区分離変換テーブル ON M_住所.市区町村 = 市区分離変換テーブル.市区町村 SET M_住所.[市区町村] = [市区分離変換テーブル]![政令市], M_住所.[R_市] = [市区分離変換テーブル]![R_市], M_住所.[区] = [市区分離変換テーブル]![区], M_住所.[R_区] = [市区分離変換テーブル]![R_区];"         db.Execute(strSQL)         Label1.Text = "市区分離処理を終了しました。。"         Application.DoEvents()         db.Close() : db = Nothing     End Sub

住所データ 悩み継続中

以前の記事で、こんな画面をご紹介しましたが、電話で話しながら、住所入力が出来るよう指1本で入力可能なアルファベットでコンボボックスのリストが絞り込める機能を実装中です。

画面そのものは、使い勝手を考えて、まだ修正中です。

住所とアルファベットの関連付けについては、都道府県、市、町域については、ローマ字版の郵便番号データのローマ字表記を修正しながら使用できるところまで進みました。

市と区が同じ列に、纏まったデータで入っているのを、ローマ字版のスペースで区切られたデータから、分離するとこまではうまくいったのですが、ヘボン式のローマ字表記の為、入力用には修正が必要で、カナデータとローマ字データを利用して修正しています。

その為、区のカナ表記も必要なのですが、カナについては、スペース区切りの無い連続したデータしかなく、区のカナ表記の取り出しで悩んでいます。

なんとなく、目途は付いたようなのですが、今出来上がっている修正法を、見直さないと訳の分からないプログラムになりそうです。

ということで、今日もパソコンの画面と格闘中です。

住所入力補助用テーブル完成

かれこれ１か月格闘してしていましたが、住所入力補助用に使用する郵便番号データの修正が完了しました。

政令市の市と区の分離
住所入力に不要な郡データの削除
分割された町データのマージ
町域にビル名が記載されたレコード削除
町域に「以下に掲載がない場合」と記載されたレコードの削除
「式町村の次に番地がくる場合」、「市区町村一円」の削除
（）で括られたデータの削除
町域のカナ表示をアルファベット２文字に置換(ヘボン式のローマ字表記をローマ字カナ入力への補正）
町域に字(あざ）が含まれるデータの町域字分離

を行っています。

拙いスクリプトですが、ACCESSでは使用可能でVB.NETでは使えないSQLのReplaceの代替など、参考になる部分もあると思います

詳細はこちらのサイトでスクリプトを公開していますので、興味のある方は覗いてみてください。