DexMachina の回答履歴

こんにちは。 以前、DexMachina様にご教授頂いたのですが 違うフォームを作っていたら データシートビューからフォームビューへ切り替えられないので教えてくださいませ。（アクセス2003） 前回質問：http://okwave.jp/qa4982081.html フォーム上（デザインビュー）にテーブルをドラッグしました。 （サブフォームのデフォルトのビューは、データシートビューになっていますが単票ビューに切り替えました。） 一度保存し、再度フォームを開くと、単票ビューで表示されるので その状態で、 Sub test() Forms("フォーム1").SetFocus Select Case Forms("フォーム1").Form.CurrentView Case 1 'フォームビューの場合　→　データシートビューに切替 DoCmd.RunCommand acCmdSubformDatasheetView ' Forms("フォーム1").DefaultView = 2 Case 2 'データシートビューの場合　→　ピボットテーブルに切替 DoCmd.RunCommand acCmdSubformPivotTableView End Select End Sub を実行すると、ちゃんとデータシートビューに切り替わります。 そしてデータシートビューからフォームビューへ切り替えようと思い 再度上記のコードを実行しても何も起こりません。 （エラーにもなりません） なぜでしょうか？ ちなみに規定のビューをデータシートビューにして上記マクロを実行しても同様何も起こりません。データシートビューのままです。 MsgBox Forms("フォーム1").DefaultView で値を取得してみたら データシートビューでもフォームビューでも0が返って来ます。 何か原因がわかる方いらっしゃいましたら ご教授よろしくお願いします。

現在VBAで既存のオブジェクトをカスタマイズする必要があります。 aaaというオブジェクトの下に、新たに自分で オブジェクトメンバを追加し、そこにオブジェクト、プロパティを 配置していきく必要があります。 (顧客配布時に、一貫したコーディングが出来るように) aaa.aab.aac と言うものに aaa.BBB.CCC aaa.BBB.QQQ といった形に、発展させて行きたいのですが こう言ったことが出来ますか？ ちなみに、aaaオブジェクトの詳細はブラックボックスです。 そして、このこれらを、コーディング時の参照リストにも 追加したいです。 稚拙な質問で申し訳ないですが、よろしくお願いします。

現在VBAで既存のオブジェクトをカスタマイズする必要があります。 aaaというオブジェクトの下に、新たに自分で オブジェクトメンバを追加し、そこにオブジェクト、プロパティを 配置していきく必要があります。 (顧客配布時に、一貫したコーディングが出来るように) aaa.aab.aac と言うものに aaa.BBB.CCC aaa.BBB.QQQ といった形に、発展させて行きたいのですが こう言ったことが出来ますか？ ちなみに、aaaオブジェクトの詳細はブラックボックスです。 そして、このこれらを、コーディング時の参照リストにも 追加したいです。 稚拙な質問で申し訳ないですが、よろしくお願いします。

VBAにて、ユーザーフォーム上のテキストボックスに初期値として今日の日付が入力されており、さらにそれを任意で変更することも出来、最終的なテキストボックスの値を変数に格納するというマクロを作成しようとしています。 'テキストボックス2の初期値を今日の日付とする Private Sub UserForm_Initialize() TextBox2.Text = Format$(Date, "yyyy/mm/dd") 'テキストボックス2の値が日付かどうかチェック Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If IsDate(TextBox2.Value) Then DenpyouDate = TextBox2.Value Else TextBox2.Value = "" MsgBox ("日付が不正です") TextBox2.Text = Format$(Date, "yyyy/mm/dd") End If End Sub '他のモジュールでdenpyoudateを使用し、指定のセルに和暦形式で入力する Public DenpyouDate As Date Sheets("伝票").Range("A10").Value = Format(DenpyouDate, "e") Sheets("伝票").Range("C10").Value = Format(DenpyouDate, "m") 「ユーザーフォームのテキストボックスに初期値として日付を表示させ、その最終的な値を変数として格納、別のモジュールで呼び出してセルにセットする」というイメージです。 このマクロを実行した際、初期値である今日の日付を任意の日付に変更した場合は、問題なくそのままの値がセルにセットされるのですが、初期値のまま実行すると、その数値が反映されません。 ローカルウィンドウをチェックすると、ユーザーフォームの時点では、テキストボックスの初期値がきちんとdenpyoudateに格納されているのですが(例：2009/11/24)、それを別モジュールで呼び出した時は、denpyoudateの値が(#0:00:00#)になっており、これが原因だと考えています。 このエラーを回避し、初期値の場合でも値がきちんとセルにセットされるようにするには、どうしたらよいでしょうか？

本日新品で、LaVie Light BL300/TA6B PC-BL300TA6Bを購入したのですが、 初回起動時から、ディスプレイの下約1cmが乱れた状態になっています。 画面の故障なら初期不良で交換してもらえばいいのですが、 画面のプロパティを参照すると、初期設定の画面解像度が1024×576となっており、このパソコンのディスプレイの仕様の1024×600になぜだか24ピクセル足らないのです。 画面のプロパティで設定の変更を試みようとするも、1024×600の解像度設定はプルダウンメニューに見当たらず、画面下が気になって仕方がない状態です。 ディスプレイドライバーの更新や、BIOSのアップデートや設定のチェックも行いましたが、改善しそうにありません。 調べてみても同様の症状の方はいないようで、大変困っています。 どなたか解決方法などご存知でしたらお教えください。

いつもお世話になります。 アクセスの単票形式フォームで、テキストボックスに数値を表示させています。タイマーで元データのテーブルを読み込んだ時に、最後に更新したテキストボックスがアクティブになっている（テキストボックス上でカーソルが点滅している）のですが、アクティブを解除する方法はありますでしょうか。

お世話になっております よろしくお願いします。 WindowsXP　SP3 office2000 を使っています テーブルに2つのデータがり それをフォームで表示しています 表示した際に下のほうにページ移動の黒い三角のマークがあると思うのですが そのページを移動をしたときに発生するイベントはないのでしょうか？ データによってラベルを表示・非表示をしたいのですが 最初に非表示になると次からは非表示のままです Private Sub Form_Load() If me.フィールド名 = 0 Then me.フィールド名.Visible = False End If これをどこに書いたらページごとに実行できるのでしょうか？ 以上よろしくお願いします。

またお世話になります。 Access2003を使用しています。 不要になったアカウントを削除できるようなものを作成したいのですがうまくいきません。 リストボックスに表示されたアカウントを選択し、 ボタンを押すとテーブルから削除できるというものを考えています。 テーブル名：　tbl_ユーザー フィールド名：　ユーザー名　パスワード　アカウント フォーム名：　frm_Account_Delete 　リストボックス：　UserList 　コマンドボタン：　Del いろいろ調べて自分なりに作ってみたのですがエラーが出てしまいました。 ―――以下VBAコード――― Dim db As Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("tbl_ユーザー") If IsNull(UserList) Then MsgBox "削除するアカウントを選択してください" Else If MsgBox(UserList & "を削除しますか？", vbYesNo) = vbYes Then db.TableDefs.delete UserList　　　　 MsgBox "UserListを削除しました。" End If End If rs.Close db.Close Set db = Nothing ―――以上――― これだと”このコレクションには項目がありません”というエラーが出ます。 アドバイスをよろしくお願いします。

いつもお世話になります。 フォームのテキストボックスに数値を表示させているのですが、表示された数値の下一桁が1なら赤文字にする時の条件のつけ方はどのようにすればよいでしょうか。

ACCESSの表形式のフォームにYES/NOフィールドを足して 一覧フォームで任意のチェックボックスを選択して 選択されたデータのみを表示するようにしたいです。 しかしチェックボックスはレコードひとつひとつについてるのですが 認識されるチェックボックスは一番上のレコードのチェックボックスのみです。どうすればレコード別に判定できるのがわからないので 詳しい方ご教授お願いします。自分が書いたのは下記コードです。 Dim chkBln As Boolean chkBln = False If チェック50 = True Then chkBln = True MsgBox chkBln End If '検索結果の表示 DoCmd.OpenForm ("データ修正画面") '自身のレコードソースに設定 Forms("データ修正画面").RecordSource = "Select * From T_障害票マスタ WHERE チェック = " & chkBln & ""

お世話になっております よろしくお願いします。 WindowsXP　SP3 office2000 を使っています テーブルに2つのデータがり それをフォームで表示しています 表示した際に下のほうにページ移動の黒い三角のマークがあると思うのですが そのページを移動をしたときに発生するイベントはないのでしょうか？ データによってラベルを表示・非表示をしたいのですが 最初に非表示になると次からは非表示のままです Private Sub Form_Load() If me.フィールド名 = 0 Then me.フィールド名.Visible = False End If これをどこに書いたらページごとに実行できるのでしょうか？ 以上よろしくお願いします。

アクセスのクエリで、フィールド1を DATE()にし、本日日付を表示させていますが、これを日付型ではなく、テキスト型で表示させる事はできますか？表示は2009/11/15表示で構いません。また、できるのであれば、20091115の様に8文字で表示する事はできますか？ 誰か教えて下さい。よろしくお願いします。

アクセス2000を使用してデータベースを作っています。 今までアクセスは出来上がったシステムを使用するばかりでしたが、WEB上の検索とヘルプファイルだけを頼りに初挑戦しています。 設計自体おかしなところもあるかもしれませんが、今回どうしてもHITしなかったので質問させていただくことにしましたので、よろしくお願い致します。 作業依頼が親会社から来て、これを社員に指示し、完了結果を日々報告しなければなりません。 これをアクセスで管理しようと作業を始め、テーブル：作業依頼一覧表を作り、これを元に入力・検索フォームやレポート：作業指示書などを作り終えたところです。 表形式の検索フォームの作業依頼ID（オートナンバー）のダブルクリック時イベントに、レポート作業指示書を印刷するようマクロで設定してあります。 この検索フォームのフィールド作業完了日をダブルクリックすると、テーブル作業完了一覧にレコードを追加したいのですが行き詰ってしまいました。 どなたかご教授いただけないでしょうか？

アクセス2000を使用してデータベースを作っています。 今までアクセスは出来上がったシステムを使用するばかりでしたが、WEB上の検索とヘルプファイルだけを頼りに初挑戦しています。 設計自体おかしなところもあるかもしれませんが、今回どうしてもHITしなかったので質問させていただくことにしましたので、よろしくお願い致します。 作業依頼が親会社から来て、これを社員に指示し、完了結果を日々報告しなければなりません。 これをアクセスで管理しようと作業を始め、テーブル：作業依頼一覧表を作り、これを元に入力・検索フォームやレポート：作業指示書などを作り終えたところです。 表形式の検索フォームの作業依頼ID（オートナンバー）のダブルクリック時イベントに、レポート作業指示書を印刷するようマクロで設定してあります。 この検索フォームのフィールド作業完了日をダブルクリックすると、テーブル作業完了一覧にレコードを追加したいのですが行き詰ってしまいました。 どなたかご教授いただけないでしょうか？

メニュー画面のボタンにマクロを埋め込み、クリックすると 1.メッセージボックスを表示し、この後行われる処理を表示 2.追加マクロ 3.削除マクロ としていますが、ボタン自体を選択ミスした時に、1のメッセージで"はい""いいえ"が選択でき、"はい"ならその次の項目を実行し、"いいえ"なら中止、メニュー画面に戻る様にするにはどのようにしたら良いですか？ 今の状態だと、ボタンを選択ミスしても1で"はい"しか選択できずに、その後の処理が始まってしまいます。 誰か教えて下さい。よろしくお願いします。

ACCESSの表形式のフォームにYES/NOフィールドを足して 一覧フォームで任意のチェックボックスを選択して 選択されたデータのみを表示するようにしたいです。 しかしチェックボックスはレコードひとつひとつについてるのですが 認識されるチェックボックスは一番上のレコードのチェックボックスのみです。どうすればレコード別に判定できるのがわからないので 詳しい方ご教授お願いします。自分が書いたのは下記コードです。 Dim chkBln As Boolean chkBln = False If チェック50 = True Then chkBln = True MsgBox chkBln End If '検索結果の表示 DoCmd.OpenForm ("データ修正画面") '自身のレコードソースに設定 Forms("データ修正画面").RecordSource = "Select * From T_障害票マスタ WHERE チェック = " & chkBln & ""

いつもお世話になっております。 Access2007で、レポートを作成し、そのレポートからフォームを使ってレコードを追加する場合、レポートにある情報IDのフィールドの値を、新規追加するフォームにコピーすることはできますでしょうか？ テーブルは[T_記録]　：　記録ID、情報ID、日時、内容、記録日時、記録者 レポートは[R_記録] フォームは[F_記録] 宜しくお願いします。

こんにちは。 Accessで見積書を作っています(Access2003) 商品単価に、小数がある場合があり、（例　\2.05）小数第2まで表示させ印刷できるようにしましたが、中には、\18,000,000のような桁数が多い単価があり、これに小数第2まで印刷すると、\18,0000,000.00になりとてもわかりにくくなってしまいます。 それで小数がある場合のみ小数第2、それ以外は整数で印刷されるようにしたいです（\付きで） なにかいい方法はないでしょうか？よろしくお願いします。

こんにちは。 Accessで見積書を作っています(Access2003) 商品単価に、小数がある場合があり、（例　\2.05）小数第2まで表示させ印刷できるようにしましたが、中には、\18,000,000のような桁数が多い単価があり、これに小数第2まで印刷すると、\18,0000,000.00になりとてもわかりにくくなってしまいます。 それで小数がある場合のみ小数第2、それ以外は整数で印刷されるようにしたいです（\付きで） なにかいい方法はないでしょうか？よろしくお願いします。

アクセス初心者です。 会社にある既存のアクセスDBを使いデータ処理をしています。 商品を管理するためのDBなんですが、単純に言うと、まずフォーム画面上に何千もの商品名がエクセルのような一覧表になってズラ～っと表示され、その中からひとつを選択するとその商品の詳細情報の画面に移行、そこで情報を管理更新するというDBです。 困っているのは、最初の一覧になってる画面の商品名の横にそれぞれチェックボックスがついているんですが、そのチェックボックスが反応してくれなくなったんです。（クリックしてもチェックマークが入らない） 先ほどまで問題なく使用できていたのですが・・・ただ、大元のDB部分は問題なく動いております。 何千もある商品情報を年1回チェックするんですが、この商品はチェック済、これはまだということが一覧表示の際に確認できるように使っているだけのチェックボックスなので、中身のDBとの関連はないと思われます。 フォームデザインビュー上で、そのチェックボックスをダブルクリックすると表示されるフィールドのプロパティ（というのでしょうか？）のどこかが関連してると思われるのですが、どこかが分かりません・・・ どなたかお願い致します。