Accessのレポート上のテキストボックス値を設定したい

解決済

質問者：hoge--
質問日時：2006/08/21 16:26
回答数：1件

AccessのVBAを使っているのですが、作成したレポートに貼り付けたテキストボックスに値を入れることができません。

Report名.textbox名 = "設定したいデータ"

↑とすると「このオブジェクトに値を代入することはできません。」とエラーメッセージが出ます。
どのようにすれば、値を代入することができるのか教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「値設定」に関するQ&A：カメラで絞り値の設定について

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： noname#22222
回答日時：2006/08/21 17:15

質問の意図が不明ですので、複数の回答を・・・。

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　Me.テキスト0 = "AAA"
End Sub

Private Sub コマンド0_Click()
　　DoCmd.OpenReport "レポート1", acViewDesign
　　Reports("レポート1").Controls("ラベル0").Caption = "AAA"
　　DoCmd.Close acReport, "レポート1", acSaveYes
End Sub

前者は、テキストボックスにレポートを表示、印刷する際に"AAA"を代入しています。
後者は、テキストボックスではなくラベルコントロールを利用して"AAA"をフォームのコマンドボタンで代入しています。

- 1
- 件

通報する

この回答へのお礼

上手く質問できずに申し訳ございませんでした。

ラベルコントロールを利用する方法を試してみたところ、思うように表示することができました。
どうもありがとうございます。

通報する

お礼日時：2006/08/21 17:32

このQ&Aに関連する人気のQ&A

「値設定」に関するQ&A： Wordのデフォルト設定を初期値に戻したい

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QAccessのRefresh・Requery・Repaintの違い

Requeryはもう一度ソースレコード（テーブル）を読み込むようです。このとき、テーブルの先頭レコードに移動してしまいます。
Refreshは最新のレコード（テーブル）を再表示するような気がします。レコードの移動は起こらない気がします。
Repaintは、VBAでキャプションなどを変更したとき使っています。
でも、よくわかっていません。
どんなときにどんなメソッドを使えばいいのでしょうか？
詳しい方、よろしくお願いいたします。

Aベストアンサー

たびたびすみません。
調べてたらこんなのがでてきました。
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

参考URL：http://www.nurs.or.jp/~ppoy/access/access/acF007.html

他の回答も見る

Q【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには

バージョン：Access2002

フォーム「frm01」にテキストボックス「tb01」が作ってある場合、
Forms.frm01.tb01.Value="あいう"
とすれば、フォームもコントロールも指定できるのですが、
Dim strTxt As String
strTxt = "tb01"
Forms.frm01.strTxt.Value="あいう"
だと、文字列型変数"strTxt"が展開されないのでフォーム「frm01」のコントロール「strTxt」を探してしまいエラーになってしまいます。

文字列型変数でフォームやコントロールを指定するには、どのようにすればよいのでしょうか？

Aベストアンサー

フォームの場合
　Forms(strFrm)

フォームのコントロールの場合
　Forms(strFrm).Controls(strTxt)

これでも参照できますが、普通ここまで省略しませんね。
　Forms(strFrm)(strTxt)

あとで見たとき、訳がわからなくなりそう。

他の回答も見る

QAccess サブフォームでの選択行の取得

こんにちは。

Access初心者です。

サブフォームでテーブルの項目を表示させていますが、
選択された行を取得する方法はありますか？
サボフォームの下の方に現在選択されているレコード数が表示されてますが、その値でかまいません。

調べているのですが、なかなか検討がつきません。
宜しくお願い致します。

Aベストアンサー

フォーム名がフォーム1、サブフォームコントロールの名前がサブフォーム1だとすると、

Forms!フォーム1!サブフォーム1.Form.CurrentRecord

で取得できます。
(「Forms」と「Form」がありますのでご注意下さい)

また、フォーム1にコードを記述する場合であれば

Me!サブフォーム1.Form.CurrentRecord

サブフォーム1へのコード記述であれば

Me.CurrentRecord

という構文によっても、それぞれ取得が可能です。

他の回答も見る

QAccessでテーブルの値をテキストボックスに代入するには？

[ID][文字列]の2つのフィールドからなる単純なテーブルがあり、削除クエリを併用して常に最新のデータしか格納されていない状態に工夫できました。（データは常に1つ）
そこでフォーム上にあるテキストボックスにこのテーブルの[文字列]フィールドのデータを表示させたいのですが、
どうしたらよいでしょうか？

また、このテーブルの[文字列]フィールドのデータを直接変数として使いたい場合はVBAでどのように記述すればよいのでしょうか？

Aベストアンサー

テーブルに"データは常に1つ"ならコントロールソースに
「=DLOOKUP("文字列のフィールド名","テーブル名")」
IDごとに"データは常に1つ"ならコントロールソースに
「=DLOOKUP("文字列のフィールド名","テーブル名","[ID]='" & Me.ID & "'")」

Dlookup関数のヘルプ
http://office.microsoft.com/ja-jp/assistance/HP010496551041.aspx

他の回答も見る

QAccessでレポートの項目をVBAで変更したい

Accessのレポートで年次集計を項目が可変になるため、VBAで書き換えるようにしたのですが、うまく出来ません。
お心当たりのかたいらっしゃいましたら教えて頂けないでしょうか。

フォームの概要（売上集計）
　　　　ＯＯ年　ＯＯ年　ＯＯ年
商品Ａ　1,000 2,000 3,000　
商品Ｂ 1,500 2,500 3,500
商品Ｃ 2,500 3,500 4,500
※年は可変です

次のようにするとフォームが開いていないと言ったエラーが出ます。
stDocName = "年別売上集計レポート"
Reports(stDocName).ラベル1.Caption...続きを読む

Aベストアンサー

今しがた思い返してみたのですが、
意図しているところを探ってみますと下のコードでもまずいと思います。

というのもOpenReport自体がレポートのロード命令であり、
acPreviewとacHiddenとは別のレポートだと思われるからです。
（同じレポートを連続で開こうとするとどうなるか分かりません）

Reports(stDocName).ラベル1.Caption = cstr(Year) + "年"
この一行をレポートのopen、ないしそれに該当するイベントに記述すれば
上記のことは回避できますし、
わざわざhiddenで開いてラベルをセットする必要もありません。

意図をはずしていたらご容赦を。

他の回答も見る

QAccessで別テーブルの値をフォームに表示したい

初めてのＡｃｃｅｓｓで分からない事があり質問させてください。

＜会社テーブル＞
会社ID
会社名
住所

＜社員テーブル＞
会社ＩＤ
社員名
ソート番号

＊1社に対し複数の社員レコードが存在

以上のようなテーブルがあるとします

現在「会社テーブル」を表形式で一覧表示しています
会社ＩＤ，会社名、住所とフィールドが並んでいるのですが、その後ろに「社員テーブル」のソート番号が一番若い社員名を表示したいと考えています（現状は番号関係なく表示させる方法すら分かりません）

色々いじくりまわしたのですが、初めてＡｃｃｅｓｓをさわる事もあってよくわかりません

リレーション等でひっぱってくる事ができるのでしょうか？

どなたか教えて頂けませんでしょうか

何卒よろしくお願い致します

ＰＳ．Ａｃｃｅｓｓ2013で作成中です

Aベストアンサー

単純にテーブル[会社]のみでフォームを作成し、社員表示用テキストボックスを追加。そして、そのプロパティを表示し

コントロールソース=DBLookup("SELECT 社員名 FROM 社員 WHERE 会社ID=" & [会社ID] & " ORDER BY ソート番号")

これは、以下の標準モジュールに登録したユーザ関数 DBLookup()を使っています。これで、クエリを用意しなくても目的を達成できます。

さて、かかるユーザ関数を標準ライブラリに登録したくない場合、

１、"社員ソートクエリ"を作成します。

SELECT 社員.会社ID, 社員.社員名
FROM 社員
ORDER BY 社員.ソート番号;

２、コントロールソースに次のように書きます。

=DLookUp("社員名","社員ソートクエリ","会社ID=" & [会社ID])

http://office.microsoft.com/ja-jp/access-help/HA001228825.aspx

DLookup()については、マイクロソフトの解説を参照されてください。

【DLookup()の限界を破るにはVBAで同じ関数を作るしかない】

マイクロソフトの解説を読めば判りますが、ORDER BY 節を指定する引数が用意されていません。ですから、どうしても、"社員ソートクエリ"を作成するという手間が必要となります。そこで、SQL文を引数とするDBLookup()をVBAで書けば、その手間を省けるという算段になります。この辺りは、好みと趣味の問題。どっちでも良いと思います。そういうお断りをした上で DBLookup()を紹介しておきます。なお、ADOは、つぎのように参照設定しないと利用できません。

http://www.happy2-island.com/access/gogo03/capter00307.shtml

Public Function DBLookup(ByVal strQuerySQL As String, _
　　　　　　　　　　　　　Optional ByVal ReturnValue = Null) As Variant
On Error GoTo Err_DBLookup
　　Dim DataValue
　　Dim rst　　　　 As ADODB.Recordset

　　Set rst = New ADODB.Recordset
　　With rst
　　　　.Open strQuerySQL, _
　　　　　　　CurrentProject.Connection, _
　　　　　　　adOpenStatic, _
　　　　　　　adLockReadOnly
　　　　If Not .BOF Then
　　　　　　.MoveFirst
　　　　　　DataValue = .Fields(0)
　　　　End If
　　End With
Exit_DBLookup:
On Error Resume Next
　　rst.Close
　　Set rst = Nothing
　　DBLookup = IIf(Len(DataValue & ""), DataValue, ReturnValue)
　　Exit Function
Err_DBLookup:
　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _
　　　　　 "・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　 "・SQL Text=" & strQuerySQL, _
　　　　　 vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_DBLookup
End Function

他の回答も見る

Qテキストボックスにクエリ結果を表示させたい

フォームにテキストボックスＡがあり、そこに入力した文字（下記テーブルのフィールド１の文字）をクエリーの「抽出条件」にし、同じフォーム上のテキストボックスＢに表示しようと思っています。

クエリを開くとパラメータの入力を求めてきて、入力するとうまく抽出されます。

テーブルは
フィールド１｜フィールド２
　　Ａ　　　｜　　１０
　　Ｂ　　　｜　　２０
　　Ｃ　　　｜　　３０
　　Ｄ　　　｜　　４０
のような簡単なものです。

テキストボックスＢのコントロールソースに
「=[○×クエリ]![フィールド２]とやっても「#Name?」と表示されてしまいます。

どのようにやればよいのでしょうか？

Aベストアンサー

クエリは必要ありません。

フォームのレコードソースに無いデータを表示させる
場合には DLookUp を使います。

テキストボックスＢのコントロールソースに
=DLookUp("フィールド２","テーブル名","フィールド１='" & [テキストボックスＡ]) & "'"

上記は「フィールド１」が文字列型の場合です。

数値型の場合は次のようになります。
=DLookUp("フィールド２","テーブル名","フィールド１=" & [テキストボックスＡ])

DLookUp 関数はコントロールソースに限らず
VBA でも使用し、Access では、非常に使用頻度の高いものです。

ヘルプで調べて、ぜひマスターしてください。

もし Access でなかったら、このレスは無視して下さい。

他の回答も見る

Qフォームを開くときに、コンボボックスの値を選択（アクセスVBA)

こんにちは。
アクセスVBAで、フォームを開いたとき
（フォームのOpenイベント）に、
コンボボックスの値を選択したいのですが、
どういう方法が、あるでしょうか。

理想は、
フォームのOpenないし、Loadイベント内で、
コンボ0.ItemData(2).Selected
と、書くような感じです。
（無論、Selectedは使えませんでした）。

よろしくお願いします。

Aベストアンサー

これでいいのかな？
※テキスト書きなので検証していません

If コンボ0.ListCount > 0 Then
　　コンボ0.Value = コンボ0.Column(0, 2)
End If

他の回答も見る

QAccessのレポート機能でソート＆抽出条件を指定したい

accessでレポート機能について、質問です。
エクセルでいうフィルタ機能みたいなものはあるのでしょうか。

例えば、以下の場合、職位="B"だけレポートで表示したい場合、
どうすればよいのでしょう？
CD　職位　所属
01　　A　東京
02　　B　東京　→　このデータだけを表示
03　　A　大阪

１）クエリを作って、レポートで表示するしかないのでしょうか？
２）レポートのデザインで条件指定ができるのでしょうか？

ソートの条件も変えたいのですが、どの項目をソートするかは、
どこで指定できるのでしょうか？

要はレポートの形式は１つで、様々な抽出条件とソート条件で
レポート表示したいのです。

Aベストアンサー

>１）クエリを作って、レポートで表示するしかないのでしょうか？
>２）レポートのデザインで条件指定ができるのでしょうか？
レポートのデザインで、レポートのフィルタプロパティで、職位="B"として、フィルタ適用を"はい"にすると言う方法もあります。

>ソートの条件も変えたいのですが、どの項目をソートするかは、
>どこで指定できるのでしょうか？
レポートのデザインの「並べ替え/グループ化の設定」で行います。

>要はレポートの形式は１つで、様々な抽出条件とソート条件で
>レポート表示した...続きを読む

他の回答も見る

QACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ

ACCESSで空白のデーターをクエリで判定/識別する方法を教えてください。
EXCELでは空白を""で判定/識別表していますがACCESSではどうなるのでしょうか。

下の例はフィールドに試験番号があればその番号を、空白なら”欠席”と表示しようとしています。
IIf(([試験番号]="空白の場合何を入れる？"),[試験番号],"欠席")

Aベストアンサー

もうひとつの書き方は
式1: IIf([試験番号] Is Not Null,[試験番号],"欠席")
第２、第３引数の、質問の順序にあわせるとこうなる。

他の回答も見る

ページトップ