みんなに優しく、解りやすくをモットーに開設しています。 以下のルールを守りみんなで助け合いましょう。
1.ファイルメーカーで解らない事があればここで質問して下さい。 何方でも、ご質問・ご回答お願いします。 (優しく回答しましょう)
You are not logged in.
Pages: 1
検索後にレコードが無い場合はカスタムダイアログを表示させています。
現場からの要望で、有る場合も、次のようにしたいのですが、解決できず困っております。
1.ダイアログ表示 〇〇件数あります。表示しますか?
2.OKボタンを押すと一覧表のレイアウトに切替
検索モードに切り替え
フィールド設定 番号;$$banngou
レコード/検索条件確定
エラー処理
If[Get(対象レコード数)=0
カスタムダイアログを表示 未登録です。デフォルトボタン「戻る」;ボタン2「作成する」
レイアウト切替
If[Get(最終メッセージ選択)=1]
レイアウト切替
End If
If[Get(最終メッセージ選択)=2]
スクリプト実行[インポート]
End If
End If
宜しくお願い致します。
If[Get(対象レコード数)=0]
今までの処理
Else
カスタムダイアログ表示 Get(対象レコード数) & "件数あります。表示しますか?"
この場合の処理
End If
Offline
If[Get(対象レコード数)=0]
今までの処理
Else
カスタムダイアログ表示 Get(対象レコード数) & "件数あります。表示しますか?"
この場合の処理
End If
Elseを使えば良かったのですね。
ありがとうございます。
検索モードに切り替え
フィールド設定 番号;$$banngou
レコード/検索条件確定
エラー処理
If[Get(対象レコード数)=0
カスタムダイアログを表示 未登録です。デフォルトボタン「戻る」;ボタン2「作成する」
レイアウト切替
If[Get(最終メッセージ選択)=1]
レイアウト切替
End If
If[Get(最終メッセージ選択)=2]
スクリプト実行[インポート]
End If
Else
カスタムダイアログ表示 Get(対象レコード数) & "件数あります。表示しますか?"
レイアウト切替
End If
レイアウト切り替えがだぶっているのが気になりますね。また、エラー処理の位置が?
カスタムダイアログの結果の処理も、If ... else ... end If の構造にした方が良いでしょう。
エラー処理
検索モードに切り替え
フィールド設定[番号;$$banngou]
検索実行
If [Get( 対象レコード数 )]
カスタムダイアログ表示 Get(対象レコード数) & "件数あります。表示しますか?"
レイアウト切替
Else
カスタムダイアログを表示 未登録です。デフォルトボタン「戻る」;ボタン2「作成する」
If [Get( 最終メッセージ選択 ) = 2]
レイアウト切替
スクリプト実行[インポート]
end If
end If
Offline
Pages: 1
[ Generated in 0.015 seconds, 7 queries executed - Memory usage: 508.11 KiB (Peak: 514.84 KiB) ]