Access総合相談所 24

>>907
こうしました。

Private Sub 年_AfterUpdate()

If Me!年 >= 1 And Me!年 <= 99 Then
Me!年 = 2000 + Me!年
End If

End Sub

1から99までの数字を入力すると入力補助が働いて2000がプラスされると
いる仕様です。
もし1999以下や2100以上の年を入力したい時は４ケタを入力してもらうという考えです。
（このシステムではその様な年を入れることはないんですが）

本当は1から50までが2000プラスで51から99までは1900とかした方が汎用性は
あると思いますが、今回は1999年以下の年を入力することはないシステムだったので
この様にシンプルにしました。