Access VBA質問箱 IV

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

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


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

399 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【5214】Re:エラー番号

ひろのしま

- 05/6/2(木) 12:48 -


	引用なし

	パスワード

>トランザクション処理を開始する前（処理１）でエラーが出て
>Rollbackしようとしている
>又は、
>RollbackかCommitされた後（処理３か処理４）でエラーが出て
>Rollbackしようとしている
>のではないでしょうか・・・
返信が遅れてすみません。
実は、そのコマンドは一切使用していません。
原因が今一把握できないままでお客さんは今別処理を実行中です。
回答ありがとうございました。

・ツリー全体表示


	【5213】Re:データシート表示で、上にボタン表示は?

小僧 - 05/6/2(木) 12:02 -


	引用なし

	パスワード

▼サチチさん：
こんにちは。

>このF_一覧のレポートをそのまま印刷したいのですが、どの様にすればいいので
>しょうか?

Private Sub 印刷ボタン_Click()
　　Dim stDocName As String
　　Dim MyForm As Form

　　stDocName = "F_一覧"
　　Set MyForm = Screen.ActiveForm
　　
　　DoCmd.SelectObject acForm, stDocName, True
　　DoCmd.PrintOut
　　DoCmd.SelectObject acForm, MyForm.Name, False

End Sub

>それと、ボタンで、このデータシートで作成したF_一覧に飛ぶようにしたら、
>今度は、開くとデザインで開いてしまいます。

こちらは

Private Sub 開く_Click()
　　DoCmd.OpenForm "F_一覧", acPreview
End Sub

こんな感じでどうでしょうか？

・ツリー全体表示


	【5212】Re:データシート表示で、上にボタン表示は?

サチチ - 05/6/2(木) 11:08 -


	引用なし

	パスワード

▼小僧さん：

こんにちは!昨日、サブシートで表示とし、ボタンを上に作る!
という件で、OKなのですが、本日1つ問題?が・・・。

そのデータを印刷したいのですが、元はフォーム、F_一覧をデータシート
で作成し、F_一覧表示で、サブシートで表示させてます。
このF_一覧のレポートをそのまま印刷したいのですが、どの様にすればいいので
しょうか?
今現在、印刷を押すと、そのままフォームごとの印刷になってしまいます。

レポートで作成しないとダメですかね?
エクセルの様に、セルがあった方がみやすいので、ただ、これが印刷したいなー
と思ったのです。

それと、ボタンで、このデータシートで作成したF_一覧に飛ぶようにしたら、
今度は、開くとデザインで開いてしまいます。
これが、データシートで開けるなら、ただ単に印刷すればいいので・・・と
思ったので～。何かいい方法はありませんか?

・ツリー全体表示


	【5211】Re:フォーム作成

バリュー - 05/6/2(木) 11:02 -


	引用なし

	パスワード

▼小僧さん：
返信誠にありがとうございます。

教えて頂いた事早速やってみます。

そこでお恥ずかしながら、、、
「_(アンダースコア)」はどういうふうにキーボード操作したら良いでしょうか？

・ツリー全体表示


	【5210】Re:フォーム作成

小僧 - 05/6/2(木) 10:39 -


	引用なし

	パスワード

▼バリューさん：
おはようございます。

>>1)
>一画面上で実現できないなら二画面（検索画面と入力画面）に分けても良い
>という指示もあったのですが、
>二画面に分けたら、同じ項目を使用しても構いませんか？

ここまでヘッダーを検索用に使うという前提でやってきたのでこのまま行きましょう。
もちろん別フォームやサブフォームという手段もありますが、コントロールの指定の
やり方が多少複雑になるので、まずは１つのフォームで…。

ヘッダー部と詳細部のコントロールを区別する（人間もAccessも）ために、
ヘッダー部のコントロール名は全て「検索_(アンダースコア)」をつけてみましょう。
例）
発行日　　　テキストボックス
　　　　　　↓
検索_発行日　テキストボックス

>>2)
>範囲指定にさせたいです。
>テーブルに項目を追加して作成した方が良いでしょうか

テーブルを変更する必要はないのですが、検索する際のテキストボックスが２つ
必要になりますよね？　という事で

検索_開始日　　テキストボックス
検索_終了日　　テキストボックス

でいかがでしょうか。

>>3)
>詳細部のコンボボックスは他テーブルから表示させる形式のものなのですが、
>（入力する時の作業を軽くする為に他テーブルから表示、選択するようにして欲しい
>という指示があったので）
>よろしくなかったでしょうか？

コンボボックスでも可能ですね。

ヘッダー部のコントロールが
>>検索_開始日　　テキストボックス
>>検索_終了日　　テキストボックス
>>検索_実行　　　コマンドボタン
>>検索_発生場所　コンボボックス
>>検索_是正先　　コンボボックス
>>検索_不具合　　コンボボックス

として検索_実行ボタンのクリックのコードビルダに以下のコードで試してください。

Private Sub 検索_実行_Click()
'開始日と終了日が空だった場合は実行させません
　　If IsNull(Me.検索_開始日.Value) Or IsNull(Me.検索_終了日.Value) Then
　　　　MsgBox "開始日と終了日を入れて下さい"
　　　　Exit Sub
　　End If

'開始日と終了日が日付型でなかった場合は実行させません
　　If Not IsDate(Me.検索_開始日.Value) Or Not IsDate(Me.検索_終了日.Value) Then
　　　　MsgBox "開始日と終了日を正しく入力して下さい"
　　　　Exit Sub
　　End If

'発生場所・是正先・不具合のコンボボックスを空にします
　　Me.検索_発生場所.Value = ""
　　Me.検索_是正先.Value = ""
　　Me.検索_不具合.Value = ""

'日付でフィルタを掛けます
　　Me.Filter = _
　　　　"[発行日] Between #" & Me.検索_開始日.Value & "# AND #" _
　　　　　　　　　　　　　　 & Me.検索_終了日.Value & "#"
　　Me.FilterOn = True
　　
'発生場所・是正先・不具合のコンボボックスの値集合ソースを設定します
　　Me.検索_発生場所.RowSource = _
　　　　"SELECT 発生場所 FROM テーブルA " _
　　　& "WHERE 発行日 Between #" & Me.検索_開始日.Value & "# AND #" _
　　　　　　　　　　　　　　　　 & Me.検索_終了日.Value & "#"
End Sub

・ツリー全体表示


	【5209】Re:フォーム作成

バリュー - 05/6/2(木) 9:58 -


	引用なし

	パスワード

▼小僧さん：
おはようございます。
よろしくお願いします。

>３つほど提案・質問があります。
>>>＜＜＜＜＜＜＜＜ヘッダー部＞＞＞＞＞＞＞＞＞
>>発行日　　　　　　　テキストボックス
>>次を検索　　　　　　コマンドボタン
>>発生場所　　　　　　コンボボックス
>>是正先　　　　　　　コンボボックス
>>不具合内容　　　　　コンボボックス
>>>＜＜＜＜＜＜＜＜詳細部＞＞＞＞＞＞＞＞＞＞＞＞
>>発行日　　　　　　テキストボックス
>>発生場所　　　　　コンボボックス
>>是正先　　　　　　コンボボックス
>>不具合内容　　　　コンボボックス　　　　その他いろいろ、です。
>1) ヘッダー部と詳細部のコントロールの名前（発生場所、是正先など）が
>　一緒だとエラーになりませんか？
じつは、詳細部の項目はまだ設定していない状態です。
上記のヘッダー部へ詳細部から移動させて配置した後に、
入力画面となる詳細部にもヘッダー部にある項目が必要だから配置するように指示があったので
これから配置するところでした。

一画面上で実現できないなら二画面（検索画面と入力画面）に分けても良い
という指示もあったのですが、
二画面に分けたら、同じ項目を使用しても構いませんか？

>2) 検索に使う発行日は範囲指定(開始～終了)でなくてよいですか？
範囲指定にさせたいです。

テーブルに項目を追加して作成した方が良いでしょうか？

>3) 詳細部はコンボボックスでなくテキストボックスの方が良いと思われます。
詳細部のコンボボックスは他テーブルから表示させる形式のものなのですが、
（入力する時の作業を軽くする為に他テーブルから表示、選択するようにして欲しい
という指示があったので）
よろしくなかったでしょうか？

・ツリー全体表示


	【5208】Re:Excelへのエキスポート

小僧 - 05/6/2(木) 8:53 -


	引用なし

	パスワード

▼smith さん：
おはようございます。

>フィールド名の表示ができなくなっちゃったけど・・・

　　For Cnt = 1 To RS.Fields.Count
　　　　xlSheet.Cells(1, Cnt).Value = RS.Fields(Cnt - 1).Name
　　Next

　　xlSheet.Range("A2").CopyFromRecordset RS

蛇足ですが…。

・ツリー全体表示


	【5207】Re:フィルタープロパティーでの抽出（複数...

しん - 05/6/2(木) 8:05 -


	引用なし

	パスワード

たんさん
厳しいご指摘ありがとうございます。
書物等でも勉強するのですが、なかなか。
複数組み合わさってくるとよく分からなくなるのですよ。
””、＆、＊、''、etc・・・
勉強します。

・ツリー全体表示


	【5206】Re:テーブルの差分計算

初心者です - 05/6/1(水) 23:07 -


	引用なし

	パスワード

できました！
うれしいです。

・ツリー全体表示


	【5205】Re:Excelへのエキスポート

smith

- 05/6/1(水) 18:29 -


	引用なし

	パスワード

VBAのヘルプに載っていました。OutputToと違い、フィールド名の表示ができなくなっちゃったけど・・・
まあ地道に一個ずつフィールド名をコードに書きます。
ありがとうございました。

・ツリー全体表示


	【5204】Re:フォーム作成

小僧 - 05/6/1(水) 17:31 -


	引用なし

	パスワード

▼バリューさん：
こんにちは。

３つほど提案・質問があります。

>>＜＜＜＜＜＜＜＜ヘッダー部＞＞＞＞＞＞＞＞＞
>発行日　　　　　　　テキストボックス
>次を検索　　　　　　コマンドボタン
>発生場所　　　　　　コンボボックス
>是正先　　　　　　　コンボボックス
>不具合内容　　　　　コンボボックス
>
>
>>＜＜＜＜＜＜＜＜詳細部＞＞＞＞＞＞＞＞＞＞＞＞
>発行日　　　　　　テキストボックス
>発生場所　　　　　コンボボックス
>是正先　　　　　　コンボボックス
>不具合内容　　　　コンボボックス　　　　その他いろいろ、です。

1) ヘッダー部と詳細部のコントロールの名前（発生場所、是正先など）が
　一緒だとエラーになりませんか？

2) 検索に使う発行日は範囲指定(開始～終了)でなくてよいですか？

3) 詳細部はコンボボックスでなくテキストボックスの方が良いと思われます。

・ツリー全体表示


	【5203】Re:Excelへのエキスポート

小僧 - 05/6/1(水) 17:09 -


	引用なし

	パスワード

▼smith さん：
こんにちは。

Excelのオートメーション処理をなさっているのであれば、
Excel側の命令に「CopyFromRecordset」という便利な命令があります。

ExcelVBAのヘルプに載っていますので是非参照してください。
ヘルプを見て解らないようでしたら再度ご質問ください。

・ツリー全体表示


	【5202】Re:フォーム作成

バリュー - 05/6/1(水) 16:58 -


	引用なし

	パスワード

▼小僧さん：
度々すみません。
本当に助かります。

ヘッダー部・・・検索する時に必要な項目を設置
詳細部・・・・・・入力する時に必要な項目を設置

という指示のもと配置した次第です。

>＜＜＜＜＜＜＜＜ヘッダー部＞＞＞＞＞＞＞＞＞
>コントロール名　　コントロールタイプ
>開始日ボックス　　　テキストボックス
>　　　・　　　　　　　　　　・
>　　　・　　　　　　　　　　・
>　　　・　　　　　　　　　　・

発行日　　　　　　　テキストボックス
次を検索　　　　　　コマンドボタン
発生場所　　　　　　コンボボックス
是正先　　　　　　　コンボボックス
不具合内容　　　　　コンボボックス

>＜＜＜＜＜＜＜＜詳細部＞＞＞＞＞＞＞＞＞＞＞＞
>コントロール名　　コントロールタイプ
>発行日　　　　　　テキストボックス
>　　　・　　　　　　　　　　・
>　　　・　　　　　　　　　　・

発行日　　　　　　テキストボックス
発生場所　　　　　コンボボックス
是正先　　　　　　コンボボックス
不具合内容　　　　コンボボックス　　　　その他いろいろ、です。

なお、フッター部は何もない状態です。

よろしくお願いします。

・ツリー全体表示


	【5201】Re:データシート表示で、上にボタン表示は?

サチチ - 05/6/1(水) 16:16 -


	引用なし

	パスワード

▼小僧さん：

おぉぉぉ～。なるほど!!出来ました!十分OKです。その頭の柔軟さが
ないので・・、とても助かります。
ありがとうございました!!

・ツリー全体表示


	【5200】Excelへのエキスポート

smith

- 05/6/1(水) 16:01 -


	引用なし

	パスワード

テーブルをエクセルへエキスポートしたいのですが、セルを色分けしたいので
OutPutToやTransfarSpreadsheetが使えないのです。
以下のコードを書いたのですが

Dim xlapp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

With xlSheet
　　　 .Range(.Cells(1, 2), .Cells(1, 5)).Select
　　　 .Application.Selection.Interior.ColorIndex = 36
　　　
End With

上記は新規Excelシートのセルに色をつけるものですが、
肝心の出力するテーブル名を書く方法がわからないのです。

またはOutPutToやTransfarSpreadsheetでセルに色をつけられてもいいのですが・・・
よろしくお願いします。

・ツリー全体表示


	【5199】Re:データシート表示で、上にボタン表示は?

小僧 - 05/6/1(水) 15:49 -


	引用なし

	パスワード

▼サチチさん：
こんにちは。

直接の回答ではないのですが…。

データシートビューで表示させたフォームをサブフォームとして、
メインフォームにボタン等を配置してみてはいかがでしょうか？

・ツリー全体表示


	【5198】Re:テーブルの差分計算

初心者です - 05/6/1(水) 15:31 -


	引用なし

	パスワード

やってみました。なんか違うような気がします。

テーブルＡ
コード　　　　名称
A　　　　　　 AAA
B　　　　　　 BBB
C　　　　　　 CCC

テーブルＢ　（マスタ）
コード　　　　名称
A　　　　　　 AAA
B　　　　　　 BBB
C　　　　　　 CCC
D　　　　　　　DDD
E　　　　　　 EEE

以下の結果を求めたいです。
使用していないコードは
コード　　　　名称
D　　　　　　　DDD
E　　　　　　 EEE

　　　　

・ツリー全体表示


	【5197】Re:フォーム作成

小僧 - 05/6/1(水) 15:27 -


	引用なし

	パスワード

▼バリューさん：
ツリー形式で見ると右にずれてしましましたので、
左に戻します…。

現在、バリューさんの作っているフォームと当方のフォームに
ずれが出て来てしまっていますので、

＜＜＜＜＜＜＜＜ヘッダー部＞＞＞＞＞＞＞＞＞
コントロール名　　コントロールタイプ
開始日ボックス　　　テキストボックス
　　　・　　　　　　　　　　・
　　　・　　　　　　　　　　・
　　　・　　　　　　　　　　・

＜＜＜＜＜＜＜＜詳細部＞＞＞＞＞＞＞＞＞＞＞＞
コントロール名　　コントロールタイプ
発行日　　　　　　テキストボックス
　　　・　　　　　　　　　　・
　　　・　　　　　　　　　　・
　　　・　　　　　　　　　　・

のように、現在どのようなコントロールをフォーム上に設置したかを
教えていただけるとありがたいです。

・ツリー全体表示


	【5196】データシート表示で、上にボタン表示は?

サチチ - 05/6/1(水) 14:38 -


	引用なし

	パスワード

一覧が分る様に、データシートでもフォームを作成しています。
その際に、上に(ヘッター部分)ボタンを表示させたいのです。
デザイン表示だと、出来るのですが、データシートでの
ボタン表示は出来ないでしょうか?
出っ放しで、×を押すのでなく、戻るボタンなどを作成したいのです。

感じは、(ヘッター)ボタン、(詳細)データシートの一覧といった感じです。

・ツリー全体表示


	【5195】Re:フォーム作成

バリュー - 05/6/1(水) 14:34 -


	引用なし

	パスワード

▼小僧さん：
返信誠にありがとうございます。

>検索用に使用するので、非連結（コントロールソースを空）にして下さい。
>「詳細」にテーブルと連結されたテキストボックスを配置してみて下さい。

やってみましたが、同じエラーがでてしまいました。。

他にご指摘頂けませんでしょうか？

・ツリー全体表示


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

399 / 500 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free