Microsoft Access 掲示板

下記でどうでしょうか。

Private Sub datain_Click()
    If IsNumeric(txtYear) = False Then
        MsgBox "未入力もしくは数値以外が入力されてます。"
        txtYear.SetFocus
        Exit Sub
    End If

    If Abs(Year(Date) - txtYear) > 100 Then
        MsgBox "年の指定が誤りです。"
        txtYear.SetFocus
        Exit Sub
    End If

    If IsNull(DLookup("CLN_YMD","D_カレンダー","CLN_YMD=#" & txtyear & "/1/1" & #)) Then
        MsgBox "既に入力済みの年です。別の年を指定してください。"
        txtYear.SetFocus
        Exit Sub
    End If

'以下略