Dim nIdx, strArg
nIdx = Me.lst検索情報.ItemsSelected.Item(0)
If Me.OpenArgs <> "" Then
strArg = Split(Me.OpenArgs, ":")
If UBound(strArg) = 1 Then
Forms(strArg(0)).Controls(strArg(1)).Value = Me.lst検索情報.Column(0, nIdx)
End If
DoCmd.Close , , acSaveNo
End If