AnsweredAssumed Answered

全てのレコードを複数複製するスクリプト

Question asked by rabbit7 on Jun 26, 2014
Latest reply on Jun 27, 2014 by rabbit7

タイトル

全てのレコードを複数複製するスクリプト

フォーラムに投稿

     初めて投稿する初心者です。よろしくお願い致します。

     Filemaker Pro13を使用しています。(Windows8)

     患者データーベースを作成しており、採血ラベルの印刷を行いたいと考えています。

     同じラベルを複数作るにはその数のレコードが必要とのことでしたので、1枚のシートに20個のラベルを印刷するために1人の患者さんのデーターを一時的に19個複製し、印刷後に重複データーを検索、削除しようと考えています。

     重複データの検索、削除のスクリプトは無事動いていますが、最初のレコードを複製するところで躓いています。

      

     「ラベル印刷」というテーブルに下記のフィールドを作ってあります。

     カルテNo ふりがな 氏名 年齢 透析日 共通 重複 カウント

     「共通」と「重複」は複製後の為にあります。

     「カウント」はグローバルにしてもしなくても結果はあまり変わりません・・・

      

     まず下記のスクリプトで実行すると

      

     全レコードを表示

     フィールド設定[ラベル印刷::カウント;0]

     Loop

      レコード/検索条件複製

      フィールド設定[ラベル印刷::カウント;ラベル印刷::カウント+1]

      Exit Loop If[ラベル印刷::カウント=19]

     End Loop

     全レコードを表示

     レコードのソート[記憶する;ダイアログなし]

      

     最初のレコードのみ19個複製されそこで終了してしまいます。

     そこで赤字部分を追加しました。

      

     全レコードを表示

     フィールド設定[ラベル印刷::カウント;0]

レコード/検索条件/ページへ移動[最初の]

     Loop

      レコード/検索条件複製

      フィールド設定[ラベル印刷::カウント;ラベル印刷::カウント+1]

      Exit Loop If[ラベル印刷::カウント=19]

      レコード/検索条件/ページへ移動[次の;最後まできたら終了]

     End Loop

     全レコードを表示

     レコードのソート[記憶する;ダイアログなし]

      

     これですと最初のレコードが1つだけ複製されて終了します。

      

     ソートで解決や、レコードを対象外にするなど、調べるといろんな方法があるようですが、自力でどう試しても上手くいきません。

     完全に行き詰って非常に困っております。

     教えていただくには情報や書き方が足りないかもしれませんが、よいアドバイス頂ければ助かります。

     よろしくお願い致します。

      

      

Outcomes