Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1429 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7206】サブフォームの行数 ジュン 06/2/2(木) 11:11 質問[未読]
【7209】Re:サブフォームの行数 ふくちゃん 06/2/2(木) 22:20 回答[未読]
【7215】Re:サブフォームの行数 ジュン 06/2/3(金) 10:48 質問[未読]
【7219】Re:サブフォームの行数 クロ 06/2/3(金) 13:18 回答[未読]
【7221】Re:サブフォームの行数 ジュン 06/2/3(金) 14:43 お礼[未読]
【7206】サブフォームの行数
質問  ジュン  - 06/2/2(木) 11:11 -
引用なし
パスワード
   ジュンです。よろしくお願いします。

今、サブフォームの入力行数のチェックで困っています。

メインフォームでデータの抽出条件を入力して、サブフォームに該当するデータを
件数分だけ表示しています。

問題1.：該当件数が5件の場合に５行分のデータとプラス最終行に空白の行が表示されます。
　　　　空白行を表示しない方法がわかりません。
問題2.：５行分の入力が終わればメインフォームの印刷コマンドボタンにフォーカスを移動したいのですが、マウスを使わずに５行目の入力終了後にフォーカスの移動をしたいのでが、その方法がわかりません。

環境はwin98/XP　access2000　です。

サブフォームのレコードソースはクエリを使わずにテーブルを使用しています。

ご存知の方、どうぞよろしくお教え下さい。
【7209】Re:サブフォームの行数
回答  ふくちゃん  - 06/2/2(木) 22:20 -
引用なし
パスワード
   たしか改ページをどうするかって、指定できましたよね。
ヘッダーかフッダーのどちらかをプロパティで変更してみてください。
改ページがそれにあたると思います
【7215】Re:サブフォームの行数
質問  ジュン  - 06/2/3(金) 10:48 -
引用なし
パスワード
   ▼ふくちゃん さん：
>たしか改ページをどうするかって、指定できましたよね。
>ヘッダーかフッダーのどちらかをプロパティで変更してみてください。
>改ページがそれにあたると思います

早速のご返事ありがとうございます。

ACCESSの初心者のため、フォームで改ページを指定する意味がわかりません。

質問の仕方が悪かったと思いますが、５行分の入力が終了したかどうかの判定をどのようにコード化するかが分かりません。（問題２）

もう１つ教えて頂きたいのは　各行ごとに出荷数量があり、変更入力したらその行の背景色を変えたいのです。

色々質問をして申しわけありませんがよろしくお願いします。
【7219】Re:サブフォームの行数
回答  クロ  - 06/2/3(金) 13:18 -
引用なし
パスワード
   こんにちは、クロです。


>問題1.：該当件数が5件の場合に５行分のデータとプラス最終行に空白の行が表示されます。
>　　　　空白行を表示しない方法がわかりません。

単純にサブフォームのプロパティの「追加の許可」を「いいえ」でいいと思いますが
どうでしょうか？


>問題2.：５行分の入力が終わればメインフォームの印刷コマンドボタンにフォーカスを移動したいのですが、マウスを使わずに５行目の入力終了後にフォーカスの移動をしたいのでが、その方法がわかりません。

最後の入力コントロールのフォーカス喪失時で
カレントレコードとレコードセットのレコードカウントが一致していたら
メインフォームの特定コントロールに戻るではどうでしょうか？

If Me.CurrentRecord = Me.Recordset.RecordCount Then
　 Me.Parent.戻りたいメインフォームのコントロール名.SetFocus
End If

みたいな感じて…
【7221】Re:サブフォームの行数
お礼  ジュン  - 06/2/3(金) 14:43 -
引用なし
パスワード
   クロさん

　ありがとうございました。上手く出来ました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1429 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081152
(SS)C-BOARD v3.8 is Free