テキスト窓に任意の文字を表示させたい
「やっていること」
耐久消費財の購入品を全て登録し(保証終了)と(残日数)をフォームで確認出来る様にしています。主オブジェクトですが、テーブル名が「購入品管理」テーブルでフォームは購入品管理フォームになります。
「課題」
保証期間の終了(保証終了)表示と保証期間の残り日数(残日数)は、以下の関数で表示のできているのですが、保証が無期(永久保証)の製品では、保証期限を入力できないこともあり、「保証残日数」のテキスト窓に(無期保証又は永久保証)の表示を長い間実現できずにいます。
「やりたいこと」
保証が無期(永久保証)の商品について「保証残日数」のテキスト窓に(無期保証又は永久保証)と表示させたい。※詳細は下段を参照ください。
「オブジェクトの項目」
メーカー「フィールド」
メーカー電話番号「フィールド」
商品群「フィールド」
商品名「フィールド」
型番「フィールド」
機番「フィールド」
購入先「フィールド」
注文ナンバー「フィールド」
購入先電話番号「フィールド」
購入日「フィールド」
保証年数「フィールド」
保証期限「テキスト窓のみ」
※テキスト窓「保証期限」欄には「購入日」と「保証期間」から(西暦で年月日)を手入力しています。
保証残日数「テキスト窓のみ」※(保証残日数)西暦と(保証終了)の文言が表示される。
※テキスト窓「保証日数」欄には「=IIf(DateDiff("d",[本日],[有効期限])>0,DateDiff("d",[本日],[有効期限]),"保証終了")」の式をコントロールソースに書込んでいます。
以上ですが、よろしくお願いします。
お礼
DPE様、 たびたびのご回答ありがとうございましたm(_ _)m。 > 入力部分の色、とは、テキストフィールドの背景色のことでしょうか? はい、その通りです。 > 同じく TextField オブジェクトが持っている background と backgroundColor というプロパティで、好きな色に変更できます。 > この作例は以前紹介したことがありますので、よろしければご参考になさってください。 ありがとうございました。ヘルプにのっていたとは気付きませんでした。背景色という言葉では検索したのですが・・。調査不足ですみません。 どうもヘルプが思い通りに検索できないです。。 > 裏技というほどのものでもありませんが。 > 「プロパティ」パネルで”ボーダー”ボタンを OFF にすると、境界線・背景ともに”なし”( border ・ background プロパティがともに false )に設定されます。 > この状態ではテキストフィールドの背景は透明になっていますので、線のない塗りだけの四角形を描画してこの上に境界線・背景のないテキストフィールドを重ねると、好きな色の背景を付けることができます。 なるほど!確かにボーダーをなくすと背景もなくなりますね。 参考になるご回答本当にありがとうございました!