If Not IsNull(Me.OpenArgs) Then
        strArg = Split(Me.OpenArgs, ":")
    End If

' *********************************************************
' 決定
' *********************************************************
Private Sub lst郵便番号_DblClick(Cancel As Integer)

    Dim nIdx

    On Error Resume Next
    nIdx = Me.lst郵便番号.ItemsSelected.Item(0)
    If Err.Number <> 0 Then
        Exit Sub
    End If
    On Error GoTo 0
    
    If Not IsNull(Me.OpenArgs) Then
        Forms(strArg(0)).Controls(strArg(1)).Value = Me.lst郵便番号.Value
        Forms(strArg(0)).Controls(strArg(2)).Value = _
            Me.lst郵便番号.Column(1, nIdx) & _
            Me.lst郵便番号.Column(2, nIdx) & _
            Me.lst郵便番号.Column(3, nIdx)
        DoCmd.Close
    End If

End Sub