Accessのリストボックスの値を使って

質問

自分なりに色々と調べたのですが、どうしても希望の動作になりません。どの様にすれば良いのか教えて頂けないでしょうか？

Access2003を使用しております。
Form-A（フォーム名）
・・・訪問日　次回訪問日　期間
という項目があり、[期間]（データは、1ヶ月;１年の2つです。）がリストボックスになっており、1ヶ月を選択すると[訪問日]の1ヶ月後、1年を選択すると[訪問日]の1年後を[次回訪問日]に表示したいと思っています。

現在、[期間]の更新後処理イベントプロシージャに下記のを記述しているのですが、リストボックス内のデータ1ヶ月、1年のどちらを選択しても1ヶ月後の日付しか表示されない状態です。
どうぞよろしくお願い致します。

Private Sub 期間_AfterUpdate()
If IsNull(Me!期間) = True Then
Me!次回訪問日 = ""
Else
If Me!期間 = Me!期間.Column(0) Then
Me!次回訪問日 = DateAdd("m", 1, Me!訪問日)
Else
If Me!期間 = Me!期間.Column(1) Then
Me!次回訪問日 = DateAdd("yyyy", 1, Me!訪問日)
End If
End If
End If
End Sub

回答No.2

kmetu · ベストアンサー

Me!期間.Column(0)
は現在選択されているリストの行の一列目を参照し(一行目ではありません)
Me!期間.Column(1)
は現在選択されているリストの行の二列目を参照しています。

ですので、if 文の条件式がおかしいと思われます。

if Me!期間.ListIndex=0 then　'リストの一番目　
とか
if Me!期間 ="1ヶ月" then
とかにしなくてはいけないと思いますよ。

お礼

早速の回答ありがとうございます。
If Me!期間 ="1ヶ月" then
の設定に変更したところ、希望通りの動作になりました。

私の間違い部分の説明もして頂き、勉強になりました。
本当にありがとうございました。

回答No.1

bin-chan

If Me!期間 = Me!期間.Column(0) Then
Me!次回訪問日 = DateAdd("m", 1, Me!訪問日)
Else
If Me!期間 = Me!期間.Column(1) Then
Me!次回訪問日 = DateAdd("m", 12, Me!訪問日)

としたらどうなります？

お礼

早速の回答ありがとうございました。
Me!期間.Column(0)の記述が一行目を選択しているものだと勘違いしておりました。すいません。
この部分を変更する事により無事希望どうりの動作になりました。
ありがとうございました。