フォーラムに投稿 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つだけ複製されて終了します。
ソートで解決や、レコードを対象外にするなど、調べるといろんな方法があるようですが、自力でどう試しても上手くいきません。
完全に行き詰って非常に困っております。
教えていただくには情報や書き方が足りないかもしれませんが、よいアドバイス頂ければ助かります。
よろしくお願い致します。