初めて質問をいたします。よろしくお願いいたします。
Win 2007/Access 2007なのですが、
以下の記述のアドバイスをいただけないでしょうか。
症状は、レコード数を表示させたいフォームのテキストボックスに何も表示されない状況です。
<凡例>
テーブルA
テーブルB
テーブルC
テーブルD
があります。
テーブルAはテーブルBとaにてリンク
テーブルBはテーブルCとｂにてリンク
テーブルCとテーブルDはｃにてリンクしているものとします。
<やりたいこと>
フォームAのテキストボックスX、Y、Zを参照し、コマンドボタンをきっかけに、フォーム内部のWのテキストボックスに取得したｂのカウント数を、再計算後に表示させたいと思っています。
<その他>
Xはテキストボックス名でテキスト型
Zはテキストボックス名で日付型です。
Wはテキストボックス名で数値型です。
★はｂのカウント数です。
＊は、数値型のレコードです。
＋は、テキスト型のレコードです。
＠は、日付型のレコードです。
<以下質問コード>
Private Sub Form_Open(Cancel As Integer)
Dim db As DAO.Databese
Dim rs As DAO.Recordset
Dim SQL As Variant
Set db = CurrentDb
SELECT Count(C.ｂ) AS ★ FROM A INNER JOIN ((B INNER JOIN C ON B.b = C.b) INNER JOIN D ON C.c = D.c) ON A.a = B.a WHERE (((A.＊)=1) AND ((D.＋)=X) AND ((B.＠)="0000-00-00 00:00:00") AND ((A.＠) Between Y And Z));
Set rs = db.OpenRecordset(SQL)
Me.W = rs!★
Set rs = Nothing
Set db = Nothing
End Sub
<以上質問コード>
退職者が作ったアクセスデーターベースなのですが、
テキストボックスWに計算されたデータ数が表示がされなくなり、
自分なりに過去の質問をさぐってみたのですが、
いまだに、ゴールに行きつきません・・・。
質問の仕方が間違えていましたら申し訳ありません。
どうか、アドバイスのほど、よろしくお願いいたします。
はじめまして。
ExcelでGUIなガントチャート作成ツールっぽいものを作ろうと思っています。
そして、現在以下の実装で検討中です。
・実際のタスクを管理する「タスク」シートと、タスクを表として表示する「カレンダー」シートを別に管理。
・「タスク」シートにはタスクID・タスク名・開始日・終了日の情報を保持
・「カレンダー」シートは、
1～3行目にカレンダー、1～5列目がタスクID・タスクの分類・タスク名などの情報を表示し、
「タスク」シートに記載されているタスクを「カレンダー」上にプロット。
・ユーザは「カレンダー」シートのタスク(セルで持っています)をマウスで操作することで、
タスクの追加・削除やスケジュール変更を行う
※Excelはユーザのマウスによる操作をセルの座標から該当タスクを特定し、
「タスク」シートの該当タスクの内容をセルの操作に応じて更新。
その後、更新後のタスクを元にカレンダーを再描画する。
---
で、「カレンダー」シートには、下記の要領のプログラムをかいています。
'常駐監視処理の操作用フラグ
dim Flg as Boolean
'ワークシートがアクティブになったときの処理
Private Sub Worksheet_Activate()
Flg = True
Call 監視
End Sub
'ワークシートが非アクティブになったときの処理
Private Sub Worksheet_Deactivate()
Flg = False
End Sub
Sub 監視()
debug.print "■監視開始"
Do While Flg
'ここに監視用の処理を実装予定
Loop
debug.print "■監視終了"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'セル更新時の処理
debug.print "■更新"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'選択範囲変更時の処理
debug.print "■選択範囲変更"
End sub
---
このプログラムを起動した状態で、該当シートでセルのドラッグ&ドロップの
操作を行った際、Excel.EXEアプリケーションエラーが発生します。
「デバッグ」ボタンを押すと以下の添付画像のダイアログが表示されます。
※Worksheet_Change/Worksheet_SelectionChangeのイベントでも
トラップすることができません。
このエラーを回避する方法がありましたら教えていただけると助かります。
