• ベストアンサー

Access カレンダー

アクセス+VBAです。 フォームの作成でツールボックスの中にある「コントロールの選択」の一番下にあるカレンダーコントロール9.0を使いたいのですが・・・ フォームが開いた時にこのカレンダを今日の日付けにセットするには、どのようにするのでしょうか?

質問者が選んだベストアンサー

  • ベストアンサー
  • O_cyan
  • ベストアンサー率59% (745/1260)
回答No.3

>開いた時にこのカレンダを今日の日付けにセットするには 今日の日付だけ表示するのであればコントロールソースに =Date() 初期値として今日の日付をセットし今日以外のカレンダー日付を値として使う場合はフォームの開く時のイベントに Me.カレンダー名.Value = Date でカレンダーに初期値をセットする。 コントロールソースにDateを設定すると他の日付への変更は不可。初期値としてセットすれば他の日付への変更はOKです。

situmonnsya
質問者

お礼

うまく、いきました。 ありがとうございます。

その他の回答 (2)

  • tarodaro
  • ベストアンサー率43% (7/16)
回答No.2

非連結で使う場合は、カレンダーのコントロールソースを =Date() とします 連結コントロールの場合は、コントロールソースである テーブル/クエリのフィールドの既定値を =Date() とすれば、連結フィールドが未入力の場合 今日の日付が表示されます

situmonnsya
質問者

お礼

ありがとうございます

noname#60992
noname#60992
回答No.1

フォームの load(読込時) もしくは open(開く時) のイベントにvbaで、 me.activexコントロール名.value = date

situmonnsya
質問者

お礼

うまく、いきませんでした。

関連するQ&A

  • Accessのカレンダーコントロールについて

    いつもお世話になっております。 Accessのフォーム上に貼り付けるコントロールで クリックするとカレンダーが表示され、日付を選択 することで、テキストボックスに選択した日付が 表示されるという画面を見たことがあります。 どのようにすれば、このコントロールを使えるように できるのでしょう? どうか、よろしくお願いいたします。

  • カレンダーコントロールについて

    Access2003+VBA でプログラミングをしています。 他の方の質問も一通り閲覧しましたが、解決しないので教えてください。 Accessのフォーム上に貼り付けるカレンダーコントロールを使い、 カレンダーの日付をクリックして、クリックされた日付をテキストボックスに表示したいのですが、うまくいきません。 試しに、カレンダーをクリックした結果(日付)をメッセージボックスに 表示するようにもしてみましたが、やはり日付は何も表示されません。 何か根本的なところで躓いている気がするのですが、解決出来ません。 何卒、よろしくお願いします。

  • access2010の「日付選択カレンダー」

    access2010の「日付選択カレンダー」について、教えてください 1.状況      フォームのテキストボックスを作成し、下記の設定を行いました      書式→をyyyy/mm/dd、日付選択カレンダーの表示→日付 2.教えて欲しい事      アイコンをクリックし、カレンダー操作によりテキストボックスへ設定できますが、      テキストボックスに本日以外の日付(例えば、2020/12/31)を指定し、      カレンダーを起動すると、本日を選択した状態にてカレンダーが表示される      →カレンダーが2020/12/31を選択した状態にて、       カレンダーを起動させる方法を教えてください ※よろしくお願いします。検索してもヒットしません

  • Accessのカレンダーコントロールを参照できない

    Access2000を使っています。 現行のシステムでは、出荷情報などを確認するのにクエリーの抽出条件(日付型のフィールドです)を直接書き換えています。 これをフォームをかませてもっと簡単に日付の指定ができるようにしたいと考えています。 フォームにツールボックスから「カレンダー コントロール」というのをドラッグして貼り付けました。 イミディエイトウィンドウで以下のように打ってみたところ、エラーメッセージが出ます。 ?forms!フォーム1!ActiveXコントロール0 「指定した式に、|プロパティに対する不正な参照が含まれます。」とあるのですが、何が悪いのでしょう。

  • アクセス ActiveXカレンダーがおかしい

    教えてください。 アクセスのフォームにカレンダーコントロールを貼り付けて、 フォームの読み込み時にカレンダーの規定値に今日の日付が選択されるように以下のコードを記述したのですが、なんどやってもうまくいきません。 カレンダーのプロパティの日付は空にしています。 他のアクセスファイルではうまくいくのですが、ファイルがこわれているのでしょうか? 同じ現象で解決された方がいらっしゃいましたら教えてください。 Private Sub Form_Load() Me!avxCal.Value = Date End Sub

  • エクセルvbaでフレーム上のカレンダーコントロール

    エクセルvbaでユーザーフォームの中のフレーム上にカレンダーコントロール をデフォルト非表示で配置しています。ボタンをクリックするとカレンダを表示状態にして、 日付をクリックしたらその値をテキストボックスに表示してカレンダの 表示を消すというコードを作りました。以下がそのコードです。 Private Sub 表示ボタン_Click() cldCalendar.Visible = True cldCalendar.SetFocus End Sub Private Sub cldCalendar_Click() With cldCalendar テキストボックス1 = .Value テキストボックス1.SetFocus .Visible = False End With End Sub このコードだとカレンダーの日付をクリックしない限り、 ずっとカレンダは表示されたままになってしまいます。 カレンダからフォーカスが移った時非表示にしたいのですが、どうすればよいのでしょうか? また非表示にしたいのは、フォーム上の特定のオブジェクトをクリックしたときだけではなく、 フォーム上の何もない場所など、とにかくカレンダ以外のすべてにおいてクリックしたり、 フォーカスが移動したらカレンダを非表示にしたいのです。 注文が細かくて恐縮なのですが、どなたか詳しい方教えてください。

  • access2000でカレンダーコントロールをいろいろな場面で

    access2000で1つのカレンダーコントロールをいろいろな(複数の)場面で利用したいと思います。 カレンダーコントロールを置いたフォームは作成しました。→「カレンダーフォーム」 カレンダーフォームで取得した値をテキストボックスに戻すプロシージャも作成し、うまくいっています。 しかし、特定のテキストボックスに対してしか機能しません。 1つのカレンダーフォームで、複数のテキストボックスに入力させるプロシージャを教えてください。 カレンダーフォームの起動は、sample1_frm上のコマンドボタン1、コマンドボタン2やsample2_frm上のコマンドボタン1、コマンドボタン2を押すと起動するようにしたいと思います。 sample1_frm上のテキストボックス1(横にコマンドボタン1)やテキストボックス2(横にコマンドボタン2)があるので、それに対応したテキストボックスにカレンダーコントロールで取得した値を代入する方式です。 どのように1つのカレンダーフォームで各フォーム、テキストボックスに対応したコードを書けばよいでしょうか?

  • アクセス2007 カレンダー

    アクセス2007を使用して、テキストボックスに日付を入力する時に、右に小カレンダーボタンがあって、それをクリックすると、大カレンダーが現れて、日付入力しやすいので関心しています。 これと同じ機能をアクセス2002で利用したいのですが、どうしたらできますか?教えてください。カレンダーコントロールを使用して、コマンドボタンでポップアップするようになっているみたいに見えるのですが・・・よろしくお願いします。

  • Accessフォームの日付選択カレンダーとイベント

    いつも楽しく勉強させていただいております。 環境はWin7でAccess(Office 365)です。 フォームでコントロールソースが日付時刻型のテキストボックスに値を設定する際に 日付選択カレンダーを使いたいのですが、そうするとテキストボックスの更新前イベントが 検知できなくて困っています。 この項目は契約の有効開始日なので、これを変更すると他の項目にすでに設定された値を クリアする必要があるのでその警告のワーニングを出したいのです。 日付選択カレンダーの機能をオフにすると更新前イベントは検知できます。 しかし他のフォームでは日付選択カレンダーを使っているのでそろえたいのです。 日付選択カレンダーと更新前イベントは両立しないのでしょうか。 何か方法よいはありませんか。

  • ACCESS カレンダーコントロールで移動

    入力終了したデータをフォームに表示させているのですが、カレンダーコントロール9.0とテキストボックスをコントロールソースにして、日付が数字とカレンダーの日付が押された状態で表示されるようにしています。 レコードセレクタからいちいち任意の日付を探すのは面倒なので、出来ればカレンダーコントロールの日付をクリックまたはダブルクリックすることによりその日にレコードが移動してデータが表示させたいのですが、どのような方法があるでしょうか? 使用しているのはACCESS2000です。何卒、良い知恵がありましたら(そのような感じのことが書いてあるwebページでも構いません)宜しくお願いいたします。

専門家に質問してみよう