strSQL = "UPDATE tblCurentPastYears SET DateFrom = #1/1/" & Me.txtY & " # WHERE DateFrom is Null;"
if in the txtY control it says 2026 otherwise use
strSQL = "UPDATE tblCurentPastYears SET DateFrom = #1/1/" & Year(Date()) & "# WHERE DateFrom is Null;"