Ｐａｇｅ 265 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼カスタマバーコード stray_sheep 03/4/29(火) 0:20 ┗Re:カスタマバーコード こうちゃん 03/5/1(木) 13:20 ┗Re:カスタマバーコード stray_sheep 03/5/2(金) 1:40 ┗Re:カスタマバーコード こうちゃん 03/5/2(金) 8:47 ┗Re:カスタマバーコード stray_sheep 03/5/4(日) 3:49 ─────────────────────────────────────── ■題名 ： カスタマバーコード ■名前 ： stray_sheep <stray@sheep.ai.to> ■日付 ： 03/4/29(火) 0:20 -------------------------------------------------------------------------
| Access2000で宛名ラベルを出すときに、カスタマバーコードを付けたいのです。 付け方が分かりません。 いや、そもそも「カスタマバーコード」とは、郵便番号だけをバーコード化しているのかそれとも、住所の番地（2丁目19-20とか…。）あたりまでバーコード化しているのか、それすらよく分かっていないんですけど…。（^^;） どなたか、教えてくださいませませ。 よろしくお願いします。 |
| stray_sheepさん、こんにちは > Access2000で宛名ラベルを出すときに、カスタマバーコードを付けたいのです。 >付け方が分かりません。 > いや、そもそも「カスタマバーコード」とは、郵便番号だけをバーコード化しているのかそれとも、住所の番地（2丁目19-20とか…。）あたりまでバーコード化しているのか、それすらよく分かっていないんですけど…。（^^;） > > どなたか、教えてくださいませませ。 よろしくお願いします。 レスがないようなので・・ カスタマバーコードは一般に７桁の郵便番号ではないかと思います。（ハイフンは除く） Office2000なら、バーコードコントロール9.0が使えると思いますので、それで対応できると思います。 （実際に使ったことはないので、詳細はわかりません。(^^;） |
| ▼こうちゃん さん： 返事ありがとうございます。 >レスがないようなので・・ >カスタマバーコードは一般に７桁の郵便番号ではないかと思います。（ハイフンは除く） 私もおそらくそうだろうと思ったのですが、郵便局に問い合わせると、違うらしいです。 郵便番号+番地+部屋番号（アルファベット含む） ということらしいです。 住所から文字（漢字・ひらがな・カタカナ）を削除して、数字とアルファベットだけを抽出する関数（クエリでも…。）って、どう書けば良いのでしょう？ 私のスキルでは、かなりの難関です・・・。 というか、Accessのカスタマーバーコードって、Accessの参考書にもあまり載ってないですね。 結構使えるワザだと思うが…。 やっぱり難しいということでしょうか・・・。 >Office2000なら、バーコードコントロール9.0が使えると思いますので、それで対応できると思います。 >（実際に使ったことはないので、詳細はわかりません。(^^;） そうですね。それは私もあのあとそこまでは出来るようになりました。 ただ、番地と部屋番号が・・・。 郵便の話だと、郵便番号をバーコードにしただけでは、割引の対象にしてくれないのだそうです…。 |
| stray_sheepさん、こんにちは > 住所から文字（漢字・ひらがな・カタカナ）を削除して、数字とアルファベットだけを抽出する関数（クエリでも…。）って、どう書けば良いのでしょう？ こんな感じです・・ '文字列から数字とアルファべットと"-"だけ抽出して返します。 '全角の英数字半角に変換されます。 Function Letter2Sign(Word As String) As String Dim WordTemp As String Dim WordTemp2 As String Dim i As Long If Len(Word) = 0 Then Letter2Sign = "" Exit Function End If WordTemp = StrConv(Word, vbNarrow) For i = 1 To Len(WordTemp) If Asc(Mid(WordTemp, i, 1)) >= 48 And Asc(Mid(WordTemp, i, 1)) <= 57 _ Or Asc(Mid(WordTemp, i, 1)) >= 65 And Asc(Mid(WordTemp, i, 1)) <= 90 _ Or Asc(Mid(WordTemp, i, 1)) >= 98 And Asc(Mid(WordTemp, i, 1)) <= 122 _ Or Asc(Mid(WordTemp, i, 1)) >= 45 Then WordTemp = WordTemp2 & Mid(WordTemp, i, 1) End If Next Letter2Sign = WordTemp2 End Function > ただ、番地と部屋番号が・・・。 >郵便の話だと、郵便番号をバーコードにしただけでは、割引の対象にしてくれないのだそうです…。 割引の対象になるんですかぁ〜。知りませんでした。 |
| こうちゃんさま 返事が遅れてすみません。 いやま、すっごいコードを送っていただき、ありがとうございます！！ （というか、コードが読めなくて…。（^^;）） なるほど…。 うーむ…。 これは「文字コード」というやつですね。 すみません。 せっかく送っていただいたのに、難しそうでまだやっていません。 えっと…。 ハイフンは多分要らないと思います。 ハイフンが要らないとすると、Or Asc(Mid(WordTemp, i, 1)) >= 45 のところ だけ省略すれば良いのでしょうか？ （コードが読めないので、応用が利きません。お恥ずかしいデス。） ですが、数日中にやってみたいと思っております。 郵便バーコード割引については、こちらをご覧ください。 http://www.post.japanpost.jp/zipcode/zipmanual/p30.htm では、本当にありがとうございました。 |