DexMachina の回答履歴

フォームAを閉じて、フォームBのテーブルに基づいたデータをリクエリ（更新）したいのですが DoCmd.Close acForm, "フォームA" DoCmd.Requery "フォームB" 実行時エラー2109　「カレントレコードには、フォームBという名前のフィールドはありません。」となってしまいます。 フィールド名ではなくフォームB全体を更新したいのですが、どうすればいいでしょうか？ フォームBは開いている状態です。

アクセスのフォームを、エスケープキーを押して、フォームを閉じるにはどうすればいいでしょうか？ DoCmd.Close acForm, フォーム名 で閉じることは分かったのですが、「エスケープキーを押したら」とする方法を教えてください。

AccessVBAでクエリのＳＱＬ文を出力する事ってできないですか？ 例えば、 クエリ１があったとして、 そのＳＱＬ文をDebug.Printで書きだしたいのですが 可能でしょうか？ ADOXあたりを使えば可能でしょうか？ ナビゲーションウインドウで右クリックして デザインビューで開き、ＳＱＬビューを見ればＳＱＬ文が見れますが たくさんのＳＱＬ文を取得して、 それを条件分岐したいのでVBAで書きだしたいのです。 よろしくお願いします。

Win7 Ultimate アクセス2013でタイマー機能を使って夜中にデータをアップデートしています。 リンクテーブルAのデータをを全て消して、その後リンクテーブルBからデータを全てリンクテーブルAに追加する事をしています。データは200列で約10,000件あります。削除クエリーと追加クエリーをマクロに記してあります。 これをマクロで手動でやると何度やっても問題なく動きますが、フォームを開いておいてタイマーでマクロを動かすと、できる時があったり、マクロのエラーが出ていたり、ひどい時はリンクテーブルAのデータをを消して、その時点でエラーになっている時もあります。 アクセス2010、2013はトラブルが多々ありますので、Win Vista Ultimate　アクセス2003SP3でも試してみましたが結果は同じでした。しかし2013に比べエラーの出る頻度ははるかに2003の方が少ないと思います。 2003も同じくマクロを手動でやればエラーは全く出ません。 このアクセスのフォームのタイマーは、使い物にならない物なのでしょうか。 簡単なもの（小さいテキストファイルをフォルダーAからフォルダーBに動かす）はタイマーでやっても一度もエラーは出ません。 ご意見をお聞かせ下さい。

Win7 Ultimate アクセス2013でタイマー機能を使って夜中にデータをアップデートしています。 リンクテーブルAのデータをを全て消して、その後リンクテーブルBからデータを全てリンクテーブルAに追加する事をしています。データは200列で約10,000件あります。削除クエリーと追加クエリーをマクロに記してあります。 これをマクロで手動でやると何度やっても問題なく動きますが、フォームを開いておいてタイマーでマクロを動かすと、できる時があったり、マクロのエラーが出ていたり、ひどい時はリンクテーブルAのデータをを消して、その時点でエラーになっている時もあります。 アクセス2010、2013はトラブルが多々ありますので、Win Vista Ultimate　アクセス2003SP3でも試してみましたが結果は同じでした。しかし2013に比べエラーの出る頻度ははるかに2003の方が少ないと思います。 2003も同じくマクロを手動でやればエラーは全く出ません。 このアクセスのフォームのタイマーは、使い物にならない物なのでしょうか。 簡単なもの（小さいテキストファイルをフォルダーAからフォルダーBに動かす）はタイマーでやっても一度もエラーは出ません。 ご意見をお聞かせ下さい。

Access2010　SP1を使用しています。 帳票サブフォームを含むフォームを作成しています。 1.そのフォームを開いている時、VBAで実際のフォーカス（カーソルがあって直接入力できる位置）が メインフォームにあるかそれともサブフォームにあるかを判断する方法はありませんでしょうか？ メインで入力中でもRequery時などで、サブフォーム内のコントロールでEnterイベントが起きてしまい、 本当はサブフォーム内でカーソルが当たって入力する時だけに実行したい処理が動いてしまうのです。 そこでサブのイベントの方にメインで入力中は実行せず、サブで入力している時のみ実行するよう IFで分岐を入れたいのですができますでしょうか？ 2.フォームフッタを含む帳票サブフォームでレコードソースが0件の時、 そのフッタにあるテキストボックスへのEnter時にSelLengthやSelStart、Textプロパティが実行できません。 Enter時なのに「コントロールがフォーカスを取得していないときに、コントロールのプロパティまたはメソッドを参照することはできません」　と出てしまうのです。 0件でなければエラーが出ないのですがどうすれば出るようになるのでしょうか？

Access2010　SP1を使用しています。 帳票サブフォームを含むフォームを作成しています。 1.そのフォームを開いている時、VBAで実際のフォーカス（カーソルがあって直接入力できる位置）が メインフォームにあるかそれともサブフォームにあるかを判断する方法はありませんでしょうか？ メインで入力中でもRequery時などで、サブフォーム内のコントロールでEnterイベントが起きてしまい、 本当はサブフォーム内でカーソルが当たって入力する時だけに実行したい処理が動いてしまうのです。 そこでサブのイベントの方にメインで入力中は実行せず、サブで入力している時のみ実行するよう IFで分岐を入れたいのですができますでしょうか？ 2.フォームフッタを含む帳票サブフォームでレコードソースが0件の時、 そのフッタにあるテキストボックスへのEnter時にSelLengthやSelStart、Textプロパティが実行できません。 Enter時なのに「コントロールがフォーカスを取得していないときに、コントロールのプロパティまたはメソッドを参照することはできません」　と出てしまうのです。 0件でなければエラーが出ないのですがどうすれば出るようになるのでしょうか？

アクセスのテーブルでデータにカッコがはいってるのですが それをフィルタで抽出しようとするとエラーになります。 例えば、タイトルフィールドに 「映画名（邦画）」が入ってる場合、 右クリック→テキストフィルタを押すと 「ユーザー設定フィルター」が出てきて、 タイトルが次の値で終わる：の所に「)」を入れると、 「正しい値を入力してください」とメッセージが出てしまいます。 (邦画)を入れても同じエラーです。 「指定の値を含む」にして、「邦画」と入れれば問題なく抽出できるのですが、 カッコを抽出したい場合どうすればいいのでしょうか？ クエリで WHERE (((T_test. タイトル) Like "*)")); とするしかないのでしょうか？ できれば直接テーブルでフィルタがかけられるようにしたいです

コマンドボタンのコントロール名に「カード」（←これは半角です）とつけて、クリックイベントのプロシージャーを紐づけようとしたら、 Private Sub カード_Click() End Sub になってしまい、そのコマンドボタンをクリックしてもイベントが発生しません。 Private Sub カード_Click()の部分にブレークポイントを設置しても、通過されません。 都合上全て半角でコントロール名をつけてしまったため、コントロール名を変えたくないのですが VBAのフォームモジュールで「カード」（←これは半角です）とすると、 勝手に全角になってしまうのですが、 この機能を止める方法はありますか？

タスクバーにアクセスのアイコンとファイル名とフォーム名が表示されるのですが、 フォーム名を非表示にする方法はありますか？ アクセスファイルは複数開いているのですが 書類というファイルだけ、フォーム名が表示されます。 アプリケーションタイトルには、「書類」と入れています。 タスクバーのアクセスのアプリケーションをクリックしたときに、 フォーム名は表示させたくないのですが、その方法を教えてください。

参照TBのF1、F6、F8と修正TBのF1、F6、F8が同じだったら、修正TBのF2、F7を参照TBのF2、F7に置き換えたい。 SQLの書き方がわかりません。 UPDATE 修正TB INNER JOIN 参照TB ON (修正TB.F1 = 参照TB.F1 And 修正TB.F6 = 参照TB.F6 And 修正TB.F8 = 参照TB.F8) SET 修正TB.F2 = 参照TB.F2 , 修正TB. F7 = 参照TB.F7 又は、 UPDATE 修正TB SET 修正TB.F2=参照TB.F2 , 修正TB.F7=参照TB.F7 WHERE EXISTS ( SELECT 1 FROM 参照TB WHERE 修正TB.F1=参照TB.F1 And 修正TB.F6=参照TB.F6 And 修正TB.F8=参照TB.F8 )" どこがいけないでしょうか？

初めての書込みです。誤りがあれば、訂正致しますので、宜しくお願いします。 （背景） Access2003で作成したプログラムを、3年ほど使ってきました。 少しずつバージョンアップを加え、機能を増やしてきた次第です。 これまでの検索は、クエリによる抽出条件設定を行っていましたが、 入力型フィールドが２つから４つに増えるため、Is Null とlikeによる抽出条件の設定ではカバーしきれないと判断しました。 （本題） 検索結果フォームのレコードに、VBAでFilterをかけるべく頑張ってきましたが、 Loopを使う為にフィールド名を配列変数にしているところで 行き詰まってしまいました。 （やりたいこと） 検索条件　="部署 Like '*人事*'"　　　'としたい。 （今の状態） 検索条件 = "部署 Like '* Form_frm_検索ボックス!部署検索 *'"　'となってしまう。 （１）コード 検索条件 = sh(i) & " Like '*" & "Form_frm_検索ボックス!" & sh(i) & "検索" & "*'" （２）データ型 Dim 検索条件 As Variant Dim sh(4) As String Dim i as integer コード、及びデータ型で、間違っている場所が分かれば、ご指導頂けないでしょうか。 宜しくお願いします。

初めての書込みです。誤りがあれば、訂正致しますので、宜しくお願いします。 （背景） Access2003で作成したプログラムを、3年ほど使ってきました。 少しずつバージョンアップを加え、機能を増やしてきた次第です。 これまでの検索は、クエリによる抽出条件設定を行っていましたが、 入力型フィールドが２つから４つに増えるため、Is Null とlikeによる抽出条件の設定ではカバーしきれないと判断しました。 （本題） 検索結果フォームのレコードに、VBAでFilterをかけるべく頑張ってきましたが、 Loopを使う為にフィールド名を配列変数にしているところで 行き詰まってしまいました。 （やりたいこと） 検索条件　="部署 Like '*人事*'"　　　'としたい。 （今の状態） 検索条件 = "部署 Like '* Form_frm_検索ボックス!部署検索 *'"　'となってしまう。 （１）コード 検索条件 = sh(i) & " Like '*" & "Form_frm_検索ボックス!" & sh(i) & "検索" & "*'" （２）データ型 Dim 検索条件 As Variant Dim sh(4) As String Dim i as integer コード、及びデータ型で、間違っている場所が分かれば、ご指導頂けないでしょうか。 宜しくお願いします。

alt+F11で、VBE画面を開いていますが、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub で、どこかのセルをクリックしたら、ＶＢＥ画面を閉じたいのですが、コードを教えてください。 エクセルのアプリケーションのみ表示させたいです。 添付画像は、 エクセル（上） ＶＢＥ（下） が開いてますが、ＶＢＥをＶＢＡコードを実行して閉じたいです。

アクセスで、ファイルを開いたと同時に、サブプロシージャーを実行するには？ AutoExecというマクロを作ったのですが、どういう条件を指定すればいいのかわかりません。 標準モジュールには、testというプロシージャーがあります。 アクセスファイルを開いたと同時に、testを実行させたい場合は、 「マクロの実行」を選べばいいのでしょうか？ 実行回数や繰り返し条件式に何を入れればいいのでしょうか？

アクセスで、ファイルを開いたと同時に、サブプロシージャーを実行するには？ AutoExecというマクロを作ったのですが、どういう条件を指定すればいいのかわかりません。 標準モジュールには、testというプロシージャーがあります。 アクセスファイルを開いたと同時に、testを実行させたい場合は、 「マクロの実行」を選べばいいのでしょうか？ 実行回数や繰り返し条件式に何を入れればいいのでしょうか？

帳票フォームの全てのコントロールに 条件付き書式で 「フォーカスのあるフィールドに色を付ける」を行いたいのですが コントロールが多すぎる為VBAでループさせたいのですがコードがわかりません。 http://www.tsware.jp/tips/tips_187.htm これをVBAで行いたいです。 VBAでの条件付き書式は Sub Sample() Dim Field As String Dim myFormName As String With Forms(myFormName).Controls(Field) With .FormatConditions .Delete With .Add(acExpression, , "[" & Field & "]=""あ""") .BackColor = 225 End With End With End With End Sub こんな感じで出来る事は知ってますが、 vbaで「フォーカスのあるフィールドに」と言う条件の付け方がわからないので教えてください。

アクセスのクエリの抽出条件で、「1文字以上」とする方法を教えてください。 抽出条件をビルドで作ってみたのですが、 勝手にダブルコーテーションがついてしまいます。 1文字以上の値はあるのに何も抽出されません。 ｓｑｌ文は SELECT [テーブル1].[フィールド1] FROM テーブル1 WHERE ((Len([テーブル1]![フィールド1])>"1")); となっています。 ご教授よろしくお願いします。

SQLで結果を出したとき値がNULLならタブを出したいのですが、どのような書き方をすればいいのでしょうか？ 結果をCSVとかに吐き出していたりするのですがNULLだと左に値がよってしまい別の項目に別の値が見えてしまいます。 詳しい方教えていただけませんでしょうか？

アクセス２０１０です。 「モジュールを開く」というマクロを実行したいのですが、見つかりません。 「すべてのアクションを表示」をクリックしても出てきません。 2010になってから、なくなってしまったのでしょうか？