過去ログ

                                Page     600
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼バーコードの重ね印刷できますか?  コモ 04/4/19(月) 18:46
   ┗Re:バーコードの重ね印刷できますか?  クロ 04/4/20(火) 14:56
      ┣Re:バーコードの重ね印刷できますか?  コモ 04/4/20(火) 17:31
      ┗Re:バーコードの重ね印刷できますか?  コモ 04/4/21(水) 14:57

 ───────────────────────────────────────
 ■題名 : バーコードの重ね印刷できますか?
 ■名前 : コモ
 ■日付 : 04/4/19(月) 18:46
 -------------------------------------------------------------------------
   はじめて質問させて頂きます。
レポートにバーコードを印刷するのですが、レコードソースに
13桁と8桁2種類あるのでMSバーコードコントロールのスタイルがそれぞれ
JAN-13とJAN-8でないと表示できません。(表示してもスキャニングできないです)
同じ部分に印刷したいのですが何かいい方法は、ないでしょうか。
たとえば、2つ重ねて、表示したくないほうのプロパティの可視をいいえに
するコードなんかないでしょうか。
何かよい知恵がありましたら、お願いします。

 ───────────────────────────────────────  ■題名 : Re:バーコードの重ね印刷できますか?  ■名前 : クロ  ■日付 : 04/4/20(火) 14:56  -------------------------------------------------------------------------
   >レコードソースに13桁と8桁2種類あるので

これはそれぞれのフィールドがあるということでいいのでしょうか?
また、1つのレコードに各フィールドにデータ(13桁・8桁)が入って
いるのでしょうか?
上記の場合、何れかを利用するかの判定するためのフィールドが別に
必要になります。

追加フィールド名を「chk判定」(Yes/No型)として
※Yes:13桁バーコード使用 No:8桁バーコード使用

JAN-8用バーコード
コントロール名:BarCodeCtrl1
レコードソース:8桁フィールド名

JAN-13用バーコード
コントロール名:BarCodeCtrl2
レコードソース:13桁フィールド名
とします。

レポートの詳細のフォーマット時のイベントに

If Me.chk判定 = -1 Then
  Me.BarCodeCtrl2.Visible = True
  Me.BarCodeCtrl1.Visible = False
Else
  Me.BarCodeCtrl1.Visible = True
  Me.BarCodeCtrl2.Visible = False
End If

で如何でしょうか?

 ───────────────────────────────────────  ■題名 : Re:バーコードの重ね印刷できますか?  ■名前 : コモ  ■日付 : 04/4/20(火) 17:31  -------------------------------------------------------------------------
   クロさん、ご指導ありがとうございます。
早速試してみます。感謝!感謝!

 ───────────────────────────────────────  ■題名 : Re:バーコードの重ね印刷できますか?  ■名前 : コモ  ■日付 : 04/4/21(水) 14:57  -------------------------------------------------------------------------
   クロさんへ
無事、思っていたように表示ができました。
本当にありがとうございました。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 600