Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

476 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【3631】Re:特定の宛名だけを印刷したい時

クロ - 04/10/2(土) 14:18 -


	引用なし

	パスワード

>DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] =0"
訂正
DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] >0"

・ツリー全体表示


	【3630】Re:特定の宛名だけを印刷したい時

クロ - 04/10/2(土) 14:17 -


	引用なし

	パスワード

▼お初さん：
>▼クロさん：
>すいません。初歩的なことをお聞きいたしますが、
>レポートを開く時のイベントというのは、
>フォーマット時のイベントではないでよね。
>どのような意味でしょうか？
>（クエリを作成してマクロ等で指定するのでしょうか？）

レポートをデザインビューで開き、「開く時」のイベントにコードで
書きます。

要はレポートのレコードソースにある「枚数」が0より大きいものしか出さなければ
いいのでは？ということです。
※[印刷枚数](テスト用なので)は[枚数]にしてください。

もしくはレポートを開くコマンドボタンがあればそこに
DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] =0"
としてもいいとおもいます。
※テストのため印刷プレビューにしてあります。

・ツリー全体表示


	【3629】Re:特定の宛名だけを印刷したい時

お初 - 04/10/2(土) 13:51 -


	引用なし

	パスワード

▼クロさん：
すいません。初歩的なことをお聞きいたしますが、
レポートを開く時のイベントというのは、
フォーマット時のイベントではないでよね。
どのような意味でしょうか？
（クエリを作成してマクロ等で指定するのでしょうか？）

初歩的な事をお聞きして申し訳ありませんが、
よろしくお願い致します。

>レポートの開く時のイベントに
>
>Me.Filter = "[印刷枚数]>0"
>Me.FilterOn = True
>
>のようにフィルタをかけてはどうでしょうか？

・ツリー全体表示


	【3628】Re:フォーカスの移動

クロ - 04/10/2(土) 10:30 -


	引用なし

	パスワード

▼ぷーさん：
>>検索リストボックスのフォーカス取得時か何かに
>>別のイベントを入れてますか？
>
>はい。クリック時に次の処理をしています。
>
>Private Sub 検索リスト_Click()
>　　　　
>　　件数_WK = Me.検索リスト.ListIndex + 1
>　　DoCmd.GoToRecord acDataForm, "S0010　雑誌MＸのコピー", _
>　　　　　　　　　　　　　　　　　　　　　　　　 acGoTo, 件数_WK
>　　Me.Repaint
>
>End Sub
>
>※いろいろためしてみたら、上手く実行されている時もありました。
>エラーになるのは、検索リストをクリックした時のみです。
>何度もすみません。よろしくお願いいたします。

ちなみに「S0010　雑誌MＸのコピー」って別フォームでいいのでしょうか？
とりあえず別フォームってことでやってみましたが、問題なく検索リストで
クリック時も「検索リスト移動」ボタンでのイベント時もエラーになりません。
※「S0010　雑誌MＸのコピー」が開いているという前提

・ツリー全体表示


	【3627】Re:フォーカスの移動

ぷー - 04/10/1(金) 18:10 -


	引用なし

	パスワード

>検索リストボックスのフォーカス取得時か何かに
>別のイベントを入れてますか？

はい。クリック時に次の処理をしています。

Private Sub 検索リスト_Click()
　　　　
　　件数_WK = Me.検索リスト.ListIndex + 1
　　DoCmd.GoToRecord acDataForm, "S0010　雑誌MＸのコピー", _
　　　　　　　　　　　　　　　　　　　　　　　　 acGoTo, 件数_WK
　　Me.Repaint

End Sub

※いろいろためしてみたら、上手く実行されている時もありました。
エラーになるのは、検索リストをクリックした時のみです。
何度もすみません。よろしくお願いいたします。

・ツリー全体表示


	【3626】Re:フォーカスの移動

クロ - 04/10/1(金) 17:40 -


	引用なし

	パスワード

検索リストボックスのフォーカス取得時か何かに
別のイベントを入れてますか？

・ツリー全体表示


	【3625】Re:フォーカスの移動

ぷー - 04/10/1(金) 17:26 -


	引用なし

	パスワード

>ないのでしたら検索リストボックスプロパティの「複数選択」を
>確認して「標準」「拡張」でしたら「しない」にしてみてください。

「しない」になっていました。

・ツリー全体表示


	【3624】Re:フォーカスの移動

クロ - 04/10/1(金) 17:18 -


	引用なし

	パスワード

検索リストボックスは複数のレコードを選択する場合が
ありますか？

ないのでしたら検索リストボックスプロパティの「複数選択」を
確認して「標準」「拡張」でしたら「しない」にしてみてください。

・ツリー全体表示


	【3623】Re:フォーカスの移動

ぷー - 04/10/1(金) 16:54 -


	引用なし

	パスワード

クロさん、本当に何度もありがとうございます。

>一応、私は以下のように書きました。
同様にして試しましたが、結果は同じでした。
ListIndexの後にSetfocusをするときは、Listindexの解除？のような
ものが必要なんでしょうか？
よろしくお願いいたします。

・ツリー全体表示


	【3622】Re:フォーカスの移動

クロ - 04/10/1(金) 16:20 -


	引用なし

	パスワード

一応、私は以下のように書きました。

　　Me.検索リスト.SetFocus
　　If 処理区分 <> "新規" Then
　　　 Me.検索リスト.ListIndex = Me.CurrentRecord - 1
　　End If
　　Me.雑誌コード.SetFocus

・ツリー全体表示


	【3621】Re:フォーカスの移動

ぷー - 04/10/1(金) 16:17 -


	引用なし

	パスワード

何度も申し訳ありません。

>「処理区分」コントロールの値が「新規」の時は瞬時に雑誌コードに
>フォーカス移動し、そうでないときはリストボックスで同リストに移
>動してから雑誌コードにフォーカス移ります。
そうです、そうのような動きにしたいのですが・・・

>「処理区分」がどのような場合でも雑誌コードにフォーカスが移らないのでしょうか？
新規の時はうまくいきました。

・ツリー全体表示


	【3620】Re:フォーカスの移動

クロ - 04/10/1(金) 15:57 -


	引用なし

	パスワード

>>検索リスト移動はコマンドボタンでしょうか？
>検索リストはリストボックスです。

微妙に答えが...ちがうような？

「処理区分」コントロールの値が「新規」の時は瞬時に雑誌コードに
フォーカス移動し、そうでないときはリストボックスで同リストに移
動してから雑誌コードにフォーカス移ります。

「処理区分」がどのような場合でも雑誌コードにフォーカスが移らないのでしょうか？

・ツリー全体表示


	【3619】Re:フォーカスの移動

ぷー - 04/10/1(金) 15:45 -


	引用なし

	パスワード

クロさん、いつもありがとうございます。

>検索リスト移動はコマンドボタンでしょうか？
検索リストはリストボックスです。

>このボタンを押下することで
>フォーム上の「検索リスト」(これはリストボックス？)にフォーカスを移し
>フォームで表示しているレコードの「処理区分」コントロールの値が「新規」で
>なかったらフォームのレコードと検索リスト内のリストと同じものを選択し、
>雑誌コードにフォーカスを移す。
>「処理区分」コントロールの値が「新規」だったら何もせずに雑誌コードにフォ
>ーカスを移す。
>ということですよね
はい、そうです。

>1) 雑誌コードのコントロールは何ですか？
テキストボックスです。

>2) 雑誌コードコントロールの「名前」を確認する
名前は間違いありませんでした。

リストボックス（検索リスト）にフォーカスを移動する前だと、雑誌コードへの
フォーカスは実行されますが、一度リストボックスにフォーカスが移動してしま
うとエラーになってしまいます。どうしてでしょうか？
よろしくお願いいたします。

・ツリー全体表示


	【3618】Re:フォーカスの移動

クロ - 04/10/1(金) 15:31 -


	引用なし

	パスワード

検索リスト移動はコマンドボタンでしょうか？

このボタンを押下することで
フォーム上の「検索リスト」(これはリストボックス？)にフォーカスを移し
フォームで表示しているレコードの「処理区分」コントロールの値が「新規」で
なかったらフォームのレコードと検索リスト内のリストと同じものを選択し、
雑誌コードにフォーカスを移す。
「処理区分」コントロールの値が「新規」だったら何もせずに雑誌コードにフォ
ーカスを移す。
ということですよね

検証したら問題ないようですが？

1) 雑誌コードのコントロールは何ですか？
2) 雑誌コードコントロールの「名前」を確認する

・ツリー全体表示


	【3617】フォーカスの移動

ぷー - 04/10/1(金) 14:51 -


	引用なし

	パスワード

またお世話になります。
リストボックス（検索リスト）上にあるフォーカスを他のテキストボックス
（雑誌コード）にフォーカスを移動したいのですが、下記の様にしたらエラ
ーになってしまいます。
雑誌コードにフォーカスを移動するにはどうしたら良いでしょうか？
コントロールがリストボックス上にあるからだとは思うのですが、どうした
ら良いか解りません。
どなたか、教えてください！

Private Sub 検索リスト移動()
　　rs = Me.CurrentRecord
　　検索リスト.SetFocus
　　If 処理区分 <> "新規" Then
　　　 Me!検索リスト.ListIndex = rs - 1
　　End If
　　雑誌コード.SetFocus
End Sub

エラー：コントロール"雑誌コード"にフォーカスを移動することができません。
　　　　

・ツリー全体表示


	【3616】Re:遅くなって申し訳ありません

クロ - 04/10/1(金) 14:48 -


	引用なし

	パスワード

印刷(プレビュー)時にチェックしてみては？
※「請求するものをクエリーを使って抽出」のクエリは
　レポートのレコードソースでいいのですよね？
　仮に「クエリA」とします。

印刷(プレビュー)コマンドボタンのクリック時のイベントにコードで

Dim i As Integer, i2 As Integer
'クエリA内のレコード中の金額欄がないもののカウント数
i = DCount("*", "クエリA", "[金額] Is Not Null")
'クエリA内のレコードカウント数
i2 = DCount("*", "クエリA")
If i <> i2 Then
　 MsgBox "金額がが未入力のものがあります"
　 Exit Sub
Else
　 DoCmd.OpenReport "レポート名", acViewPreview
End If

・ツリー全体表示


	【3615】遅くなって申し訳ありません

クロヒョウ - 04/10/1(金) 11:52 -


	引用なし

	パスワード

別件業務にかかりっきりになってしまい、
レスがものすごく遅くなりました。本当にすみません。

▼こもれびさん：
こもれびさんのおっしゃるとおり、金額欄は未入力のまま新規レコードを作成します。
また、場合によっては金額欄が永遠に空欄（請求なし）ということもあります。
さらに、金額を入力する人間と納品日を入力する人間が違います。

なので、レポートを出力してみてから『金額が入ってなかった～！！』
なんてことになったりするのです。

せっかく考えていただいた対策案なんですが、現状に合っているのかどうかも
よおくわかりません。

何度もお手間を取らせてしまって、本当に申し訳ないですが
よろしくご指導お願いします。

・ツリー全体表示


	【3614】Re:特定の宛名だけを印刷したい時

クロ - 04/10/1(金) 10:40 -


	引用なし

	パスワード

レポートの開く時のイベントに

Me.Filter = "[印刷枚数]>0"
Me.FilterOn = True

のようにフィルタをかけてはどうでしょうか？

・ツリー全体表示


	【3613】Re:テキストボックスの表示/非表示について

天狗 - 04/9/30(木) 19:04 -


	引用なし

	パスワード

うまくいきました！ありがとうございました！！！！

・ツリー全体表示


	【3612】Re:テキストボックスの表示/非表示について

天狗 - 04/9/30(木) 19:04 -


	引用なし

	パスワード

うまくいきました！ありがとうございました！！

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

476 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free