|
' *********************************************************
' 検索実行
' *********************************************************
Private Sub btn検索実行_Click()
Dim strQuery
strQuery = "select 郵便番号,都道府県,市区町村,町域 "
strQuery = strQuery & " from 郵便番号マスタ"
strQuery = strQuery & " where 町域 like "
strQuery = strQuery & " '*大*'"
Me.lst郵便番号.RowSource = strQuery
End Sub
| |