Private Sub CommandNip_Click() DoCmd.RunCommand acCmdSaveRecord 'レコードを保存 apPrnMnuDnpStore conApPrnSin '日報登録[F6] End Sub