hatena
hatena
2020/05/25 (月) 14:30:09
最初の回答のコードが間違ってました。下記に修正してください。(Notが不足していた。)
'前略
If Not IsNull(DLookup("CLN_YMD","D_カレンダー","CLN_YMD=#" & txtyear & "/1/1" & #)) Then
MsgBox "既に入力済みの年です。別の年を指定してください。"
txtYear.SetFocus
Exit Sub
End If
'後略
通報 ...