質問編集履歴
2
テーブル名修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
Dim strSch As String
|
|
19
19
|
|
|
20
20
|
Set objCn = CurrentProject.Connection
|
|
21
|
-
objRs.Open "T_
|
|
21
|
+
objRs.Open "T_売上", objCn, adOpenKeyset, adLockOptimistic
|
|
22
22
|
|
|
23
23
|
strSch = "T_売上のから、①、②の条件に合うもの " //ネットでは特定の列を表示するサンプルしか見当たらない
|
|
24
24
|
objRs.Find "strSch に代入した値を入れたい"
|
1
追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -30,6 +30,10 @@
|
|
|
30
30
|
などを参考にしたのですが、目的の実現に沿うような記述の仕方がわからず、
|
|
31
31
|
試行錯誤の結果こちらで質問することにいたしました。
|
|
32
32
|
**Findでなく、SQLなどを使った方が良いのか…？**等、やり方の指南もご教示いただければありがたいです。
|
|
33
|
-
|
|
33
|
+
**********追記*********
|
|
34
|
+
本業務を提示してきた上司によると、「Find」は使わないとのことで、
|
|
35
|
+
「SQL」を使うよう言われました。
|
|
36
|
+
「Filter」はどうかと聞いたところ、「Filterの条件にSQL を使うのも良いかも」との返答でした。
|
|
37
|
+
***********（18:30現在）**********
|
|
34
38
|
有職者の皆様、ヒントや**サンプルコード**など、実現させる為のお知恵をお貸しください。
|
|
35
39
|
よろしくお願いいたします。
|