こんにちは。
アクセスで各レコードの印刷部数がそれぞれ異なるため、各レコードに入力した(フォームから)部数指定で
看板を印刷するようVBAを入力したところ。。。フォーマット時の方でIfブロックに対する End Ifがありませんとコンパイルエラーが出てEnD Ifが反転しています。
VBA初心者で、このVBA事態もネットで調べてコピペしたもので。。。エラー事態を自力で直せません。。。宜しくお願いいたします。
レポートの詳細にテキストボックスを置き名前-[cut]/可視-[いいえ[/コントロールソース-[=1]/
集計実行-[グループ全体]
詳細のプロパティ
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Dim 指定枚数 As Integer
指定枚数 = Forms![フォーム名]![部数指定フィールド名]
If IsNull([cut]) Then
[cut] = 1
If [cut] <> 指定枚数 Then
Me.NextRecord = False
Me.MoveLayout = True
Me.PrintSection = True
End If
End Sub
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
Dim 指定枚数 As Integer
指定枚数 = Forms![フォーム名]![部数指定フィールド名]
If [cut] <> 指定枚数 Then
[cut] = [cut] + 1
Else: [cut] = 1
End If
End Sub
宜しくお願いいたします。
No.4ベストアンサー
- 回答日時:
もしかして、こんな事をやりたいのでは?
レポート印刷で印刷部数をフォーム上で指定する方法:SampleFile146
http://www.accessclub.jp/samplefile/samplefile_1 …
勘違いならご容赦。
この回答への補足
調べて頂き、回答ありがとうございます。
例えば、品物が20台の注文が入った時、ワゴンには10台までしか乗らないため同じ看板を2枚必要です。
注文個数は一つ一つバラバラなので、1レコード1注文入力するとして。。。レコード単位で部数指定したいと思っています。
現在、看板ボタンをクリックするとすべて1部づつとしてのプレビューが出ます。
私が参考にしたホームページは
http://support.microsoft.com/kb/404902/ja
です。
宜しくお願いします。
こんばんは、nicotinismさん。
イメージに近いホームページを探して頂いて有難うございました。
>※イメージ的に
http://www.f3.dion.ne.jp/~element/msaccess/AcTip …
が近いような気もしますけど?ハズレ?
上記のものを試してみたら望み通りにいきました。。。
数年悩んでいた物が解決しすごく感謝しています。
有難うございました。
No.5
- 回答日時:
すみません。
『看板』の意味というか概念がぼんやりとしか分かりません。例えば
品物テーブル
品物ID 品物名 単価 最大入数(ワゴンに詰め込める最大数)
1 パン 100 3
2 ミルク 200 2
出庫テーブル
品物ID 品物名 数 出庫日
1 パン 4 2013/6/4
2 ミルク 4 2013/6/4
みたいなもの(かなり簡略化してますが)があったとして最終的にレポートで
どのようになったら良いのでしょう?
(深読みしすぎ?)
元のデータと出力レポートの例を示してもらえませんか。
※イメージ的に
http://www.f3.dion.ne.jp/~element/msaccess/AcTip …
が近いような気もしますけど?ハズレ?
とりあえず
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Dim 指定枚数 As Integer
指定枚数 = Forms![フォーム名]![部数指定フィールド名]
If FormatCount < 指定枚数 Then
Me.NextRecord = False
Me.MoveLayout = True
Me.PrintSection = True
End If
End Sub
をお試しを。
(詳細_Printの方は無効(コメントアウト)しておいて)
この回答への補足
回答ありがとうございます。紹介していただいたホームページも試してみます。
説明不足ですいません。
受注ID 出庫日 品名 個数 看板表示個数 単価 部数(看板) 引当先
1 6/5 パン 5 5 100 1
2 6/8 ミルク 20 10/20 200 2
引当客ID 引当客先
1 田中
2 鈴木
があり引当客IDと受注IDで1対多でリレーションしてあります。
看板形態は、出庫日 品名 看板表示個数 引当先が1枚に載っています。
現在では、1レコード1部づつですが、部数指定したいと思っています。
回答下さったものを試してみましたが、マクロ実行エラーが出てしまいました。
宜しくお願いいたします。
No.3
- 回答日時:
If IsNull([cut]) Then
[cut] = 1
上記の2行を2行に分けず
If IsNull([cut]) Then [cut] = 1
と書けば動くのでは?
No.2
- 回答日時:
「◇」は「同じ番号の◆」に対応します。
◇1⇒Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
◇2⇒If IsNull([cut]) Then
◇3⇒If [cut] <> 指定枚数 Then
◆3⇒End If
◆1⇒End Sub
あれ?「◇2」に対応する「同じ番号の◆2」がありませんよ?
No.1
- 回答日時:
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
の中では、Ifが2つあるのにEnd Ifが1つしかないからエラーになっています。
End If1つで2つのIfが終了するわけではありませんよ。
この回答への補足
みなさん有難うございます。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Dim 指定枚数 As Integer
指定枚数 = Forms![フォーム名]![部数指定フィールド名]
If IsNull([cut]) Then
[cut] = 1
Else
If [cut] <> 指定枚数 Then
Me.NextRecord = False
Me.MoveLayout = True
Me.PrintSection = True
End If
End Sub
としてみました。すると。。。今度はIf [cut] <> 指定枚数 Then の<>がエラーで反転してしまいました。
この部分を
[cut] = [cut] <> 指定枚数 Then
と改造しましたが。。。ドツボにハマったようです。
素人で申し訳ありません、よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
タンスとか、冷蔵庫とか 上から...
-
ヤマト運輸からくる荷物全てを...
-
ネットショップを運営していま...
-
運送会社が時間指定配達をして...
-
太平洋フェリーの寝台等級のベ...
-
佐川急便では、荷物が配達予定...
-
宅配便の伝票の貼り方
-
配達員について…これって普通で...
-
書留便などの不在預かり期間の7...
-
ヤマト運輸で配達時間を指定し...
-
宅配便の依頼主が本人なのですが
-
配達員は来ているけど不在票が...
-
佐川急便です。 7月7日の16時に...
-
「不在としております」は正し...
-
Amazonの配達員が不在票を入れ...
-
「不在」の反対語を教えてください
-
宅配便の誤配達について損害賠...
-
佐川急便で昨日20時に関西中継...
-
佐川急便です。 配達指定日は今...
-
あり得ない日本郵便の対応‼︎ 留...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
タンスとか、冷蔵庫とか 上から...
-
ヤマト運輸からくる荷物全てを...
-
簡易書留の事ですが日にち指定 ...
-
SDカードのルートパスを選択し...
-
まんだらけ通販の時間指定は本...
-
エクセル VBAで文章にある複数...
-
必着という言葉をどう取るか?
-
こんばんは 教えてください 400...
-
<title></title>(サイトタイト...
-
数式を教えてください!!! 0...
-
指定可燃物
-
wordのハイパーリンクで、リン...
-
アクセスIfブロックに対応するE...
-
ネットショップを運営していま...
-
晴空塔
-
届かなかった宅急便・・・これ...
-
佐川って最大何時までなら届け...
-
ヤフーショッピングでメール便...
-
永続版Wordは縦書き段組・行数...
-
宅配便の伝票の貼り方
おすすめ情報