Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


453 / 2272 ツリー ←次へ | 前へ→

【11588】ActiveXコントロールへのセット方法 こじこじ 10/4/7(水) 11:59 質問[未読]
【11595】Re:ActiveXコントロールへのセット... よろずや 10/4/7(水) 21:02 発言[未読]
【11596】Re:ActiveXコントロールへのセット... こじこじ 10/4/8(木) 9:46 回答[未読]
【11599】Re:ActiveXコントロールへのセット... よろずや 10/4/8(木) 20:58 回答[未読]
【11600】Re:ActiveXコントロールへのセット... こじこじ 10/4/9(金) 9:42 質問[未読]
【11646】Re:ActiveXコントロールへのセット... 小僧 10/4/30(金) 18:14 回答[未読]
【11650】Re:ActiveXコントロールへのセット... こじこじ 10/5/6(木) 9:24 お礼[未読]

【11588】ActiveXコントロールへのセット方...
質問  こじこじ  - 10/4/7(水) 11:59 -

引用なし
パスワード
   お世話になっております。
こじこじです。

あるレポートを作成しております。
バーコードを印字する為に、ActiveXコントロールにて、
バーコード枠をセットしております。
レポートのレコードソースは、設定せず、
印刷時のVBAにて、各テキストボックスにデータをセットしております。
そこで問題なのですが、
ActiveXコントロールで追加しているバーコード枠に関して、
データをセットしようとするとエラーが発生してしまいます。
(実行時エラー:2101 プロパティの設定値として指定した値が正しくありません)

どのようにすればセット出来るのでしょうか。

(レポートイメージ)
「txt郵便番号」(テキストボックス)
「txt住所」(テキストボックス)
「txt名前」(テキストボックス)
「txtバーコード」(ActiveXコントロール)

(詳細_Printのソール)
DAOにて
  Dim mydb    As Database
  Dim myRecset  As Recordset
  Set mydb = CurrentDb
  Set myRecset = mydb.OpenRecordset("テーブルA")

  Me![txt郵便番号] = myRecset![郵便番号]
  Me![txt住所] = myRecset![住所]
  Me![txt名前] = myRecset![名前]
  Me![txtバーコード] = myRecset![カスタマーバーコード]


Me![txtバーコード] = myRecset![カスタマーバーコード] の部分でエラーと
なってしまいます。

どうぞよろしくお願いします。

【11595】Re:ActiveXコントロールへのセッ...
発言  よろずや  - 10/4/7(水) 21:02 -

引用なし
パスワード
   ActiveXコントロールのメーカーは?
Microsoftですか?
バージョンは?

【11596】Re:ActiveXコントロールへのセッ...
回答  こじこじ  - 10/4/8(木) 9:46 -

引用なし
パスワード
   ご質問ありがとうございます。

ActiveXコントロールは、
「Microsoft バーコード コントロール 9.0」を使用しております。
Accessは「2003」を使用しております。

ご確認お願い致します。

【11599】Re:ActiveXコントロールへのセッ...
回答  よろずや  - 10/4/8(木) 20:58 -

引用なし
パスワード
   >ActiveXコントロールは、
>「Microsoft バーコード コントロール 9.0」を使用しております。

値をセットすることは出来ません。
テーブル(クエリ)にリンクさせて下さい。

【11600】Re:ActiveXコントロールへのセッ...
質問  こじこじ  - 10/4/9(金) 9:42 -

引用なし
パスワード
   返信ありがとうございます。

VBAでは、セットは出来ないと言う事ですね。

テーブルにリンクとは、
レコードソースにテーブル(クエリー)をセットして
コントロールソースにフィールドをセットすると言うことですか?

この方法は使えませんので、ActiveXコントロールでの
バーコードは使用出来ないようですね

【11646】Re:ActiveXコントロールへのセッ...
回答  小僧  - 10/4/30(金) 18:14 -

引用なし
パスワード
   ▼こじこじ さん:
こんにちは。

>  Set myRecset = mydb.OpenRecordset("テーブルA")
>
>  Me![txt郵便番号] = myRecset![郵便番号]
>  Me![txt住所] = myRecset![住所]
>  Me![txt名前] = myRecset![名前]
>  Me![txtバーコード] = myRecset![カスタマーバーコード]

ご提示の方法ですと、先頭レコードのみの印刷になりますが
問題はありませんか?

それで宜しい場合は
レポート上に不可視のテキストボックスを置き、
バーコード値のセットはテキストボックスに対して行います。

バーコードについてはレコードソースを

=[不可視のテキストボックス名]

と指定すれば
バーコードの印刷は可能かと思われます。


ただし、複数件を表示されたいのであれば
出力用のワークテーブルを作成し、
連結レポートにする必要が出てくるかと思われます。

【11650】Re:ActiveXコントロールへのセッ...
お礼  こじこじ  - 10/5/6(木) 9:24 -

引用なし
パスワード
   小僧さん

ありがとうございます。
うまく処理が出来るようになりました。
解決致しました。

453 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078193
(SS)C-BOARD v3.8 is Free