1

ユーザーが日付を入力するための3つのコンボボックスを作成しようとしています。月と年のコンボボックスは非常に簡単ですが、日コンボボックスに問題があります。月に基づいて日のみを表示するという点で、これをインテリジェントボックスにしたいと思います。月が2月に設定されている場合は28、1月に設定されている場合は31。

これを達成するために私が見なければならない簡単な方法があるかどうか疑問に思っています、私は失敗したいくつかのVBAを試しました。

私がやったことは、基本的にaddItem1〜28日間使用しIF、29日、30日、または31日必要かどうかを確認するためのチェックを行ったことです。31日から30日、そして29/28日になると、リストから31を削除しようとしたためにエラーが発生しましたが、30日月に切り替えると31に乗ったため、エラーが発生しました。これを回避する方法があります。正しい方向へのポインタが必要です。

4

1 に答える 1

1

あなたは次のようなことを言うことができます:

Me.cboDay.RowSource = "SELECT Number " _
& "FROM MyNumbersTable " _
& "WHERE Number < = " & Day(DateSerial(Me.cboYear,Me.cboMonth+1,0))

MyNumersTableは整数のテーブルです。

ご了承ください

Day(DateSerial(2012,2+1,0)) = 29 
于 2012-07-31T18:20:39.373 に答える