1: Private Sub BTN_DETAIL_Click() 2: ' [明細]ボタンが押されたときの処理 3: FormSlipDetail.InitData g_objRec.Fields("ID").Value 4: FormSlipDetail.Show 5: End Sub