直書き、間違いがあったら御免。引数に抽出条件を指定することが出来ないし困っています。Aベストアンサーおつかれさま~(^_^)惜しいですね!もう少しですねさてさて、明日出張なので今日はたぶん最後のレスになってしまいますが、ちなみに明日は返答できないのであしからず。strSQL駄目でしたか。StrSQLMe.埋め込みフォーム.Requeryに変更すれば動くと強く思います。念じてます(^^)ちなみに、Me.と打ち込んだ時点でオートコンプリート(名称あってるかな~)機能が働いて参照できるオブジェクトが表示されるはずです。Editor君が気を利かせてForm_formAとかになってる場合があります。最近やってないんでうろ覚えなんですが、こんな処を注意すれば大丈夫!追伸このコードって検索とかで使えますから覚えておくときっと役に立ちますよ♪おつかれさま~(^_^)惜しいですね!もう少しですねさてさて、明日出張なので今日はたぶん最後のレスになってしまいますが、ちなみに明日は返答できないのであしからず。strSQL駄目でしたか。StrSQLMe.埋め込みフォーム.Requeryに変更すれば動くと強く思います。念じてま...続きを読む他の回答も見るQアクセエスのレコードの更新をVBAでするには?アクセスで、一覧表のフォームにボタンを取りつけています。レコードの内容を変更したら、ペンの形のマークが現れますね。これは変更中ということですが、そこでボタンを押しても変更は確定されないから、更新確定させたいのです。最初の行に入れてみたら、元の一覧表は最初のレコードに飛んでしまう。キーを押して更新確定させたような状態をVBAで実現する方法あるのでしょうか?よろしくお願いします。方が良かったですね文字通りレコードを保存します。使い分けは下記が参考にはなりますか?http://www.nurs.or.jp/~ppoy/access/access/acF007.html他の回答も見るQフォームを開くときに、コンボボックスの値を選択(アクセスVBA)こんにちは。アクセスVBAで、フォームを開いたとき(フォームのOpenイベント)に、コンボボックスの値を選択したいのですが、どういう方法が、あるでしょうか。理想は、フォームのOpenないし、Loadイベント内で、コンボ0.ItemData(2).Selectedと、書くような感じです。(無論、Selectedは使えませんでした)。無かったらエラーを返す、という処理を作成する場合、カレントレコードが無い事を判定するにはどうすれば良いでしょうか?イメージは下記のような感じです。サブフォームでの選択行の取得こんにちは。Access初心者です。選択された行を取得する方法はありますか?サボフォームの下の方に現在選択されているレコード数が表示されてますが、その値でかまいません。調べているのですが、なかなか検討がつきません。Aベストアンサーフォーム名がフォーム1、サブフォームコントロールの名前がサブフォーム1だとすると、Forms!フォーム1!サブフォーム1.Form.CurrentRecordで取得できます。(「Forms」と「Form」がありますのでご注意下さい)また、フォーム1にコードを記述する場合であればMe!サブフォーム1.Form.CurrentRecordサブフォーム1へのコード記述であればMe.CurrentRecordという構文によっても、それぞれ取得が可能です。他の回答も見るQクエリで「データ型が一致しません」と表示されるクエリ1とクエリ2をクエリ3で結合するとクエリ3で「データ型が一致しません」と表示されます。PC管理台帳;クエリ1では[使用者氏名]の苗字と名前のスペースを置換しました。職員アカウント;クエリ2では[氏名]の苗字と名前のスペースを置換しました。クエリ3で[使用者氏名]と[氏名]が一致しているものを抽出したいです。[クエリ1].[式1]=[クエリ2].[式1];これでクエリ3をひらくと「データ型が一致しません」と表示されます。どなたかアドバイスお願いしますクエリ1とクエリ2をクエリ3で結合するとクエリ3で「データ型が一致しません」と表示されます。PC管理台帳;クエリ1では[使用者氏名]の苗字と名前のスペースを置換しました。「データ型が一致しません」のエラーが発生するパターンのひとつに、『結合に使用している演算フィールド(ご質問の件では式1が該当)の結果がエラーとなるレコードが含まれている』というのがあります。クエリ1・クエリ2の式1にはReplace関数が使われていますが、Replace関数の第1引数にNullを指定すると、エラーになります。従って、恐らく「PC管理台帳」テーブルの「使用者名」か、「職員アカウント」テーブルの「氏名」のどちらか(或いは双方)が、空欄(Null)になったままのレコードがある可能性があります。(なお、Trim関数は、第1引数がNullであってもエラーになりません)上記推測が当たっていれば、a)上記フィールドが空欄になっているレコードをなくす(その上で、今後のことを考えると値要求を「はい」に設定しておくことをお勧めします)b)式1の関数を下記のように変更するのどちらかの対応をされれば、ご質問のエラーは解消されるものと思います。職員アカウント;Nz関数は、第1引数がNull(=文字列扱い不可の空白)だった場合に、第2引数の値に置換する関数です。第2引数に「""」(空文字=文字列扱い可の空白)を指定することで、Replace関数がエラーになるのを回避しています。Replace関数の一番最後の引数「1」は、半角/全角を区別させないためのものです。これにより、スペースは全て削除されるため、Trim関数は不要になります。-1」は、それぞれ開始位置と置換する文字数の指定です。この辺りは、詳しくはヘルプを確認して下さい)「データ型が一致しません」のエラーが発生するパターンのひとつに、『結合に使用している演算フィールド(ご質問の件では式1が該当)の結果がエラーとなるレコードが含まれている』というのがあります。クエリ1・クエリ2の式1にはReplace関数が使われていますが、Replace関数の第1引数にNullを指定すると、エラーになります。レコードセットの参照方法についてACCESS2000でシステムを作っています。使用した内部結合でデータを抽出したときの結果の参照方法がわかりません。adLockOptimisticにて結果を取得し、変数aにtable1のフィールド名の値を代入しようとしています。メソッドまたはデータメンバが見つかりません」となり、値の参照ができません。"*"を使用したいのです。初歩的な質問かと思いますが、どうかよろしくお願いします。_)mACCESS2000でシステムを作っています。使用した内部結合でデータを抽出したときの結果の参照方法がわかりません。adLockOptimisticにて結果を取得し、変数aにtable1のフィールド名の値を代入しようとしています。Subこれをすると、実行時エラー2498指定した式は、いずれかの引数とデータ型が対応していません。i但し、「Requery前後でのレコード移動の回避」が目的の場合は、Requeryの対象を「親フォームまたはサブフォームのFormオブジェクト」ではなく「サブフォームコントロール」とすればOkです。<現状・例1>Forms("Form").SetFocusDoCmd.Requery<現状・例2>Forms("Form").Requery<現状・例3>Forms("Form").Controls("SubForm").Form.Requery<代替策>Forms("Form").Controls("SubForm").Requery※「現状・例3」との違い(→途中の「.Form」の有無)に注意。実行時エラー2498このエラーの直接の原因は、GotoRecordメソッドの第2引数に指定している「Forms("Form").Controls("Subform")」の部分です。ここに指定するのはオブジェクト名になりますが、そのデータ型は文字列型です。「~.Controls(~)」の形で指定した場合、取得できるのはa)オブジェクトそのものb)そのオブジェクトのデフォルトプロパティのどちらかです(→状況によって変化します)。型のプロパティではないため、「型が一致しない」とのエラーとなります。サブフォームのコントロール名を取得する場合は、Forms("Form").Controls("SubForm").Nameというように、Nameプロパティを明示的に指定する必要があります。「サブフォームのレコード移動」の場合、明示的に「Name」プロパティを指定しても解決には至りません(汗)これは、GotoRecordメソッドの第2引数には、直接開いているオブジェクトの名前のみが有効なためで、サブフォームを直接的に指定することはできない、ということです。iなお、これも冒頭に書きましたが、サブフォームのRequeryの仕方には幾つか方法がありますが、Requeryの対象を「コントロールとしてのサブフォーム」にすれば、レコード移動が発生しませんので、GotoRecord自体が不要になります。i但し、「Requery前後でのレコード移動の回避」が目的の場合は、Requeryの対象を「親フォームまたはサブフォームのFormオブジェクト」ではなく「サブフォームコントロール」とすればOkです。Inc.Q質問する(無料)Q&A検索goo検索gooIDで新規登録・ログイン新規登録する(無料)会員の方はこちら外部サービスのアカウントで新規登録・ログインYahoo!で新規登録・ログインGoogleで新規登録・ログインTwitterで新規登録・ログインFacebookで新規登録・ログインdアカウントで新規登録・ログイン※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。会員でない方、会員になるとあなたも質問や回答ができるようになります!!親切・丁寧な回答が集まる場30分以内に回答がもらえ回答数は平均3件!匿名(ニックネーム)での投稿なので。