【10:469】Access総合相談所 其の22- 1 名前:名無しさん@そうだ選挙にいこう 2009/08/26(水) 23:39:38
- ACCESSに関する質問はこちらへ!
▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━ ★ OS、ACCESSのバージョンを明記してください。 ★ 質問内容は具体的に書いてください。 ・何がしたいのか ・どんな処理を試したか ・動作状況など駄目な理由 テーブル/フォームの構成、クエリ、VBAの内容など差し支えない 範囲で詳しく書くと、早く回答が得られるかもしれません。 図解があれば尚良し。 聞き返さなくても詳細が把握できる質問が望ましいです。 ★ 事前にヘルプ・Google等で調べられる範囲は調べてください。 大概の疑問は検索することで解決します。 ★ アドバイスを貰ったら、必ず経過・結果の報告をして下さい。 ギブアンドテイクで情報を共有しましょう。
- 460 名前:名無しさん@そうだ選挙にいこう :2009/11/05(木) 13:11:58
- >>456-459
シングルクォートじゃないとエラーになるんじゃないかな? SELECT * FROM テーブル WHERE Forms!検索!コンボBOX Like "'*" & Forms!検索フォーム!入力 & "*'"; あと、念のため実行時にForms!検索!コンボBOXとForms!検索フォーム!入力を Debug.Printしてみてください。 .Textだけセットされていて、.Valueがセットされていないかもしれないので。
- 461 名前:名無しさん@そうだ選挙にいこう :2009/11/05(木) 15:04:38
- PG素人な質問ですいません。WORDのVBAから書き出した計算式をACCESS上で実行したいんですが
ACCESSのVBAって9万文字ぐらいの計算式実行できますか?
- 462 名前:名無しさん@そうだ選挙にいこう :2009/11/05(木) 16:33:10
- >>461
つ ttp://office.microsoft.com/ja-jp/access/HA012289421041.aspx 式を書き出してEval関数の引数に渡してみれ。 ググれないなら自分で試した方がはやいぞ。
- 463 名前:名無しさん@そうだ選挙にいこう :2009/11/05(木) 18:52:54
- >>456
> select * from テーブル where forms!検索!コンボBOX 「forms!検索!コンボBOX」はフィールド名にはならないよ。 あくまでフィールド名称を指す文字列になるだけで。 だから、Likeで比較してもフィールドの値とじゃなく、 フィールド名称を指す文字列と比較されているだけ。 具体的に書くと、「"野菜" Like "*hoge*"」とかに なっているだけ。 自分にはうまい方法が思いつかないけど、VBAでSQL 入れ替えないとダメじゃないかという気はする。
- 464 名前:名無しさん@そうだ選挙にいこう :2009/11/05(木) 20:20:47
- >>463
コンボBOXのリストにフィールド名がセットされていればOK
- 465 名前:463 :2009/11/05(木) 21:25:06
- >>464
ども。 試してみたけど、自分の環境だと検索されないんだよね。 列の値じゃなく、単なる文字列リテラルとの比較になっている ようにしか見えないんだけど。 でもできる人がいるのであれば、>456 さんはできる人に教わる のがよいのでしょう。 ということで、できない私は撤退します。汚してすまんかった。
- 466 名前:名無しさん@そうだ選挙にいこう :2009/11/05(木) 21:54:17
- >>457>>459>>460
レスサンクス。「"」追加してみましたが、駄目ですね。「'」も同じ。 Debug.Printしてみました。コンボBOXでID、テキストBOXで1を打ち込んだ後 ?Forms!検索!検索BOX() ID ?Forms!検索!入力() 1 と出るので、値は代入されているようです。 >>463 検証してみましたが、確かにフィールド名が死んでいるようです。 >>464 値集合タイプ フィールドリスト 値集合ソース テーブル 他は全てデフォルトのコンボボックスです。どうしたものですかね……。
- 467 名前:名無しさん@そうだ選挙にいこう :2009/11/05(木) 23:25:09
- >>466
BuildCriteriaで解析させてみては? strFilter = BuildCriteria(Me.コンボBOX, dbText, "like *" & Me.入力 & "*") strSQL="select * from テーブル where " & strFilter
- 468 名前:名無しさん@そうだ選挙にいこう :2009/11/06(金) 02:22:44
- そもそも、そのクエリ句はどこに適用させてるの?
フォームのレコードソースか何か?
- 469 名前:名無しさん@そうだ選挙にいこう :2009/11/06(金) 09:15:58
- 質問
Access 2003 で、 同じmdbでも、通常版のアクセスではエラーにならないのに ランタイム版ではエラーメッセージが出る場合があります。 コーディングで現在実行されているのが通常かランタイムかを知る方法はあるのでしょうか?
|