4章 カスタマイズ4-3フォーム

Sora編集フォームにする


編集フォームにすることができます。


<操作手順>
  1. 帳票フォームを作成する
    リボンの[Soraツール]の[Soraシステム管理]−[Soraフォーム処理]をクリックします。
    [Soraフォーム処理]画面の[新規作成]をクリックします。
    [フォームの新規作成]画面で”オートフォーム表形式”を選択し、[基になるテーブル/クエリーを選択]を設定し、[OK]をクリックします。
  2. Soraフォームに変換する
    [ツール]バーの[表示]−[デザインビュー]でフォームをデザインで開きます。
    リボンの[Soraツール]の[Soraシステム処理]−[デザインSoraフォーム作成]をクリックし、Soraフォームに変換します。
  3. 関数をイベントに設定する
    フォームのイベントに下記内容を設定します。
    1. [読み込み時]イベント
      下記内容を追加します。
      apFKeySetList "テスト番号" 'リスト編集フォーム(ファンクションキー情報セット)
      "テスト番号"は自動採番させる項目名です。
      Private Sub Form_Load()
          apFKeySetList "テスト番号"  'リスト編集フォーム(ファンクションキー情報セット)
          apFrmLoad Me
      End Sub
      
    2. [閉じる時]イベント
      下記内容を追加します。
      apFKeyInfoSet 'リスト編集フォーム(ファンクションキー復帰)
      Private Sub Form_Close()
          apFrmClose Me
          apFKeyInfoSet  'リスト編集フォーム(ファンクションキー復帰)
      End Sub
      
    3. [閉じる時]イベント
      下記内容を追加します。
      apLstKeyDown Me, KeyCode, Shift 'リスト編集フォーム
      下記内容を削除します。
      apFrmKeyDown Me, KeyCode, Shift
      Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
          apLstKeyDown Me, KeyCode, Shift 'リスト編集フォーム
      '    apFrmKeyDown Me, KeyCode, Shift  '<=コメントにする
      End Sub