' ********************************************************* ' 郵便番号フォームの呼び出し ' ********************************************************* Private Sub btn郵便番号参照_Click() DoCmd.OpenForm "F_郵便番号検索", , , , , acDialog, _ Me.Name & ":txt郵便番号:txt住所1" End Sub