Access VBA質問箱 IV

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

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


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

477 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


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

お初 - 04/9/30(木) 17:53 -


	引用なし

	パスワード

こんにちは。
分からない部分がありましたので、どなたかお教え下さい。

現在、宛名ラベル（スタックシール）６行２列の縦長で合計１２枚印刷できるタイプなのですが、特定の宛名だけ印刷できるようにしたいのですが、
どのようにしたらよろしいでしょうか？

現在、同じラベルを重複して印刷できるようにしてありますので、
その数字を「０」にしたらそのラベルは非表示で印刷されないようにしたいと思っておりますが、できるものなのでしょうか？

現在、入力フォームには郵便番号と住所と名前と枚数を入力する欄があります。
枚数に数字を入力するとその数だけ印刷するようになってます。
レポートの詳細のプロパティイベント印刷時で下記の用に記入してあります。

If Me.PrintCount < Me.枚数 Then
　 Me.NextRecord = False
End If

どなたかよろしくお願い致します。

・ツリー全体表示


	【3610】出来ました。

なお - 04/9/30(木) 16:51 -


	引用なし

	パスワード

ありがとうございます。
答えがマイナスになるから
一日分加えれば良かったのですね！

・ツリー全体表示


	【3609】Re:データ横並び３列のレポート出力

Gin_II - 04/9/30(木) 16:50 -


	引用なし

	パスワード

>データを以下のようなスタイルで印刷する方法はあるでしょうか。

レポートのウィザードで、「宛名ラベル」を作成してみてください。
次ページにうつるのは、余白を調整すれば大丈夫だと思います。

・ツリー全体表示


	【3608】データ横並び３列のレポート出力

土谷 - 04/9/30(木) 15:59 -


	引用なし

	パスワード

はじめまして。データを以下のようなスタイルで印刷する方法はあるでしょうか。

（データ例）
Ｎｏ　　氏名　　　　生年月日　　　趣味　　　
１　　鈴木ごんた　　ｓ46/9/5　　　読書　　　
２　　北村さすけ　　ｓ7/8/15　　　ゴルフ
３　　高橋おさむ　　ｓ35/4/7　　　ドライブ
４　　横山めぐみ　　ｓ48/7/7　　　ショッピング
５　　高村洋子　　　ｓ25/12/7　　　お花
６　　荒木たけし　　ｓ51/4/8　　　ゲーム

（レポート出力）
１　　　　　　　　２　　　　　　　　３
鈴木ごんた　　　　北村さすけ　　　　高橋おさむ　　
ｓ46/9/5　　　　　ｓ7/8/15　　　　　ｓ35/4/7
読書　　　　　　　ゴルフ　　　　　　ゴルフ

------------　次のページ　-------------------

４　　　　　　　　５　　　　　　　　６
横山めぐみ　　　　高村洋子　　　　　荒木たけし　　
ｓ48/7/7　　　　　ｓ25/12/7　　　　ｓ51/4/8　　
ショッピング　　　お花　　　　　　　ゲーム

------------　次のページ　-------------------

以上のように３列横で次のページに移るというやり方を
お教えください。

・ツリー全体表示


	【3607】Re:こっちの方がいいかも

クロ - 04/9/30(木) 15:05 -


	引用なし

	パスワード

DateDiff("n",[作業開始時間],[作業終了時間]+IIf([作業終了時間]<[作業開始時間],1,0))

・ツリー全体表示


	【3606】Re:日日をまたいだ時の時間の計算

クロ - 04/9/30(木) 14:57 -


	引用なし

	パスワード

跨ぐのが1日だけでいいのなら
DateDiff("n",[作業開始時間],[作業終了時間])+IIf([作業終了時間]<[作業開始時間],1440,0)
ではどうでしょうか？

・ツリー全体表示


	【3605】日日をまたいだ時の時間の計算

なお - 04/9/30(木) 14:48 -


	引用なし

	パスワード

ﾌｫｰﾑ上で"作業開始時間"と"作業終了時間"のテキストボックスを作って
時間の計算をさせたいと思っています。

作業結果時間テキストボックスに　

　=DateDiff("n",[作業開始時間],[作業終了時間])と　式を入れると

PM5時～PM7時は　120分と出るのですが、

PM11時～AM1時30分　-1290分になります。日日をまたいだ時に　150分にする方法

は無いでしょうか？

・ツリー全体表示


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

クロ - 04/9/30(木) 0:05 -


	引用なし

	パスワード

オプショングループのフレームの更新後処理のイベントに

Select Case Me.フレーム名
Case 1
　処理
　Me.テキストボックス名.Visible = True
Case 2
　処理
　Me.テキストボックス名.Visible = False
Case 3
　処理
　Me.テキストボックス名.Visible = False
Case 4
　処理
　Me.テキストボックス名.Visible = True
End Select

ではどうでしょうか？

・ツリー全体表示


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

天狗 - 04/9/29(水) 23:42 -


	引用なし

	パスワード

よろしくお願いします。
フォーム上にオプショングループ（オプションボタンは4つ）とテキストボックスを貼り付けてあります。オプションボタン1か4を選択した場合はテキストボックスは表示されていますが、2か3を選択した場合、テキストボックスがなくなる（見えなくする）方法を教えてください。

・ツリー全体表示


	【3602】同一ページでレコードに段落をつけるには？

なんばん - 04/9/29(水) 18:40 -


	引用なし

	パスワード

レポート印刷で、ＡＣＣＥＳＳ９７⇒ＡＣＣＥＳＳ２０００にデータ変換をしたらいまくいきません。同一ページ内で下記のように表現したいのですが、どうしても一列になって、右側半分が空白になって次のページになってしまいます。どのようにしたらよいのか、どなたか教えて頂けませんでしょうか？　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿｜　　　　　　　　　　　　　　　　　　　　　　　　｜｜　商品名　　金額　　　｜　商品名　　金額　　　　｜｜　カレー　　５００円　｜うどん　　２５０円　　　｜｜　チョコ　　５２５円　｜あめ玉　　２００円　　　｜｜　うずら　　６００円　｜めだか　　１００円　　　｜｜　合計　　１６２５円　｜合計　　　５５０円　　　｜　－－－－－－－－－－－－－－－－－－－－－－－－

・ツリー全体表示


	【3601】Re:仮想メモリのエラーについて

wakasama - 04/9/29(水) 9:15 -


	引用なし

	パスワード

回答ありがとうございます。
NTFSにファイルシステムを変更してみましたが、やはりエラーが
でてしまいます。何か他に方法はあるのでしょうか？

・ツリー全体表示


	【3600】Re:仮想メモリのエラーについて

Gin_II - 04/9/28(火) 20:10 -


	引用なし

	パスワード

>インストール時以外にファイルシステムをNTFSに変える方法は、
>あるのでしょうか？

FAT ディスクを NTFS に変換する方法
http://www.microsoft.com/japan/windowsxp/pro/using/itpro/managing/convertfat.asp

こちらを確認してください。

・ツリー全体表示


	【3599】Re:連結フォームでの追加レコード

ぷー - 04/9/28(火) 17:59 -


	引用なし

	パスワード

できました～！！！

クロさん、ありがとうございました。
なんとお礼を申してよいやら・・・
本当に助かりました。
ありがとうございました。

・ツリー全体表示


	【3598】Re:連結フォームでの追加レコード

クロ - 04/9/28(火) 17:08 -


	引用なし

	パスワード

Private Sub 次へ_Click()
Dim str As Long
str = Me.キーコード
　　If Me.CurrentRecord = Me.Recordset.RecordCount Then
　　　 MsgBox "次のレコードはありません"
　　ElseIf Me.NewRecord = True Then
　　　 Me.Requery
　　　 DoCmd.FindRecord str
　　　 Me.リストボックス名.Requery
　　Else
　　　 DoCmd.GoToRecord , , acNext
　　End If
End Sub

こんな感じでしょうか？

・ツリー全体表示


	【3597】Re:連結フォームでの追加レコード

ぷー - 04/9/28(火) 16:29 -


	引用なし

	パスワード

ありがとうございます。
おかげさまで並べ替えと追加レコードをカレントレコードにするまでは、うまく行っているようですが、Private Sub Form_AfterInsert()のイベントを発生させるア
クションが、独自に作ったレコード移動ボタンで行っており、ここでエラーになってしまいます。
いろいろ試してみましたが、自分の知識では無理でした。
なにか、良い方法がないでしょうか？

Private Sub 次へ_Click()
　　If Me.CurrentRecord = Me.Recordset.RecordCount Then
　　　 MsgBox "次のレコードはありません"
　　Else
　　　 DoCmd.GoToRecord , , acNext　　<--- ここからPrivate Sub 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Form_AfterInsertへ
　　　　　　　　　　　　　　　　　　　　　戻ってきた時にエラー　　　
　　End If
End Sub

※Err：指定したレコードに移動できません

・ツリー全体表示


	【3596】Re:仮想メモリのエラーについて

wakasama - 04/9/28(火) 15:30 -


	引用なし

	パスワード

回答ありがとうございます。
さっそくファイルシステムを確認したところ、FAT32でした。
インストール時以外にファイルシステムをNTFSに変える方法は、
あるのでしょうか？

・ツリー全体表示


	【3595】Re:仮想メモリのエラーについて

こもれび - 04/9/28(火) 13:26 -


	引用なし

	パスワード

こもれびです

次の記事が参考になるかもしれません

http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=9446&forum=7

DAOでもADOでもAccessの場合mdbそれ自体が風船のように膨れ上がります。
しかもFAT32だとなおさら顕著になる…
問題はWindowsのファイルシステムとの連携にあるようです。

問題のマシンのファイルシステムがFAT32であるかNTFSであるかはわかりますでしょうか。

・ツリー全体表示


	【3594】Re:仮想メモリのエラーについて

wakasama - 04/9/28(火) 12:50 -


	引用なし

	パスワード

さっそくの回答ありがとうございます。
まったくその通りです。
Set dbs = Nothing を使っていてもエラーがでてしまうんです。
これは、OSとAccessの相性なんでしょうか？
もしかしてドライバとか･･･ちなみにPC(富士通ノート)購入時から、
ドライバは関係はさわっていません。

・ツリー全体表示


	【3593】Re:仮想メモリのエラーについて

Gin_II - 04/9/28(火) 11:53 -


	引用なし

	パスワード

>というエラーがAccess2003でDAOを使ってDBオープンを数百回繰り返すと
>発生します。

DBを何百個も開くのでしょうか？？
また、そうであれば、Set dbs = Nothing とかを毎回入れても同じ症状が
でますか？？

・ツリー全体表示


	【3592】仮想メモリのエラーについて

wakasama - 04/9/28(火) 11:41 -


	引用なし

	パスワード

「Windows - 仮想メモリ最小値が低すぎます :
システムの仮想メモリがなくなって来ています。
仮想メモリページファイルのサイズを増やしています。
この処理の間、いくつかのアプリケーションのメモリ要求が拒否されることがあります。」
というエラーがAccess2003でDAOを使ってDBオープンを数百回繰り返すと
発生します。
OS：Windows2000 SP4

回避方法がわかる方、よろしくお願いします。

・ツリー全体表示


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

477 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free