初歩的な質問ですみません。
参考書を参考に検索するVBAを書いたのですが、
12行目のFindfirstの所で、「コンパイルエラー:メソッドまたはデータメンバが見つかりません」
というメッセージが出てしまいます。
VBAは、下記の通りです。
宜しくお願いします。
********************************************************************************************************************************************
Private Sub 検索_Click()
Dim kaizen_rs As Recordset
Dim field_name As String
Dim find_txt As String
Dim criteria As String
field_name = "提案内容"
find_txt = InputBox("検索したい文字を入力してください。")
criteria = field_name & "='" & find_txt & "'"
Set kaizen_rs = CurrentDb.OpenRecordset("管理/提案テーブル", dbOpenDynaset)
kaizen_rs.FindFirst criteria
If kaizen_rs.NoMatch Then
MsgBox find_txt & "は見つかりません"
Else
Do Until kaizen_rs.NoMatch
MsgBox find_txt & "を" & kaizen_rs.AbsolutePosition + 1 & "レコード目で見つけました。"
kaizen_rs.FindNext criteria
Loop
End If
End Sub
******************************************************************************************************************************************************
No.5
- 回答日時:
違ってたらごめんなさい。
初心者です。criteria = field_name & "like'" & find_txt & "'"
↑LIKEのあとにスペースが要りませんか?
この回答への補足
ありがとうございます。
私もす~ごく初心者なので、
分からない部分が多いので、みんなのお力を借りたいと思っています。
スペースが入っていました。
でも、訂正して実行したら、
演算子がありませんという
エラーが出てしまいます。
デバックすると
kaizen_rs.FindFirst criteria
の部分が黄色くなってしまいます。
何が原因なのでしょうか。
No.4
- 回答日時:
criteria = field_name & "='" & find_txt & "'"
だと一致したデータですよね?
部分的に一致だと
like *xxx*
とかにしたいといけなくないですか?
この回答への補足
そうですね。
参考書に習って、
criteria = field_name & "like'" & find_txt & "'"
にしてみたんですけど、
syntax error(missing operation) in expression.
というエラーが起こっちゃいました。
一難去ってまた一難です。トホホ。
No.3
- 回答日時:
Visual Basic for Application
Microsoft Access ‥
OLE Automation
Microsoft DAO ‥
か
Visual Basic for Application
Microsoft Access ‥
Microsoft DAO ‥
OLE Automation
でコンパイルしてみてください。
DAOが上の方に無いとエラーが出ます。
この回答への補足
コンパイルエラーが出なくなりました!!
高順位に、教えてもらってないものが入ってました。
ありがとうございます。
しかし。。。テーブルに存在する文字を検索しても、検索に引っかかりません。
もし宜しかったら、一緒に考えてくださいませんか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
検索対象のデータが「複数レコ...
-
OR と IN の違い
-
sql文のwhere句について
-
sqlのテーブル名省略について
-
大文字/小文字の区別しないで検...
-
ビュー情報(user_views)の参...
-
差し込み後、元データを変更し...
-
フィルターかけた後、重複を除...
-
エクセルで最後の文字だけ置き...
-
外部参照してるキーを主キーに...
-
VIEWの元のテーブルのindexって...
-
SQLで特定の項目の重複のみを排...
-
for whichの使い方
-
重複していないレコードの抽出...
-
SELECT 文 GROUP での1件目を...
-
SQL文で、合計が0のレコードを...
-
カーソル0件の時にエラーを発生...
-
数値フィールドのワイルドカー...
-
列のヘッダーを含めるのをデフ...
-
access2003 クエリSQL文に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ビュー情報(user_views)の参...
-
OR と IN の違い
-
sql文のwhere句について
-
コンパイルエラーが出ます。助...
-
最新から100行のSELECT文
-
sqlのテーブル名省略について
-
大文字/小文字の区別しないで検...
-
Oracleのエラースタックトレー...
-
検索対象のデータが「複数レコ...
-
PL/SQL デバック方法:入力を受...
-
Oracle 11g コミットのタイミン...
-
caseを使った条件分岐の加算が...
-
階層問い合わせで重複レコード...
-
表をきれいにするために。
-
重複レコードのある項目を比較...
-
SQL xx件目からxx件目まで...
-
MAX日付のSQLについて
-
クエリの書き方(アクセスでも...
-
差し込み後、元データを変更し...
-
1、Rstudioで回帰直線を求める...
おすすめ情報