Access2000のレコードセットをCopyFromRecordsetメソッドを使用してデータ出力させています。
しかし、最近データ量が多くなったため、進行状況をプログレスバーで表示したいと思っています。
画面下のステータスバーに表示されるのではと思ったのですが、
「そんなとこまでうちの社員は見ないだろう」と却下されてしまいました。
通常ならDo~Loop処理などの際にプログレスバーのValue値を変えればいいとおもうのですが、
このような「Accessにおまかせ」状態の時はどのようにすればいいのでしょうか。
となたかご教授ください。よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

>クエリなどは下のステータスバーに表示されたりするのに


そうですよねぇ。

ただ、先の回答はいわゆる正攻法ってやつで、API使ったらまだ道はあると思いますよ。

例えば、メッセージをフックするAPIを使って、ステータスバーに送られるメッセージを横取りするとか…
「メッセージ フック OCX」などのキーワードをネットで検索すると、その手のコントロールも落ちてると思います。

ただ、そこまでする必要があるかと言うと、私としてはちょっと疑問なんですが…

この回答への補足

うわぁ。すみません。放たらかしにしてたぁ。締切もしてないし。
とにかく本当にありがとうございました。
あれから社内で話し合ってアイコンを動かしてとりあえずフリーズではないと
見た目に判るようにすることで解決しました。
でも調べれば調べるだけ、結構Accessって奥が深いって判りました。
これからも勉強していきますので、またよろしくお願いします。

補足日時:2001/07/14 01:58
    • good
    • 0
この回答へのお礼

ありがとうございます。初めてメッセージフックというモノを知りました。
早速メッセージフック等を調べたのですが、「お前理解できるのか???」と自問自答・・・というか早くも挫折しています。
うちの会社も結構無茶を言います。
今日はsyscmdなど調べたのですが 「だからその値をプログレスバーに入れたいんだよ~!!」 と、もう少しで暴れてましたね。
これはやはり問題となったAccessファイルを会社で使用させる際に「こういうものだ」と教育した方が早そうですね。

お礼日時:2001/06/11 20:35

データを例えば1000件ごとに分割しまして、Do~Loop内で1000件ずつ転送する処理を書いてやればいいかと思います。

(重くなるかもしれないけど(汗))
    • good
    • 0
この回答へのお礼

そうですか。やはり一括処理されてしまう更新・追加クエリや、コピーの進捗状況って把握できないんですかねぇ。クエリなどは下のステータスバーに表示されたりするのに、悔しいですね。
情報いただき本当にありがとうございました。また宜しくお願いします。

お礼日時:2001/06/11 09:12

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q英語で進捗状況とは…

いつも大変お世話になっております。

「~年~月に実施されたプロジェクトのその後の進捗状況」

ですと、どう表現できるでしょうか?

例えば…
Progress of the project conducted in /month/, /year/.
と考えたのですが、progressでは意味が弱いように思いますし、
conductedもおかしいようにも思います。
ご意見に合わせ、こちらの文法的な間違いもありましたらお教え頂けたらと思います。
よろしくお願い致します。

Aベストアンサー

>「~年~月に実施されたプロジェクトのその後の進捗状況」
ですと、どう表現できるでしょうか?

次のようなものが可能です。
(1)the subsequent progress of the project put into execution in 'month' of 'year'

subsequentは、日本語においてもそうであるように、省略可能です。
「進捗状況」は、status、conditionなども可能ですがこれらは広く一般的に「状況」を意味するので、工程に関する専門的表現としてはprogressが普通です。
「実行された」は、conducted、execused、performedなども可能ですがこれらは「実施が完了した」という意味も併せ持つので、「実施に移された」という意味を表すput into executionが紛らわしさがないと思います。

QAccess2000のステータスバーにプログレスバーを表示したい。

こんにちわ

たびたび申し訳ありません。

Access2000 の左下のステータスバーにプログレスバーを表示したいのですが、どのようにしたら良いでしょうか・

Access97 ではやった事有るのですが、やり方を忘れてしまいました。

もしご存知の方いらっしゃいましたらよろしくお願い致します。

Aベストアンサー

SysCmdメソッドを利用すると表示できます。

【初期化】
SysCmd(acSysCmdInitMeter, メッセージ, 総カウント)

【更新】
SysCmd(acSysCmdUpdateMeter, カウント)

【終了】
SysCmd(acSysCmdClearStatus)

詳しくはヘルプ”SysCmd”で検索してください。

Q株式の進捗率とは?

閲覧ありがとうございます。

進捗率とはどのような影響を与えるものなのでしょうか?

過去に出した決算予想に対しての進捗状況を表すものという解釈なのですが
(間違っていたらご指摘お願い致します)
その進捗率を発表するタイミングは決算なのでしょうか?

また、いつからいつまでの目標に対しての進捗率なのでしょうか?



初歩的な質問で恐縮ですがご回答頂ければ幸いです。
よろしくお願い致します。

Aベストアンサー

「株式の進捗率」という言葉は聞いたことがありません。

あなたの言うような意味合いであれば、「どこまで到達してるか示す割合」でしょう。

たとえば、今期100億円の利益を目標にした会社があるとして、
いま、期中の途中ラップでの利益が30億円と。
だとすれば、進捗率30%です。

ただ、これにも考え方があって、経過した時間も考慮した進捗率の考え方もあります。
たとえば、上記の会社が、上半期が終わった。そこで30億円だったと。
上半期が終わったということは、期の半分が終わった。
1年の半分なので、年間目標100億円の半分まで行っていれば妥当だと考え、50億円。
この50億円に対する進捗でいえば、60%ですね。
この50億円のことを標準進捗と言ったりもします。

>いつからいつまでの目標に対しての進捗率なのでしょうか?
一般的には期初から期末でしょうね。3月決算の会社なら、4月~3月が期ですから、その間でしょう。
ただ、たとえば、3年間の中期経営計画等における進捗の話をしているのならば、その期間かもしれません。

QAccess プログレスバー 画面固まる

Access 2007 VBA でファイル出力処理が長いため、以下を参考にしてプログレスバーを設置しました。
http://www.moug.net/tech/acvba/0060023.htm

1,000件程度だと進行状況がちゃんと表示されるのですが、10,000件単位になるとAccess自体が応答せず、プログレスバーも途中で止まったまま、だけど処理は裏で動いているようでファイル出力自体は時間はかかりますがちゃんと出力されます。

DBアクセスを含んだファイル出力処理なので、多少時間がかかっているのかと思います。
また、私の技術の低さから処理自体に時間がかかってしまっていることもあると思いますが、私の技術では処理自体を変えて早くするのは限界です。

Access画面が固まらず、リアルタイムでプログレスバーを進行させる手段等ございましたらご教授いただけるとありがたいです。

Aベストアンサー

プログレスバーは使ったことがないのですが・・・(汗)
(中間状況の表示が必要な場合は、それぞれの処理段階を示す意味も込めて、
 チェックボックスの「Off→Null→On」の表示切替で自作しているもので・・・)

> Access画面が固まらず、リアルタイムでプログレスバーを進行させる手段

ループ処理中の画面再描画の定番操作、DoEvents関数の組み込みという
ことになるかと思います。
http://office.microsoft.com/ja-jp/access/HA012288271041.aspx

但し、あまり高頻度に行うとスタックエラーを起こしますので、複数のループが
ある場合は、ある程度上位に入れるとか、カウントがある数の整数倍になった
ときだけ実行する、といった工夫をしてやる必要があります。


◆提示サイトのコードにDoEventsを組み込んだ例:

Private Sub コマンド1_Click()
  Dim i As Integer
  Dim PauseTime As Double

  Me.Progress1.Max = 10
  Me.Progress1.Min = 0

  For i = Me.Progress1.Min To Me.Progress1.Max

    '1回のループ毎にOSに処理を返す場合
    DoEvents
    '「i」が5の倍数(=5で割った余りが0)のときに実行させる場合
    'If (i Mod 5)=0 Then DoEvents  

    Me.Progress1.Value = i

    PauseTime = Timer + 1
    Do While Timer < PauseTime '※1
    Loop
  Next
End Sub

プログレスバーは使ったことがないのですが・・・(汗)
(中間状況の表示が必要な場合は、それぞれの処理段階を示す意味も込めて、
 チェックボックスの「Off→Null→On」の表示切替で自作しているもので・・・)

> Access画面が固まらず、リアルタイムでプログレスバーを進行させる手段

ループ処理中の画面再描画の定番操作、DoEvents関数の組み込みという
ことになるかと思います。
http://office.microsoft.com/ja-jp/access/HA012288271041.aspx

但し、あまり高頻度に行うとスタックエラーを起こしま...続きを読む

Q工業簿記の原価計算表作成問題の「当月消費高」とは?

工業簿記の問題です。
原価計算表を作成するにあたり、
問題の資料に直接材料費と加工費にそれぞれ「当月消費高」が記載されています。
この「当月消費高」は原価計算表の当月製造費用にそのまま転記するだけでよいのでしょうか?
「当月消費高=当月製造費用=当月投入」と解釈して良いのでしょうか?

問題
平均法によって月末仕掛品を評価し、原価計算表を完成させる。
直接材料はすべて製造の初めに投入された。
計算過程で割り切れない場合は、円位未満四捨五入。

直接材料費 月初仕掛品原価143,360円 当月消費高1,536,000円
加工費 月初仕掛品原価92,160円 当月消費高3,617,280円

完成品数量 2,000kg
月初仕掛品数量 80kg(作業進捗率75%)
月末仕掛品数量 100kg(作業進捗率25%)

**********************************************

当月製造費用
直接材料費?
加工費?

月初仕掛品原価
直接材料費143,360
加工費92,160

月末仕掛品原価
直接材料費?
加工費?

完成品原価?

完成品数量2,000

単位原価?

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

工業簿記の問題です。
原価計算表を作成するにあたり、
問題の資料に直接材料費と加工費にそれぞれ「当月消費高」が記載されています。
この「当月消費高」は原価計算表の当月製造費用にそのまま転記するだけでよいのでしょうか?
「当月消費高=当月製造費用=当月投入」と解釈して良いのでしょうか?

問題
平均法によって月末仕掛品を評価し、原価計算表を完成させる。
直接材料はすべて製造の初めに投入された。
計算過程で割り切れない場合は、円位未満四捨五入。

直接材料費 月初仕掛品原価143,...続きを読む

Aベストアンサー

久しぶりに扱う分野だから、参考程度に。


◎直接材料費
 ⇒始点投入なので作業進捗率(加工進捗度と書くこともある)は考えなくてよい。
月  初
  数量:80kg
  金額:143,360円
月中投入
  数量:2,020kg=完成2,000+月末仕掛100-月初仕掛80
  金額:1,536,000円
*平均単価*
 (月初143,360円+投入1,536,000円)÷(月初80kg+投入2020kg)
  =1,679,360円÷2,100kg
  =799.69523・・・
    →設問の指示により800円/kg
月  末
  数量:100kg
  金額:80,000円=100kg×平均@800円/kg
★製造原価
 143,360+1,536,000-80,000
 =1,599,360円

◎直接加工費[作業進捗率を考えないとダメ]
月  初
  換算数量:60kg=80kg×75%
  金  額:92,160円
月中投入
  換算数量:1,965kg=完成2,000+月末(換算)25-月初(換算)60
  金  額:3,617,280円
*平均単価*
 (月初92,160円+投入3,617,280円)÷(月初60kg+投入1,965kg)
  =3,709,460円÷2,025kg
  =1,831.83209・・・
    →設問の指示により1,832円/kg
月  末
  換算数量:25kg=100kg×25%
  金額:45,800円=25kg×平均@1,832円/kg
★製造原価
 92,160+3,617,280-45,800
 =3,755,240円


◎完成品原価と単位単価
 直接材料費1,599,360+直接加工費3,755,240
  =5,354,600円
 単価は 完成品数量2,000kgで割ればよいので、2,677円30銭/kg


§テキストにも書いてあると思いますが、↓も参考にしてください。
 http://inuboki.com/2kyuu_koubo/chapter5-2.html

久しぶりに扱う分野だから、参考程度に。


◎直接材料費
 ⇒始点投入なので作業進捗率(加工進捗度と書くこともある)は考えなくてよい。
月  初
  数量:80kg
  金額:143,360円
月中投入
  数量:2,020kg=完成2,000+月末仕掛100-月初仕掛80
  金額:1,536,000円
*平均単価*
 (月初143,360円+投入1,536,000円)÷(月初80kg+投入2020kg)
  =1,679,360円÷2,100kg
  =799.69523・・・
    →設問の指示...続きを読む

QACCESSでのプログレスバー表示について

ACCESSでのプログレスバー表示をしようと考えています。
EXCELでは別フォームでのプログレスバー表示ができたのですが、
ACCESSではうまくいきません。

Web上でのサンプルも同一画面内でのプログレスバー表示でMeを使うものばかりです。
別画面でフォームを表示して制御することはACCESSでできるのでしょうか?

Aベストアンサー

Private Sub コマンド5_Click()
On Error GoTo Err_コマンド5_Click
  Dim I As Integer

  DoCmd.OpenForm "Test", , , Null
  For I = 1 To 100
    Forms("Test").Controls("ProgressBar").Value = I
    Pause 0.1
  Next I
  DoCmd.Close acForm, "Test"
Exit_コマンド5_Click:
  Exit Sub
Err_コマンド5_Click:
  MsgBox Err.Description
  Resume Exit_コマンド5_Click
End Sub

これは、フォーム"Test"をオープンし0.1秒毎に進捗度表示を更新し10秒後に閉じるコードです。同様のやり方で目的は達成出来ると思います。

Q上手な会議とは

うちの会社の会議は長くて、何も解決しない事が多く、困っています。

会議参加人数は10人程度。
参加者は平8・主任1・中間管理職1で構成。
2週ごとに行い、議題は主に進捗報告がメイン。
(っていうか議題は無い。。)
業種はソフトウェア開発業。
売上は伸び悩み中。。。
社員モチベーションは低し…

社内を明るくし売上↑のためには、会議を楽しく活発にすべきだと思っています。
良い会議の方法のアドバイスをお願いします。

Aベストアンサー

議題がないのだから何も解決しなくて当然、議題・テーマがない集まりは会議ではありません。
会議の目的は何でしょうか。課題解決?売り上げ増?職場の雰囲気・人間関係の改善・向上?それが判らなければそもそも開く必要がありません。なのに長時間拘束されるなど、失礼ながら「ずいぶん暇な職場」って思われてしまいますね。
いっその事会議を止めてしまえば何を論議しなければならないかが明確になるでしょう。
議題を明確にします。何かのアイデアの出す会議、決める会議、事前に参加者に議題(会議の目的)を案内。会議の中で決めたことは、また解決に時間がかかることは誰が何時までに完了させるかなどの役割迄決めます。それは何時何時まで(次回会議等)で報告する~ところまで決めなければなりません。そして大事なことは会議の記録者(議事録作成者)を決めて会議の記録、決まった内容を文章にし、会議終了後で期だけ早い時期(できれば翌日まで)に参加者全員に配布してください。報告進捗報告であれば、朝礼のようなメンバーの集まる場での報告で十分でしょう。
会議の開き方についてはいろいろな書籍もありますし、「会議の進め方」で検索するといろいろな会社・個人のHPがヒットします。そちらを参考にされてはいかがでしょうか。

議題がないのだから何も解決しなくて当然、議題・テーマがない集まりは会議ではありません。
会議の目的は何でしょうか。課題解決?売り上げ増?職場の雰囲気・人間関係の改善・向上?それが判らなければそもそも開く必要がありません。なのに長時間拘束されるなど、失礼ながら「ずいぶん暇な職場」って思われてしまいますね。
いっその事会議を止めてしまえば何を論議しなければならないかが明確になるでしょう。
議題を明確にします。何かのアイデアの出す会議、決める会議、事前に参加者に議題(会議の目的)...続きを読む

QAceessのステータスバーについて

幼稚な質問で恐縮です。フォーム画面で下部の方にステータスバーが表示されていますがこれはどんな役に立つのでしょうか。少しでも画面を食いますので表示しないにしようかと思っていますが有益であれば使いこなしたいと思っています。宜しくお願いします。

Aベストアンサー

私は、こんなことに使っています。
こんな使い方もあるということで、参考にしてください。

参考URL:http://www.accessclub.jp/samplefile/samplefile_87.htm

Q大学の教授とは

大学の教授というのは研究者であり、また教育者であるという立場で、自分の研究をすすめる傍らで学生の教育も行わなければなりません。

そこで
みなさんのゼミでの教授はどのような人でしょうか?
またゼミでの教授というのはどうあるべきでしょうか?
考えを聞かせていただきたいです。

私の教授は私にあまり仕事を押し付けることなく、私がやりたいことを自由にやらせてもらっている感じがします。ただほとんど何も教えてくれないですし、たまに進捗を聞かれるくらいで、放置されてるのかな?と感じてしまいます。しかし他の大学では、学生を自分の仕事のためにこき使う教授もいるようで、そういう教授からすれば恵まれているのかなという気がします。

Aベストアンサー

>私の教授は私にあまり仕事を押し付けることなく、私がやりたいことを自由にやらせてもらっている感じがします。ただほとんど何も教えてくれないですし、たまに進捗を聞かれるくらいで、放置されてるのかな?と感じてしまいます。

むかしはそういう例が多かったと思います。ぼくが学んだのは大学紛争の余韻がまだ残る時代で,「指導教員」という概念さえありませんでした(書類に認め印をもらうとき以外は)。感謝しているのは,どんな勝手をやろうが「出て行け」と言われなかったことです。しかし,この方式はドロップアウトも大量に生産します。ぼくは,いまでこそチンタラ生きているオヤヂですが,累々と重なる屍を乗り越えて生きてきたんですよ 笑。

その経験からの反動のために,ぼくはゼミでは「おせっかい」なほうだろうと思います。3連休も卒論指導のためにずっと大学にいましたし。ここで回答をつけているのも,その一環かもしれませんね。

>しかし他の大学では、学生を自分の仕事のためにこき使う教授もいるようで、

自分ももとは理系なので自覚できますが,理系の脳味噌はかなり早期に耐用年数を超えてしまうことが多いでしょう。そうなると,研究テーマをぶちあげてカネをとってきて,手下に仕事をやらせて連名で業績を出していくしかなくなります。そういう構造なのであって,教員の性格や人格の問題ではないと思います。

>私の教授は私にあまり仕事を押し付けることなく、私がやりたいことを自由にやらせてもらっている感じがします。ただほとんど何も教えてくれないですし、たまに進捗を聞かれるくらいで、放置されてるのかな?と感じてしまいます。

むかしはそういう例が多かったと思います。ぼくが学んだのは大学紛争の余韻がまだ残る時代で,「指導教員」という概念さえありませんでした(書類に認め印をもらうとき以外は)。感謝しているのは,どんな勝手をやろうが「出て行け」と言われなかったことです。しかし,この方式は...続きを読む

QACCESSのPrintoutメソッドについて

ACCESS2000

コードのPrintoutメソッドですが、条件を指定しても「型が一致しません」とエラーが出ます。

DoCmd.PrintOut stDocName, , , "ID = " & [Forms]!報告書フォーム.Form!ID

としています。

条件を指定することは不可能なんでしょうか?それとも記述の仕方に問題があるのでしょうか?

Aベストアンサー

#1の回答を書いたものです。

申し訳ございません(^^;; 私が質問をあまり良く読んでおりませんでした。

PrintOutメソッドだったのですね。(OpenReportメソッドと勘違いしてました。)

PrintOutメソッドは、上部のメニューからファイル - 印刷を選択して
現在画面に表示されているオブジェクトを印刷する動作と同じですので
「stDocName」のような変数で印刷するオブジェクト名を指定したり
条件式を付加したりする事はできません。

PrintOutメソッド、OpenReportメソッドなどの使い方に関しては
この辺りが参考になるかと。
http://www.geocities.jp/cbc_vbnet/kisuhen/docmd.html


人気Q&Aランキング

おすすめ情報