Access VBA 質問スレ Part1

■ このスレッドは過去ログ倉庫に格納されています
2012/02/06(月) 22:53:46.88
AccessのVBAに関する質問スレです

★1 質問テンプレ(雛形)は用意しませんが､OSとAccessのバージョンは必ず書きましょう。

★2 AccessのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。

★3 AccessのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。

　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　 ｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★4 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。

★5 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

関連スレ
Excel VBA 質問スレ Part23
http://toro.2ch.net/test/read.cgi/tech/1327763113/l50
2012/09/26(水) 12:59:35.45
>>63
どのようにするのですか？
何か参考になるページなど教えてもらえませんか？
2012/09/26(水) 17:04:56.08
>>64
使えますよ。
2012/09/26(水) 18:11:11.92
>65
使えますね。
2012/09/26(水) 18:20:01.38
>>66
さっさと使え。
68デフォルトの名無しさん
垢版 |
2012/10/01(月) 21:06:32.64
>>57
サンキュー助かった!
スマホで規制で返信できずすスマソ。
2012/11/25(日) 21:58:23.52
Access 2007のフォームで、オプショングループ内でトグルボタンを作成し、各トグルボタンをクリックすると、フォームのMe.RecordSourceにトグルボタンに対応させたクエリを設定するプログラムを書いています。
今のところ、機能は追加できたのですが、トグルボタンの表示がうまく更新されず、最初に押したボタンが引っ込んだままもどりません。
トグルボタンの表示を更新する方法はあるのでしょうか?
2012/11/26(月) 00:10:07.28
引っ込んだら戻らなくなるのがトグルボタンなんだけど
71デフォルトの名無しさん
垢版 |
2012/11/26(月) 21:19:17.24
お前らここまでやるならC#でEXCELデータいじった方が簡単だろ
2012/11/26(月) 21:20:11.62
>>70
すみません。言葉足らずでした。
トグルボタン1を押した後、トグルボタン2や3を押しても、トグルボタン1が押されたままの表示になってしまいます。トグルボタンに割り当てたRecordSourceの切替え機能はちゃんと動いています。
。
2012/11/26(月) 21:38:01.20
トグルボタン1を押したあと
トグルボタン2を押して
トグルボタン3を押したら
トグルボタン2はどうなってますか
2012/11/26(月) 22:19:50.73
>>73
トグルボタン2の表示は押されていない状態です。
トグルボタン1が押されたままの表示になっています。
2012/11/26(月) 22:27:05.15
1がグループに入ってないな
76デフォルトの名無しさん
垢版 |
2012/11/27(火) 06:18:00.99
馬鹿には無理
2013/02/09(土) 15:50:52.56
ACCESS2013はどうですか？
2013/03/04(月) 07:41:06.45
>>77
adpがつかえん
クラサバの旗降ってきた漏れの立つ瀬がない囧rz
2013/03/04(月) 13:02:19.07
ACCESS2013の利点は無いのかね！
2013/03/05(火) 15:27:52.54
Office2013にメリットなんて無いよ。
見た目がヌルヌルしてキモいけど、価格分の性能&利便性向上はない
Office使ってなくてOpen系で駄目なら、仕方ないから買ってやるか程度
2013/03/24(日) 06:36:06.38
無料バージョンアップできると聞いて2010買ったのに、発売の2/6までにインスコしないといかんかった囧rz
血も涙もないよ
82デフォルトの名無しさん
垢版 |
2013/03/24(日) 07:16:09.59
おめでとうw
2013/03/26(火) 11:24:23.03
Win8でACCESS2010です。

Form_test.Filter = "分類 Not Like ""*あああ*"" And Not Like ""*いいい*"""
Form_test.FilterOn = True

コンボボックスの更新後処理イベントで上記のコードを走らせると、
「構文エラー：演算子がありません」と返されます。
初歩過ぎる質問ですんまそん。文法何か間違ってますでしょうか。
2013/03/26(火) 12:05:53.53
Form_test.Filter = "分類 Not Like ""%あああ%"" And Not Like ""%いいい%"""
2013/03/26(火) 13:24:28.20
たぶん
 "分類 Not Like ""*あああ*"" And 分類 Not Like ""*いいい*"""
2013/03/26(火) 15:56:56.54
>>84->>85
返信ありがとうございます。どちらも「演算子がありません」エラーは解消されませんでした。

ちなみに、↓は問題ないので、And Notがまずいのかなと思ったんですが、書式は問題なさそうですか・・・。
Form_test.Filter = "分類 Not Like ""*あああ*"""
Form_test.FilterOn = True
他の方法も探してみます。

ヘルプ開くとBingとかいうのが出て何も表示されないお・・・。2010使いづらいお(；´Д｀)
2013/03/26(火) 17:04:55.32
Form_test.Filter = "Not (分類 Like ""*あああ*"" Or 分類 Like ""*いいい*"")"
2013/03/27(水) 08:35:25.18
>>87
これでいけました！ありがとうございます！
2013/03/27(水) 11:51:17.13
>>88
>>84は文法間違いあるけど、>>85はいけるはずだが、ほんとにダメだったのか？
先頭の のとこは無視しないとだめだぞ
2013/03/27(水) 17:54:38.17
"Not 分類 Like ""*あああ*"" And Not 分類 Like ""*いいい*"""
2013/04/04(木) 18:20:58.41
１．OS(64bit) + Office2010(64bit)
２．OS(64bit) + AccessRuntime2010(64bit)
３．OS(64bit) + Office2010(32bit)
４．OS(64bit) + AccessRuntime2010(32bit)
５．OS(32bit) + Office2010(32bit)
６．OS(32bit) + AccessRuntime2010(32bit)
※ OS：XP〜Windows8まで

上記のどの組み合わせでも動くようなAccessの実行ファイルは作成可能ですか？
2013/04/04(木) 19:39:15.05
>>91
http://tsware.seesaa.net/article/174598211.html
2013/04/12(金) 00:23:04.15
使用不可にいている3つのテキストボックスを、
チェックボックスをonにすると使用可能にするにはどうしたらいいでしょうか？
94デフォルトの名無しさん
垢版 |
2013/04/12(金) 01:37:21.85
>>93
Private Sub チェックボックス_Click()
If Me.チェックボックス.Value = True Then
Me.テキストボックス１.Enabled = True
Me.テキストボックス２.Enabled = True
Me.テキストボックス３.Enabled = True
Else
Me.テキストボックス１.Enabled = False
Me.テキストボックス２.Enabled = False
Me.テキストボックス３.Enabled = False
End If
End Sub
2013/04/12(金) 11:57:39.57
>>92
参考にさせてもらいました。
ありがとうございます。

引き続き質問なのですが、
Windows8(32bit) ＋ Access2010(32bit)環境で作成したファイルを
Windows8(64bit) ＋ Access2010(32bit)環境で実行した場合に毎回ではないのですが、
レーダーチャートの目盛りが正常に表示されません。（-3E+259と表示される）
なお、表示しているデータは毎回同じものです。

ちなみに、Windows8(64bit) ＋ Access2010(32bit)環境で作成したファイルを
Windows8(64bit) ＋ Access2010(32bit)環境で実行した場合も同様でした。

この現象について何かご存知の方がいらっしゃいましたらお願いします。
2013/04/12(金) 17:36:38.89
>>94
もう少しシンプルなコードはないですか？
わがままですみません。
2013/04/12(金) 17:42:08.68
>>96
Private Sub チェックボックス_Click()
Me.テキストボックス１.Enabled = Me.チェックボックス.Value
Me.テキストボックス２.Enabled = Me.チェックボックス.Value
Me.テキストボックス３.Enabled = Me.チェックボックス.Value
End Sub
2013/04/12(金) 18:36:06.95
>>97
すばやいご回答ありがとうございました。
いろいろな書き方があるんですね。
2013/04/12(金) 22:29:10.45
Excelスレでも聞いたのですが、
以下のような時間の計算結果を出す関数として

0:00〜0:44　0:30
0:45〜1:14　1:00
1:15〜1:44　1:30

=IF(A1<"0:15"*1,"0:30"*1,MROUND(A1,"0:30"))

というアドバイスをしてくれた方がいましたが、
これに相当するコードが全くわかりません。
丸投げですがどなたか教えてくださいませ。
100桃白白
垢版 |
2013/04/13(土) 02:40:34.80
>>99
Function marume(ByVal s As Double) As Double
　　Dim Q As Double
　　Dim H As Double

　　Q = TimeValue("0:15")
　　H = TimeValue("0:30")
　　
　　If s < Q Then
　　　　marume = H
　　Else
　　　　marume = Fix((s + Q) / H) * H
　　End If
End Function
2013/04/13(土) 17:33:29.73
>>100
フォームの[実時間]の時間によって[時間]に結果を出す場合で、

Function 時間(ByVal 実時間 As Double) As Double
Dim Q As Double
Dim H As Double

Q = TimeValue("0:15")
H = TimeValue("0:30")

If 実時間 < Q Then
時間 = H
Else
時間 = Fix(([実時間] + Q) / H) * H
End If
End Function

としましたがうまくいかず、どこをどうしたら良いのかまるでわかりません。
ご指摘お願いいたします。
102桃白白
垢版 |
2013/04/13(土) 20:28:48.85
>>101
あら。結果がずれてた？　それともなんか変な動きした？
引数の形式が違うのかな。どういう入力でどう出力された？
2013/04/13(土) 21:29:31.16
>>102
[開始時間]に入力、[終了時間]に入力後、
時間の差を[実時間]に表示し、これを基に[時間]に結果を表示したい、という流れですが、
フォームを開くだけで以下の、

「イベント プロパティに指定した式 読み込み時でエラーが発生しました：
このメンバー識別子は既にオブジェクトモジュールの中に存在しています。」
※マクロ名、ユーザー定義関数、[イベント プロシージャ]以外の式が指定されています。
※関数、イベント、マクロの評価でエラーが発生しました。

というエラーメッセージがでますが、正直理解できていません。
104桃白白
垢版 |
2013/04/14(日) 01:59:24.64
>>103
コントロールの名前と関数の名前が競合してるんでない？
コントロールと関数を別の名前にしてコントロールソースで紐付けて
やっちゃえばいいよ。こんな感じで。

Database1.zip download
http://kie.nu/Xug
2013/04/14(日) 14:28:32.69
>>104
うわー、ファイルのアップまでしていただき本当にありがとうございます。
テーブルに記録しておく必要があったため、

Private Sub 終了時間_AfterUpdate()
時間 = Marume(実サービス時間)
End Sub

ということで全てスッキリしました。
いただいたコード自体見てもほとんど理解しきれてませんが、
これから勉強しながら頑張ってみます。
再度、本当にありがとうございました。
2013/04/19(金) 11:54:05.25
フォームのプロパティにある「コード保持」って何でしょうか？
「はい／いいえ」はどのように使い分けるのでしょうか？
2013/04/19(金) 12:30:11.35
存在しないオブジェクトに関連したコードを不要になったときに自動で削除する機能がある
たとえば"ボタンA"をクリックしたときのコードを書いてある状態で
あとで"ボタンA"を"ボタンB"に名称変更したりしたときに
コード保持が「いいえ」だと"ボタンA"をクリックしたときのコードは捨てられる
2013/04/19(金) 16:04:50.27
どもです

つまりコード保持は、名称変更をした際に以前のコードが消えても良い
または名称変更は絶対にしないような状況であれば、「いいえ」を選択しておいても良い
と言うことで間違いないですか？

どこかで「いいえ」にした方が速度が速くなる的なことが書いてあった覚えがあるので･･･
2013/04/19(金) 16:43:59.98
>>107
名前の自動修正オプションとこんがらがってないか？

>>108
コード消えるのはフォームかレポート単位だぞ
名前変更とか関係なくて、そのフォームのコード全部消えるぞ

ヘルプにはコードが無いからいいえの方が処理が早いとは書いてあるな
その分制約もあるが
ヘルプみて意味がわからないなら、設定変えるのはやめとけ
2013/04/22(月) 10:00:33.47
>>109
遅くなりましたが、ありがとです

試しにフォームを作成時に、「いいえ」を選択しておいた状態で
イベントプロシージャを設定してみました。
その時点で自動的に「はい」に切り替わるんですね。

そしてコードを使うフォーム、レポートが１０００個を超えるものは作れないと言う事なんですね。
勉強になりました。
2013/04/25(木) 11:56:04.36
ﾀﾌﾞｺﾝﾄﾛｰﾙでﾍﾟｰｼﾞ5枚作る。
ﾁｪｯｸﾎﾞｯｸｽによって表示ﾍﾟｰｼﾞ数を切り替えたい。
・ﾁｪｯｸなし ： ﾍﾟｰｼﾞ1〜ﾍﾟｰｼﾞ5
・ﾁｪｯｸあり ： ﾍﾟｰｼﾞ2〜ﾍﾟｰｼﾞ4

そのため、ﾁｭｯｸﾎﾞｯｸｽのｲﾍﾞﾝﾄﾌﾟﾛｼｰｼﾞｬで、一旦全部のﾍﾟｰｼﾞを非表示にして
そのあと、必要なﾍﾟｰｼﾞを表示するようにしてみました。

For i=0 To 5
Me.Controls("ページ" & i).Visible = False
Next i

For i=Starrt To Start＋Cnt
Me.Controls("ページ" & i).Visible = False
Next i

それで、ﾍﾟｰｼﾞ5を選択している状態でﾁｪｯｸありにすると
消したはずのﾀﾌﾞの周りの枠が残ってしまいます。

これを綺麗に消す方法ってありませんか？

環境はAccess2010です。
112111
垢版 |
2013/04/25(木) 12:00:42.84
忘れてましたがﾀﾌﾞの背景色を変更したいので
ﾀﾌﾞｺﾝﾄﾛｰﾙのﾌﾟﾛﾊﾟﾃｨで「ﾃｰﾏの使用」を「はい」に設定してあります。
2013/04/25(木) 14:29:36.88
消す前に違うページを選択すれば良いだけじゃないのか？
2013/05/21(火) 13:36:25.32
チェックボックスの　true　が　-1　から　1　に変わったようです
2007からでしょうか？

変更がめんどくさい
2013/05/22(水) 11:48:10.00
>>114
2003と2007で試したけど非連結で画面でチェックした場合はどちらも-1になる
ただし、コードで1をセットしたら1のままだった

まず1をセットするコード書くのが悪い
そして、1でも-1でもBooleanとして評価したらTrueなんだから
そんな事に影響されるコード書くのが悪い
2013/05/22(水) 14:18:44.22
>チェックボックスの　true　が　-1　から　1　に変わったようです
>2007からでしょうか？

キリっ
117デフォルトの名無しさん
垢版 |
2013/05/22(水) 14:27:02.75
知らんがな
ってレスしようと思ったけど
かわいそうなので放っといた
2013/06/04(火) 02:35:18.23
月曜会社を休んで家で土曜から月曜までVBAをひたすら書き続けた結果
頭が超重くなって3日目は何やってるかよくわからないまま終わってしまった
VBAのコーディングをぶっ通しでやるのは2日が限界か？
2013/06/05(水) 22:11:38.14
>>118
限界は人それぞれだろうが、無理はすんなよ
2013/06/21(金) 00:57:48.54
access 2003　にて
SendObjectメソッドを利用して、メールを送信したいと思っています。

実際にメールを送れるようにはなっているのですが、
送信メール本文に「mdbファイルと同一ディレクトリにある単体の.msgファイルの本文」（.msgファイルの場所はフルパス指定でも構いません）
を表示させる事は可能でしょうか？

イメージ的には、テーブルから送信先アドレスを収集し、.msgファイルの本文の内容をテンプレートとして一括送信する
と言った感じです。
2013/06/21(金) 01:01:26.56
書き忘れました。
メール送信ソフトはoutlookです。
2013/06/21(金) 07:11:37.65
.msgファイルの形式ってたぶん公開されてないんだよなぁ
どうやってメールを.msgで保存してるかしらんが、そっちを変更した方が楽な気がする
outlookでもVBAは使えるぞ
2013/06/30(日) 18:38:52.19
>>120
OutLookのSession.OpenSharedItemで.msgファイルの読み込みできるが
他のアプリからOutLookいじるのはお勧めしない
OutLook側でmdbに書きだすとか、プレーンテキストで保存するとかした方が良いんじゃね
124デフォルトの名無しさん
垢版 |
2013/08/31(土) NY:AN:NY.AN
質問です
ODBCの接続する際に
IDとパスワードを入力するボックス(VBAで設定したものではない)がありますが、
初めから半角英数字になるように設定はできますか？
2013/08/31(土) NY:AN:NY.AN
VBAで設定したものではないものを、VBAでどうこうするのは無理があります
126デフォルトの名無しさん
垢版 |
2013/08/31(土) NY:AN:NY.AN
>>125
ですよね。
IDやパスワードを入力するときに各々気を付けてもらうしかないですね。
2013/08/31(土) NY:AN:NY.AN
>>126
プロパティにないの？
2013/08/31(土) NY:AN:NY.AN
ODBCのミドル層で出てるダイアログだから、アクセス側からいじれるプロパティなんてないだろ
自分でIDとパスワード入力してもらうフォーム作ってそこに入力してもらえ
2013/08/31(土) NY:AN:NY.AN
DBの持ち物か。すまん。
ダイアログの出る直前にACCESSで入力を固定して終わったら解除ってできないのかね。
（調べてない、ただの理想を述べてみた。）
2013/09/01(日) 00:30:06.54
>>129
>>124が言ってるのは多分、ODBCで接続するときにユーザとパスワードを指定しなかったときに出るやつ
自分でちゃんと接続できるユーザとパスワード指定したら出ない
間違ったユーザやパスワード設定したらしらん
131デフォルトの名無しさん
垢版 |
2013/09/01(日) 02:59:29.29
Access初心者です。
VBAでExcelからデータをコマンドボタンで自動インポートさせる物を
作っています。
インポート漏れがないかのチェック処理もさせたいのですが、
どのようにすればいいかわかりません、ご教授お願いします。
2013/09/01(日) 03:24:10.08
>>131
レコード数で比較すれば？
133デフォルトの名無しさん
垢版 |
2013/09/01(日) 03:48:29.03
>>132
ありがとうございます。
仮に件数が合わなくてインポート漏れしたレコードを
特定するための処理をいれることはできますか？
2013/09/01(日) 03:59:24.56
ユニークキーで差分とれよ
少しは考えろよ
2013/09/01(日) 04:00:02.93
>>133
ユニークキーで差分とれよ
少しは考えろ
2013/09/01(日) 08:49:32.79
インポート漏れなんてあるの？
137デフォルトの名無しさん
垢版 |
2013/09/01(日) 09:02:48.06
結構ある
あと勝手にデータ変換されてたりもする
2013/09/01(日) 09:25:38.41
そうか
ならインポートしてからチェックするより自前のコードでインポートした方がいいんじゃない？
139 【だん吉】
垢版 |
2013/09/01(日) 09:31:40.27
自分はそうしてる
2013/09/01(日) 10:05:17.59
ウィザードにまかせてるとひどい目にあう
141デフォルトの名無しさん
垢版 |
2013/09/01(日) 10:35:21.42
Access初心者なので、そのVBAのコードの書き方がわかりません
教えていただけませんか
2013/09/01(日) 10:36:54.67
いいですよ
143132
垢版 |
2013/09/01(日) 19:42:00.26
>>131
www.nurs.or.jp/~ppoy/access/access/acX014.html
2013/09/01(日) 20:23:21.63
インポート漏れするデータ欲しい
試してみたい
2013/09/01(日) 23:14:50.69
数字型のとこに文字入ってるデータとか用意したらいいんじゃね
2013/09/01(日) 23:38:03.38
>>145
うーん、そういうデータをインポートすると普通にエラーとして扱われて
「テーブル名_$インポート エラー」 ってテーブルが生成されるから
インポート漏れのレコードがわからなくて困る、なんて状況にはならないんだよね
2013/09/02(月) 10:35:57.67
インポート漏れのレコードがわからなくて困る、なんて状況になると言ってる人はいないが
148デフォルトの名無しさん
垢版 |
2013/09/02(月) 10:57:43.03
おもろいな
149デフォルトの名無しさん
垢版 |
2013/09/05(木) 23:50:52.09
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
strac, strxls, True, strrange
上記でインポート エラーになるので引数のacImportのところに、
作成したインポート定義にしたいのですができるのでしょうか
150デフォルトの名無しさん
垢版 |
2013/09/07(土) 03:42:11.28
よし
2013/09/07(土) 16:59:26.27
そもそもワークシート変換にインポート定義とかないだろ
152デフォルトの名無しさん
垢版 |
2013/09/09(月) 01:46:05.73
Accessの初心者です。
レポート印刷でページヘッダーのコードが変わったタイミングで改ページしたい
かつ詳細の明細行は４レコードだけで改ページさせる、両方の条件を満たせるには、
どうやって作成したらよいかご教授お願いします。
2013/09/09(月) 02:08:51.60
ページヘッダーじゃなくて、その項目でグループ化してヘッダー作る
そのヘッダーかフッターで改ページを設定する

詳細の高さを４行分になるようにヘッダ、フッタや余白を調整する

つか、VBAまったく関係ない話
154デフォルトの名無しさん
垢版 |
2013/09/09(月) 07:18:08.57
>>153
ここはVBAのスレですよね？VBAと関係ある話をしてください。
VBAとまったく関係ない話をしたのはあなたです。VBAでお願いします。
155デフォルトの名無しさん
垢版 |
2013/09/09(月) 13:03:59.99
VBAを一言で表すと
2013/09/09(月) 13:20:44.56
>>154
マジレスしといてやるが、VBAでやるよりよっぽど>>153の方法の方が良いぞ
だがあえてVBAでやりたいなら
明細セクションの最初と最後に改ページコントロール(改ページ1,2)を配置して
Dim 行数 As Integer
Dim 前コード
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
&nbsp; &nbsp; Me.改ページ1.Visible = False
&nbsp; &nbsp; Me.改ページ2.Visible = False
&nbsp; &nbsp; 前コード = Me.フィールド5
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
&nbsp; &nbsp; If Me.フィールド5 <> 前コード Then
&nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ1.Visible = True
&nbsp; &nbsp; &nbsp; &nbsp; 行数 = 0
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ1.Visible = False
&nbsp; &nbsp; End If
&nbsp; &nbsp; 前コード = Me.フィールド5
&nbsp; &nbsp; 行数 = 行数 + 1
&nbsp; &nbsp; If 行数 > 4 Then
&nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ2.Visible = True
&nbsp; &nbsp; &nbsp; &nbsp; 行数 = 0
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ2.Visible = False
&nbsp; &nbsp; End If
End Sub
こんな感じ。この例ではフィールド5が変わったら改ページな
2013/09/09(月) 13:22:34.74
う。&nbsp;は空白に置換してくれ
つか普通に貼り付けできなくなったのかよ
158デフォルトの名無しさん
垢版 |
2013/09/10(火) 00:16:36.47
>>156
もう少し教えてください。。。
明細が５明細あった場合、

コードA
00001
00002
00003
00004
改ページ
コードA
00005
改ページ
コードB
00001
00002
00003
改ページ
コードC
00001

こんな感じで出したいのですが
2013/09/10(火) 02:26:08.63
>>158
>>156が理解できないなら、VBAでやるのやめとけ
160sage
垢版 |
2013/09/17(火) 19:50:09.24
Accessのクエリで、「クエリの並び替え条件を動的に変更する」方法を
教えて頂けないでしょうか。

現状は、下記のクエリを作成しましたが、並び替え条件として判定されません。

SELECT * FROM テーブル1
ORDER BY FORMS!画面１!テキスト１.Value

よろしくお願いします。
2013/09/17(火) 20:22:56.49
>>160
SELECT * FROM テーブル1
ORDER BY FORMS!画面１!テキスト１.Value

これってどこに書いてるの？
2013/09/17(火) 21:44:28.61
>>160
どうしてもやりたいならQueryDefとか使えばできるかもしれんが
動的にSQLつくってDoCmd.RunSqlでやる方がいいんじゃね
163160
垢版 |
2013/09/17(火) 22:09:44.82
>>161
Accessの「クエリ」で定義していました。

>>162
ご指摘を受けた点を参考にクエリを作成した所、うまく行きました。
ありがとうございます。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況