'-------------------------

Private Sub コード入力_AfterUpdate()

On Error GoTo Err_コード_Click

'入力後サブフォームをフィルターします。

Dim strmsg As String

Me.サブフォーム.Requery

'サブフォームをフィルターします。

Me.サブフォーム.Form.Filter = "返却日 is null"

Me.サブフォーム.Form.FilterOn = True

 'トグルボタンの位置を指定する。

Me!フレーム1 = 1

Exit_コード_Click:

  Exit Sub

Err_コード_Click:

  MsgBox "このコードの登録はありません。 ", vbCritical

  Me.サブフォーム.Requery

  Resume Exit_コード_Click

End Sub