ACCESS2019: 3001：引数が無効です。

なんか、リンクテーブルに紐づいたフォームに代入するとエラーが起きるようになった。

初回だけ失敗しているみたい、DBの修復すれば治るんかとオモタガ、あかんかった。

"-2147352567" access "リンクテーブル"

しゃないから、エラー発生時は、リトライするように逃げた、、

Private Sub setTextVal(txtB As TextBox, pk$)
On Error GoTo ErrorHandler
    txtB.value = pk$
    Me.Refresh
    Exit Sub
ErrorHandler:
    txtB.value = pk$　’ここで再代入
End Sub