「夫を成功」へ導く妻の秘訣 座談会

WindowsNTでAccess2000を使っています。
Accessで製造業の工程管理をしたいのですが
なかなか全体像がつかめません。
データを打ち込んで必要なものだけをピックアップするだけでなく、
ガントチャートのような視覚的にもみやすい工程表を作りたいのです。
フリーソフトを参考にしようと思いましたがなかなか該当するものは見つからず…。
そういったものはExcelのほうが向いているのは分かっているのですが
データ量を考えてもAccessで管理したいです。
なにかよい案をお持ちの方、よろしくお願いします。

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

A 回答 (2件)

解答というよりはアドバイスを。



データを格納・管理するのはAccessでかまわないと思いますが、ガントチャートを表現するのはExcelのほうが得意でしょうね。

ということは
AccessのVBAからExcelをコントロールしてチャートを描画する方法。
AccessのVBAからCSVまたはExcelファイルを出力し、あらかじめ用意しておいたExcelを手動で開き、Accessで出力したファイルを読み取ってチャートを描画する。(ExcelのVBAを使用)
といった方法が考えられます。

ただし、いずれにせよガントチャートを描画するのには変わりありませんので、ガントチャートを作成するのにはどんな種類の情報が必要なのかを考えるのが重要でしょうね。
プロジェクトがあり、その中にいくつかの工程があり、それぞれの工程には開始予定日、終了予定日、作業量などがある、と。さらに各工程を担当する作業者名まで入る可能性もあります。
各工程のうち、同じライン上で数回登場するものがあれば、プロジェクトと工程の間にライン情報(とでも言えばよいのかな)みたいな情報が必要になり、同じライン情報を持つ複数の工程はチャート上で同じ行に並ぶことになる、と。
しかし行に複数回登場する工程同士は重なっちゃダメなわけで、データ入力時にはそこら辺のチェックも必要ですね。

と、ここまでの説明だとデータ入力とガントチャート表示がまったくの別セッションになってます。
と言うことは、最終的なガントチャートを想像しながら入力しなくてはならないわけですから非常に入力しづらいものになってしまいますよね。
ここらへんも考え物です。
    • good
    • 0

専門のプログラマーにしっかりとしたものを作ってもらうことをオススメします。



中途半端に素人がやってしまうと、あとあと手間が増えて重大なミスを犯すことがありますので慎重にやったほうがいいと思います。
    • good
    • 0

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

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Qアクセスで工程進捗管理ってできるのですか?

アクセス初心者です。
生産現場で使用する工程進捗管理をアクセスで出来ないもの
か考えています。漠然とした質問になってしまいますが、実際に
アクセスでこのような事ができるのか?
アクセスに詳しい方、教えてください。

小生のイメージ
・工程へ払出されたロットの進捗管理(ガントチャート的なものが作成できるのだろうか?)

Aベストアンサー

Q、アクセスで工程進捗管理ってできるのですか?
A、出来ます。

例えば、バーコードで各工程で通過するロット番号を読ませるとします。
で、画面に表示されているガントチャートもどきの該当位置を検索。
で、一致する行まで画面を上下にスクロールしてデータを表示を更新。
これが、私が10年前に作成した進捗管理です。

1、サーバー・クライアントで開発しないと対応できません。
  可能ならば、SQL Sever+Access.adp だと快適に動作。
  少なくとも、サーバーマシンにバックエンドを構築。
  各工程にはフロントエンドを配置。
  でないと、まず、動作しません。

2、画面はクローンを使ってブックマーク移動で対応。

Set frmEmoloyees = Screeen.ActiveForm

Set rstEmoloyees = frmEmoloyees.RecordsetClone

これで、画面の当該レコードまでスクロールしバーコードを反映できた(?)と思います。

大体、こんなイメージで開発することが可能です。

Q、アクセスで工程進捗管理ってできるのですか?
A、出来ます。

例えば、バーコードで各工程で通過するロット番号を読ませるとします。
で、画面に表示されているガントチャートもどきの該当位置を検索。
で、一致する行まで画面を上下にスクロールしてデータを表示を更新。
これが、私が10年前に作成した進捗管理です。

1、サーバー・クライアントで開発しないと対応できません。
  可能ならば、SQL Sever+Access.adp だと快適に動作。
  少なくとも、サーバーマシンにバックエンドを構築。
...続きを読む

Qアクセスでガントチャート作成

アクセスでガントチャート的な表を作ることは可能ですか?
ピボットテーブルのグラフを使えばいいのでしょうか?

Aベストアンサー

こちらを参考に。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10119749855

QAccessの画面更新を一時的に停止する方法。

こんにちは。
Accessの画面更新を一時的に停止する方法を捜しています。
ExcelのScreenUpdatingと同様な機能です。

VBAでの更新処理時に画面がチラチラと動くのを防止したいと思っています。
(Ver:Access2000)
ご存知の方宜しくお願い致します。

Aベストアンサー

Application.Echo False '画面の描画を止める

・・・処理を実行する・・・

Application.Echo True '画面の描画を行う

QAccess 最後のレコードに到達するまでループ処理を行う方法

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

フォームでボタンをクリックすると、
計上年度と計上月をすべてのレコードに入力させようとしています。
下記のように、For~Nextで書いてみたのですが、
選択されているレコードが、一番最初のレコードではない場合、
エラーが返ってしまいます。
おそらく「レコードの数分繰り返す」という書き方のせいだと思います。
これを「最後のレコードに到達するまで」としたいのですが、
どのように書いたらよいでしょう??

ご存知の方がいらっしゃいましたら、教えてください。

Private Sub 計上年度月入力_Click()
Dim Max As Integer
Dim i As Integer
Max = DCount("[計上月]", "年次請求集計Q")

For i = 1 To Max

If 計上月 <> 0 Then
DoCmd.GoToRecord , , acNext
Else
計上年度2 = 計上年度1
計上月2 = 計上月1
DoCmd.GoToRecord , , acNext
End If
Next i
End Sub

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

フォームでボタンをクリックすると、
計上年度と計上月をすべてのレコードに入力させようとしています。
下記のように、For~Nextで書いてみたのですが、
選択されているレコードが、一番最初のレコードではない場合、
エラーが返ってしまいます。
おそらく「レコードの数分繰り返す」という書き方のせいだと思います。
これを「最後のレコードに到達するまで」としたいのですが、
どのように書いたらよいでしょう??

ご存知の方がいらっしゃいましたら、教えてくだ...続きを読む

Aベストアンサー

うんそれでしたら、
Private Sub 計上年度月入力_Click()
Dim RecSet As Recordset
Dim strSQL As String

strSQL = "SELECT * FROM 請求集計T"
strSQL = strSQL & " WHERE クエリの条件式"←ここを注意してください。
Set RecSet = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

RecSet.MoveFirst
Do Until RecSet.eof
 If 計上月 = 0 Then
RecSet.Edit
  RecSet.Fields("計上年度2") = 計上年度1
  RecSet.Fields("計上月2") = 計上月1
RecSet.Update
 End If
 RecSet.MoveNext
loop
RecSet.close
Set RecSet = Nothing
End Sub
ちなみに、計上年度2と計上月2はレコードフィールド、計上年度1と計上月1はフォームに配置されているテキストだと見なして作っています。

うんそれでしたら、
Private Sub 計上年度月入力_Click()
Dim RecSet As Recordset
Dim strSQL As String

strSQL = "SELECT * FROM 請求集計T"
strSQL = strSQL & " WHERE クエリの条件式"←ここを注意してください。
Set RecSet = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

RecSet.MoveFirst
Do Until RecSet.eof
 If 計上月 = 0 Then
RecSet.Edit
  RecSet.Fields("計上年度2") = 計上年度1
  RecSet.Fields("計上月2") = 計上月1
RecSet.Update
 End If
 RecSet.MoveN...続きを読む

QAccessのフォームのみ表示させたい

Accessを起動した際、フォームのみ表示するにはどうすればよいのでしょうか?
(Accessを起動すると、オブジェクトメニュー?(テーブルやクエリ等のオブジクトを選択するウィンドウ)を表示させないで、フォームのみを表示させるには?)
また、上記と同じようにして、なおかつAccessを起動させないでフォームで起動や終了といったことが出来るのでしょうか?
やはりこれはVB等プログラミングでないと出来ないのでしょうか?ちなみに私はプログラミングは全く出来ません。
わかる方、教えて下さい。宜しくお願いします。

Aベストアンサー

ツールメニュー
”起動時の設定”を開き

フォーム/ページの表示にて起動時に表示させたいフォームを選択すれば、そのMDBを開いた時に、該当のフォームが表示されます。

メニュー画面等を作り、各処理のフォームを開いたり、アクセスを終了するマクロを呼び出すボタンを作ればフォームからの終了等も可能です。

また、データベースウィンドウの表示のチェックボックスを外せば、質問者様の言われているオブジェクトメニューは表示されなくなります。

メンテナンス等を行いたい時はshiftキーを押下しながら立ち上げればデータベースウィンドウが表示できます。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング