- ベストアンサー
フォームのテキストボックスの値が空白の時
現在 フォームのテキストボックスに入れた値をレポートのテキストボックスに表現していますが 例えば フォームのテキストボックスの値 を1とした時 レポートの値 １月分 と表示しています フォームのテキストボックス値が空白の時にレポートの値も 空白にしたいのです 現在のままですと 月分 の文字だけが残ってしまいます 何方かご指南ください 使用環境は Windows10 Office2019です よろしくお願い致します
- tom2011
- お礼率14% (15/103)
- Access（アクセス）
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
> レポートのテキストボックスのコントロールソースに =[Forms]![フォーム1]![月数] & "月分" として表示させています ソースを =[Forms]![フォーム1]![月数] として 書式を &"月分" としてみたらいかがですか。
その他の回答 (1)
- kkkkkm
- ベストアンサー率65% (1615/2454)
詳細に「月分」という名前のラベルに月分と記載している場合でテキストボックスが「月」とした場合 レポートの詳細でフォーマット時のイベントプロシージャ(コードビルダー)で Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) If IsNull(Me.月) = True Then Me.月分.Visible = False Else Me.月分.Visible = True End If End Sub としていればレポートビューでは表示されますが印刷プレビューで見ると非表示になっています。
補足
現在は レポートのテキストボックスのコントロールソースに =[Forms]![フォーム1]![月数] & "月分" として表示させています
関連するQ&A
- アクセスでテキストボックスの値が空白だったら
お世話になっております。 フォームのテキストボックスの値が0か空白だったら、レポート上に表示されるものを変えたいのですが、うまくいきません。 If [Forms]![フォーム1]![テキストボックス1].value = 0 Or [Forms]![フォーム1]![テキストボックス1].value = "" Then Me![レポート上のテキストボックス] = "無" Else [Forms]![フォーム1]![レポート上のテキストボックス1] = [Forms]![フォーム1]![テキストボックス1] & "ヶ月" End If これだと何も入っていないときに"ヶ月"と表示されてしまいます。どのように書けばよいのでしょうか？ ご教授願えませんでしょうか？
- ベストアンサー
- オフィス系ソフト
- テキストボックスなら空白にする
フォームにテキストボックス２つとコンボボックス２つを設置して、 規定値に値を設定し、 Private Sub cb_テキストボックスなら空白にする_Click() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = Empty End If Next ctl End Sub としたのですが何も起こりません。 空白にするにはどうすればいいでしょうか？ あと、 ctl.Valueと打つ時に、 ドットの後に、Valueが一覧に出てきませんでした。 それが原因で空白にならないのでしょうか？ ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- フォーム上のテキストボックスの値を変更させない方法って？
アクセス2000を使っています。 フォーム上にテキストボックスを作成して、テーブル の値を表示しています。 VBAでこのテキストボックスの値が１の時は, me!txt.enabled=true（テキストボックスが開く） 0の時は、me!txt.enabled=false（テキストボックスがグレーアウト）というようにさせたいのです。さらにこのテキストボックスの値を変更できないようにしたいのですが方法はありますか？ 要は、表示だけさせたいのです。 プロパティで値ロックするとenableが利かなくなります。 よろしくお願いいたします
- 締切済み
- オフィス系ソフト
- レポートのテキストボックスには規定値がないのでし
レポートのテキストボックスには規定値がないのでしょうか？ フォームではフォーム上にテキストボックスを設置して規定値に文字を入れれば フォームビューの時に入力した文字が表示されますが、 レポートではページヘッダーにテキストボックスの設置まではできますが プロパティを見ても「規定値」と言う項目がありません。 レポートを開いて印刷する時にＶＢＡで Report_R受領確認書.担当者名テキスト = 名前 とやりたいのですが、エラーになってしまいます。 なので、直接テキストボックスの規定値に名前を入れてしまおうと思ったのですがそれも見つかりません。 テキストボックスではなく、ラベルを使って行うしかないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- テキストボックスが空白の時、セルに入力"しない"
ユーザーフォームにて、テキストボックスに入力されている文字や数字をユーザーフォーム内の"入力開始ボタン"を押したら、セル(A1)に入力されるように設定しています。 しかし、別のセル(C1)に A1 × B1 ＝ X という式が入力されており、テキストボックスが空白の状態で入力開始ボタンを押したら、セル(A1)に文字が打ち込まれたとカウントするのか、正しく計算できなくなります(A1を選択してデリートするとXに正しく0と表示されます）。 そこで、テキストボックスに文字か数字が打ち込まれている時のみセル(A1)に入力されるようにしたいのですが、回答宜しくお願いします。
- ベストアンサー
- Visual Basic
- フォームのテキストボックスが空白なら"*"を入力する
「フォームのテキストボックスが空白なら"*"を入力する」 としたいのですが If Form.承認者テキスト.Value = "" Then Form.承認者テキト.Value = "*" だと承認者テキストでも"*"が入力されません。 Form.承認者テキスト.Value = Null としてもできません。どうすればいいのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- フォームのテキストボックスの値をコピーしたい
excel-vba初心者です。教えてください。 フォームのテキストボックスで表示した値を コマンドボタンでコピーするにはどうすればいいですか？
- 締切済み
- オフィス系ソフト
- テキストボックスの値をセルに反映させたい。
はじめまして、いつもお世話になっております。 EXCEL VBAの質問です。 下記(1)(2)の質問にお答えいただきたく、お願いいたします。 (1)ユーザーフォームのテキストボックスの値をEXCELのデータが入力されている 最終行の下の空白にユーザーフォームのボタンをクリックして反映。 (2)(1)の逆で特定のセルの値をユーザーフォームのテキストボックスに反映。 色々なサイトのプロシージャをコピペしましたが、うまくいきません。 見づらいかもしれませんが、ユーザーフォームの画像を添付します。 皆様、よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- テキストボックスフォームフィールドについて
稟議書のテンプレートを作るのに、テキストボックスフォームフィールドのabボタンを使って入力フォーマットを作ってくれと言われて、ワードの本などでテキストボックスフォームフィールドを調べていますが、本にも、なかなか載っていなくて・・・フォームをダブルクリックすると、ダイアログボックスが出て、既定の文字列などでてきますが、入力してもらう時は、それぞれ、ダブルクリック後ダイアログボックスの既定の文字列に入力してもらうのでしょうか？いまいち使い方がよくわかりません。この機能を使うと、マルマル年マルマル月マルマル日などの年 月 日 がずれずに、入力できるそうなのですが、どのようにａbボタンを使い フォームを使って、テンプレートを作り、第三者が入力していけばいいのでしょうか？教えてください。
- 締切済み
- オフィス系ソフト
- 「Form_フォーム1.テキスト1.Value = "" 」がうまくいかない。
VBAについての質問です。（オフィス2003） フォーム１にテキストボックス1を作成しました。 Module1に Sub test() If Form_フォーム1.テキスト1.Value = "" Then MsgBox "空白です" End If End Sub とコードを書き、テキストボックス1を空白の状態でtestを実行しても何も起こりません。 F8で一行づつ実行してみてみたら Form_フォーム1.テキスト1.Valueのところにカーソルを当てると Form_フォーム1.テキスト1.Value=Nullとなります。 どうすればテキストボックス1が空白なら「空白です」と表示させることが可能でしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼