• 締切済み

ACCESS レポート作成でわからない事が。。

御支払い明細書を作成しているのですが、上手くいかないので質問です。 複数会社があります、明細は会社別に出力、商品は￥と＄（円換算後）のデータが並んでいます。 ○○会社御中 　　●● \10,000 ※　×× \5,000 　　△△ \20,000 ＄の場合明細書の横に※マークを入れたいので【　$表示: IIf([決済通貨]="$","※","")　】といれたら上記のようになりました。 明細の下に※マークは＄換算レートは１＄＝ｘｘｘ円です。とコメントを入れたいのですが、レポートにどのような設定を行えば良いのでしょうか？ ＜コメントを入れる場合＞ ○○会社御中 　　●● \10,000 ※　×× \5,000 　　△△ \20,000 ※マークは＄換算レートは１＄＝ｘｘｘ円です。 ＜コメントを入れない場合＞ ○○会社御中 　　●● \10,000 　　×× \5,000 　　△△ \20,000

みんなの回答

  • palmmy
  • ベストアンサー率38% (841/2170)
回答No.1

いろんなやり方があるかと思いますが… ◎ドルがあるかの判定１ 　レポートもとのクエリーで 　[通貨][通貨FLG:IIF(通貨="$",1,0)][品目][金額] 　として、判定用のフィールドを追加。 　合計が１以上だったらドルが１個でも存在する。 　ページフッターか業者グループフッターでドルの 　有無判定し、コメントの表示、非表示をコントロール。 　フッターに判定用のボックスを作成。 　判定：=sum([通貨FLG]) 　VBAで、もし判定＞0ならコメント用のラベルを 　visible=true 　にすればよいかと思います。　 　(逆の判定でも可) ◎ドルがあるかの判定2 　クエリーを作らずに、フッターで 　DCount 　でその業者のレコードにドルがあるか判定。 　あれば、コメント用のラベルを表示に。 ◎レート 　[コメント用ラベル].caption　=　"※マークは＄換算レートは１＄＝"　& 　　　　　　　　　　getRate　&　"円です。" 　でセットすればよいかと思います。 　Funtion　getRate()　as　double 　　　getRate　=　DLookup(…) 　End　Function 　レートテーブルが別にあれば、上のようにレートを 　取得する関数を作って、レポートで呼び出せばよい 　かと思います。　

shinoshino
質問者

お礼

遅くなりましたが、ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • 海外でのクレジットカード使用時の決済通貨

    先週グアムに行ってきました。 ショッピングモールで買い物をする時にクレジットカードを出すと、店員が必ず「ドルにしますか？円にしますか？」と聞いてくるのです。 海外は何度か行っていますがこんな質問をされたのは初めてで、戸惑いました。 グアムに限ったことではないのかもしれませんが。 海外でドルやユーロなど現地通貨で決済しても、カード会社から送られてくる明細では、利用金額が為替レートで円に換算されていますし、当然引き落としも円で行われます。 つまりドルで払おうが円で払おうが、結局は同じことだと思うのですが、なぜこのような質問をされるのでしょうか？ それとも、どちらかの通貨での決済を選んだほうが得だったのでしょうか？

  • アクセスのレポートについて

    アクセスのレポートに、「会社名」と「支店名」のラベルを作ってあります。 敬称として”御中”をつけたいのですが、 「会社名」のみの場合は、「会社名」のうしろに”御中”を 「支店名」まである場合は、「会社名」のうしろではなく「支店名」の うしろに”御中”をつけたいのです。 どうやったら使い分けができますか？ どなたか教えてください。

  • 海外赴任　給与・現地通貨支給時のレート算出について

    こんにちは。 この冬から海外に赴任するものです。 現地で支給される現地通貨での給与のレート算出についてお伺い致します。 私の会社では現地通貨で給与を受け取る際、日本で受け取っている給与を現地通貨のレートで換算して、現地通貨で受け取るかたちとなります。 このレートの改訂は毎年４月に行うとの事なのですが、来年の４月が今年の４月より円安になっていた場合は、現地通貨で受け取る手取額は「減る」ということなのでしょうか。 例） 201３年４月　1ドル＝９０円　３００，０００円の給与を現地通貨に換算し、３，３３３ドル ２０１４年４月　仮定　１ドル＝１００円　３００，０００円　の給与を現地通貨に換算し、３，０００ドル 結果：３３３ドル減少。 また通常年1回の改訂ということなのですが、このとき設定するレートというのは、どのように設定するのが通常なのでしょうか。例えば４月が急激な円高状況などの場合、社員が不利益を被ることになると考えます。 以上、何卒宜しくお願いいたします。

  • PayPalレートについて

    手元にJCBカードしか利用できるカードがなかったので、PayPalレートで支払いをしました。 ツイッターのドル/円レートと決済結果の金額が合いません。 https://twitter.com/PayPalUSDJPY PayPal通貨換算ツールでは現在0.0122570USD（1ドル約81.58円）となっています。 ツイッターBOTはまた別のレートでしょうか？

  • 現地でのPLUSマークのあるＡＴＭでの引き出し

    PLUSマークのあるＡＴＭでは、指定のした現地通貨額を日本円に換算して、手数料とともに普通預金口座から即時にそれを引き落とし、ドルを得られることができるようです。このとき、換算レートは、VISAインターナショナルが定めたレートに3％を加算したレートということですが、このレートは日本で両替するときのレートと比べてどの程度差があるのでしょうか？

  • 「円ドル双方向換算」マクロを作成しているのですが・・・（長文です）

    Function 円ドル換算(円元金 As Integer) ' 受け取ったドル元金から円換算額を算出して返す ' 引数：ドル元金（Integer型） ' 返数：円換算（Integer型） Dim 換算レート As Double Dim ドル換算額 As Double ' 換算レート（１ドル価格）を設定する 換算レート = 109.5 ' 円元金からドル換算額を算出する ドル換算額 = 円元金 / 換算レート ' ドル換算額を呼び出し元に戻す 円ドル換算 = ドル換算額 End Function Function ドル円換算(ドル元金 As Integer) ' 受け取った円元金からドル換算額を算出して返す ' 引数：円元金（Integer型） ' 返数：ドル換算 Dim 換算レート As Double Dim 円換算額 As Double ' 換算レート（１ドル価格）を設定する 換算レート = 1 / 109.5 ' ドル元金から円換算額を算出する 円換算額 = ドル元金 / 換算レート ' 円換算額を呼び出し元に戻す ドル円換算 = 円換算額 End Function Sub 円ドル双方向換算() Dim ユーザー選択 As Integer Dim 元金 As Integer Dim 換算額 As Integer ' 円元金を取得する 円元金 = Range("B3").Value ' ドル元金を取得する ドル元金 = Range("B3").Value ' 換算する通貨を判定し、それぞれについて換算を行う If Range("B2") = 1 Then '円ドル換算を行う場合 換算額 = 円ドル換算(ドル元金) 換算額 = Application.WorksheetFunction.Round(円ドル換算, 1) '四捨五入して小数点１桁に変換する Range("B4").Value = 円ドル換算 '円ドル換算値を出力する ElseIf Range("B2") = 2 Then 'ドル円換算を行う場合 換算額 = ドル円換算(円元金) 換算額 = Application.WorksheetFunction.Round(ドル円換算, 1) '四捨五入して小数点１桁に変換する Range("B4").Value = ドル円換算 'ドル円換算値を出力する End If End Sub B2のセルにくる数字が１のときは円→ドルに、２のときはドル→円に換算するマクロを作りたいのですが・・・ 元金はセルB3に、換算額はセルB4に表示します。 かなり初心者なので、模範解答を示してもらえると助かります＾＾； よろしくお願いします＞＜

  • 　FXで強制決済されないことってありますか？

    　FXで強制決済されないことってありますか？ FXを勉強中なんですが、ふと疑問に思ったことがあったので質問させていただきました。 たとえば、1ドル＝100円のときにドルを100万通貨買ったとして、その後レートが1ドル＝90円に暴落したら1000万の損失ですよね？ 通常なら証拠金の何パーセント以下になったら強制決済みたいに業者ごとに決められていると思うんですが、強制決済されない業者や、方法ってないんでしょうか？ というのも、1ドル＝90円のレートがあがるまでドルを保有し続けて、決済すれば利益が出るじゃないですか? 長い間、強制決済なしに通貨を保有し続けることは可能なんでしょうか？

  • 銀行のキャッシュカードで海外ATM利用

    CPLUSのマークがついたATMで現地通貨での現金引き出しをする場合、「円換算レートはVISAインターナショナルが定めたレートに3％を加算したものです。」とありますが、「円換算レートはVISAインターナショナルが定めたレート」とは事前に公表されてはいないもののだいたい目安はいくらくらいなのでしょうか？？ ちなみに米ドルの場合はどうでしょうか？(たとえば現在1ドル＝105円だとして。) 銀行に聞いてもわからないといわれました。どなたか実際に利用された方はいらっしゃいませんか？？ 「VISAインターナショナルが定めたレート」とはその時の取引レートプラス何円くらいだったか体験談をお聞きしたい次第です。 銀行や両替所の場合手数料が片道プラス10円(10%)くらいだった気がしてて、それよりVISAレートが安ければATMで現地通貨で引き落としをしたいと考えています。 ご存知の方いらっしゃいましたら教えてください。 ちなみに新生銀行のカードを所有しておりまして引き出し手数料は無料とあります。(レート×３％はかかりますが)

  • 円をドルに換算するマクロ関数を作成したいのですが・・・

    Function 円ドル換算(円元金 As Integer) ' 受け取ったドル元金から円換算額を算出して返す ' 引数：ドル元金（Integer型） ' 返数：円換算（Integer型） Dim 換算レート As Double Dim ドル換算額 As Double ・ ・ ・ ・ ・ ・ End Function 途中の式をどのように組み立てたらよいか分かりません＞＜ どなたかお知恵をお貸し下さい。 （換算レートは自由に設定して下さい） それではよろしくお願いします！ 記述方法は、、、 (1)換算レートを設定する (2)円元金からドル換算額を算出する という順序で組み立てたいのですが。。。 お知恵をお貸し下さい＞＜

  • 見やすい外為レートのチャート

    主要通貨の為替レートの変動が１つの画面で同時に「比較しやすいように」表示されるサイトを教えてください （米ドルは○○円、ユーロは○○円、人民元は○○円のように各国通貨を円換算したレートの時系列比較がしたいのです。）

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する