|
' *********************************************************
' 決定
' *********************************************************
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
Me.txt郵便番号.Value = Me.lst郵便番号.Value
Me.txt市区町村.Value = Me.lst郵便番号.Column(2, nIdx)
Me.txt町域.Value = Me.lst郵便番号.Column(3, nIdx)
End Sub
| |