テキスト窓に任意の文字を表示させたい

質問

「やっていること」
耐久消費財の購入品を全て登録し（保証終了）と（残日数）をフォームで確認出来る様にしています。主オブジェクトですが、テーブル名が「購入品管理」テーブルでフォームは購入品管理フォームになります。

「課題」
保証期間の終了（保証終了）表示と保証期間の残り日数（残日数）は、以下の関数で表示のできているのですが、保証が無期（永久保証）の製品では、保証期限を入力できないこともあり、「保証残日数」のテキスト窓に（無期保証又は永久保証）の表示を長い間実現できずにいます。

「やりたいこと」
保証が無期（永久保証）の商品について「保証残日数」のテキスト窓に（無期保証又は永久保証）と表示させたい。※詳細は下段を参照ください。

「オブジェクトの項目」
メーカー「フィールド」
メーカー電話番号「フィールド」
商品群「フィールド」
商品名「フィールド」
型番「フィールド」
機番「フィールド」
購入先「フィールド」
注文ナンバー「フィールド」
購入先電話番号「フィールド」
購入日「フィールド」
保証年数「フィールド」
保証期限「テキスト窓のみ」
※テキスト窓「保証期限」欄には「購入日」と「保証期間」から（西暦で年月日）を手入力しています。
保証残日数「テキスト窓のみ」※（保証残日数）西暦と（保証終了）の文言が表示される。
※テキスト窓「保証日数」欄には「=IIf(DateDiff("d",[本日],[有効期限])>0,DateDiff("d",[本日],[有効期限]),"保証終了")」の式をコントロールソースに書込んでいます。

以上ですが、よろしくお願いします。

回答No.2

ushi2015 · ベストアンサー

こんにちは
どうもオブジェクト名と数式の内容も一致してないので分かりにくいのですが、
=IIf([保証年数]="9999/99/99","永久保証",IIf(DateDiff("d",[本日],[有効期限])>0,DateDiff("d",[本日],[有効期限]),"保証終了"))
という事ですか？

お礼

ushi2015　レベル12様
アドバイス「回答」をありがとうございました。「永久保証」を表示できました。計算式の繋ぎ目は「半角カンマ」であることも分かりました。またひとつ解決できました。ありがとうございました。

=IIf([有効期限]="2030/04/18","永久保証",IIf(DateDiff("d",[本日],[有効期限])>0,DateDiff("d",[本日],[有効期限]),"保証終了"))

回答No.1

ushi2015

こんにちは
「保証期間」？って、保証年数「フィールド」の事？
テキスト窓「保証日数」？って、保証残日数「テキスト窓のみ」の事？
保証年数「フィールド」に（無期保証又は永久保証）の場合は「9999/99/99」とか
入力するようにして、
「=IIf(DateDiff("d",[本日],[有効期限])>0,DateDiff("d",[本日],[有効期限]),"保証終了")」
にで、保証年数「フィールド」が「9999/99/99」の場合は、（無期保証又は永久保証）
と表示するように数式を変更すればいいのでは？

補足

早速有難うございます。

クエッションの保証残日数「テキスト窓のみ」の事？ですが、その通りで参照するだけでテーブルには書き込んでいません。

アドバイス頂きました様に永久保証の場合は「9999/99/99」に統一したいと思います。但し、私にとって難関「分からない」なのが数式の変更の仕方です。

現在の数式は以下の通りですが、現行の"保証終了"に追加して”永久保証”を表示させる為には、どの様に書き換えすれば宜しいでしょうか。アドバイスをお願いできませんでしょうか。

「=IIf(DateDiff("d",[本日],[有効期限])>0,DateDiff("d",[本日],[有効期限]),"保証終了")」

宜しくお願いします。