' *********************************************************
' 郵便番号フォームの呼び出し
' *********************************************************
Private Sub btn郵便番号参照_Click()

    DoCmd.OpenForm "F_郵便番号検索", , , , , acDialog, _
        Me.Name & ":txt郵便番号:txt住所１"

End Sub