Accessのレポートで、宛名ラベル印刷の印刷開始位置を選択できる
ようにしたく、下記URLの通りにやってみたのですが、エラー表示がでます。
参考URL
http://support.microsoft.com/default.aspx?scid=k …
この通りにやってみると、エラーメッセージ「コンパイルエラー プロシージャ内では無効です」
と表示されてしまいます。
エラーにならないようにするには、どうしたらよいのでしょうか?
記述は下記になります。
Option Compare Database
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
Option Explicit
Dim i, k As Integer
i = 0
k = InputBox("ラベル印刷の開始位置を入力してください")
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If i < k - 1 Then
Me.MoveLayout = True
Me.NextRecord = False
Me.PrintSection = False
i = i + 1
End If
End Sub
恐れ入りますが、ご教示お願い致します。
No.1ベストアンサー
- 回答日時:
> Option Compare Database
> Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
> Option Explicit
> Dim i, k As Integer
Option Compare Database
Option Explicit
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
Dim i, k As Integer
この回答への補足
ご回答ありがとうございます。
ボックスの表示はされるようになったのですが、
実際に数字を入力してOKをクリックすると、
「コンパイルエラー 変数が定義されていません。」
と表示されるのですが、何処を修正したら良いのでしょうか?
よろしくお願い致します。
No.2
- 回答日時:
リンク先を、落ち着いて見ましょう。
Option Compare Database
'Option Explicit
Dim i, k As Integer
Private Sub ・・・・
となっています。
プロシージャの中で宣言した変数は
そのプロシージャの中でしか参照できません。
複数のプロシージャで参照するには
モジュールレベルで宣言する必要があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) 標準モジュール Public mOnTime As Date Sub sample() '実行プロシ 1 2023/02/22 15:44
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのマクロでモジュールを...
-
Access VBAで行ラベルが定義さ...
-
エクセルVBAでUserFormを起動し...
-
Excel2000 セルデータ検索ウィ...
-
Access2016 VBA ボタンのイベン...
-
VBAにおける Option Explicitの...
-
Access VBA ラベル印刷開始位置...
-
【Excel VBA】 WorksheetやRa...
-
Excel VBAで「プログラム実行」...
-
DECLARE
-
EXCEL 2003におけるVBA,マクロ...
-
Accessの数値から時間に変換す...
-
yyyy/M/dをyyyy/MM/ddに変換
-
Google Apps Script、onChange...
-
ODBCリンクの際にACCESSでは読...
-
重複するIDのデータを1行にま...
-
SQL Sever での日付の差の求め...
-
Excelの並べ替え後のデータを日...
-
ACCESSのVBAでCSVを取込処理に...
-
日付型カラムへのデータINSERT
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのマクロでモジュールを...
-
Access VBAで行ラベルが定義さ...
-
エクセルVBAでUserFormを起動し...
-
callで順に実行されるプロシー...
-
VBA プロシージャの名前の取得
-
【Excel VBA】 WorksheetやRa...
-
OutlookVBAで作成したマクロに...
-
或るプロシージャの呼び出し元判定
-
Accessでグローバル変数を宣言...
-
DBMS_OUTPUT.PUT_LINEを実行し...
-
ACCESS2007インポート時の空白...
-
PL/SQLのエラーについて
-
excel/vba/public変数
-
Excel VBAで「プログラム実行」...
-
エクセルVBAが対応できるプログ...
-
ACCESS マクロをモジュールに変...
-
Excel:ThisWorkbookオブジェク...
-
ブックオープン時にテキストボ...
-
VBA 「文字が入っていたら、...
-
vbaでブックを開いたときにコン...
おすすめ情報