
アクセスで下記コードを実行すると「実行時エラー3131 FROM 句の構文エラーです」と出てしまいます。
どうすればよいでしょうか?
Private Sub コマンド210_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim vsql As String
Dim i As Variant
Set db = CurrentDb()
i = 見積ID
vsql = "select * from T-見積書 where 見積ID = i"
Set rs = db.OpenRecordset(vsql, dbOpenDynaset)
If MsgBox("削除しますか?", vbYesNo) = vbYes Then
rs.Delete
End If
DoCmd.GoToRecord , , acPrevious
rs.Close
db.Close
End Sub

No.6
- 回答日時:
>>データ型は短いテキストです
そっか、テキストボックスといってたから、抽出条件は文字型(文字列)なんですね。
文字列の場合には=の後の指定値は'で囲まないとなりません。
ほぼ全てのデータベースで同じです。
T-見積書の-は使え無いから、テーブル名はT見積書だとして
vsql = "select * from T見積書 where 見積ID = i"
↓
vsql = "select * from T見積書 where 見積ID ='" & i & "'"
(iの中身を'で囲う。ABCなら'ABC')

No.4
- 回答日時:
>>iにはフォーム上に表示されているテキストボックスの見積IDの値を代入しています
ではデータの型が違うのでは?
列名の見積IDが数値型や日付/時刻型とか、全角/半角の違いとか。
手動のクエリで確認出来ませんか
Dim i As Variantを、自分の思っている型宣言にして見るとか・・・。
データ型は短いテキストです
全角半角もスペース含め確認しました
dim i as stringで試してみても変わらず…
手動のクエリの確認方法が分からないのですがどう確認するのでしょうか?

No.3
- 回答日時:
データベス列名の見積IDの型が文字なのにクエリで数値を指定してるとか、その逆とかです。
>>i = 見積ID
これは、VBAとしてはどちらも変数です。
見積IDと言う変数の中身をiと言う変数に代入しています。
列名の見積IDでは無いですよ、pg内の変数として扱われます。
このプログラムを見ると、見積IDと言う変数に何もセットしていなくて、イキナリiに中身を代入しています。
言葉足らずでした!
iにはフォーム上に表示されているテキストボックスの見積IDの値を代入しています
i = 見積ID
msgbox i
と実行するとテキストボックスに入力されているデータが呼び出し出来るので代入は出来てるかと思います

No.2
- 回答日時:
何か変なんですが・・・・・。
vsqlの中には、SQLが文字列として解決してる値、つまり、変数なんか使え無いのですが・・・・・。
>>vsql = "select * from T-見積書 where 見積ID = i"
そもそも、ここが変では有りませんか?
where句が "見積ID = i" と言う文字列。
=の後ろは"値"のはず・・、これだと値がiですよ。
vsql = "select * from T-見積書 where 見積ID =" & i
としないと変。
そうなんですか!見積ID=iで該当するデータが無いということなんですね
こちらも修正しました!
ただ、またエラーが出てきてしまいました
抽出条件でデータ型が一致しません。と出てしまいます。
デバッグすると下のコードが黄色く表示されます
Set rs = db.OpenRecordset(vsql, dbOpenDynaset)
見積IDのデータ型が短いテキストだと別の書き方があるのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) アクセス レポートを開いたときにパラメーターの自動入力がしたい 4 2022/11/30 11:21
- Access(アクセス) アクセス where句を使用して複数条件抽出をするには 2 2022/08/29 13:24
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
このQ&Aを見た人はこんなQ&Aも見ています
-
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
FROM句の構文エラー ACCESS SQL
その他(データベース)
-
Access2010 「演算子がありません」エラー
その他(データベース)
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
AccessのSQLで、FROM句の構文エラー
その他(データベース)
-
6
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
-
7
「FROM 句の構文エラーです」が表示される
Visual Basic(VBA)
-
8
access2003 クエリSQL文について
その他(プログラミング・Web制作)
-
9
Access Error3061 パラメータが少なすぎます。4を指定してください。
Access(アクセス)
-
10
「#エラー」の回避
Access(アクセス)
-
11
Access 2010で実行時エラー3061
その他(Microsoft Office)
-
12
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
13
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
14
アクセスVBAのMe!と[ ]
Access(アクセス)
-
15
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
16
ACCESS VBA でのエラー解決の根拠がわかりません エラー「イベントプロパティに指定した式・・
Access(アクセス)
-
17
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
18
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
19
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
20
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft 365 Basic サブスク...
-
Accessのクエリの印刷設定
-
Accessフォームの配色テーマを...
-
Accessクエリの集計について
-
Accessデータベースに含まれる...
-
Accessで独自メニューバーまた...
-
access2019 チェックボックスと...
-
access2021 VBA メソッドまたは...
-
Access DAOのExecuteメソッドの...
-
チェックボックスにチェックが...
-
accessでexcelを読み込む時のデ...
-
ACCESS VBA でのエラー解決の根...
-
Access VBA [リモートサーバー...
-
Microsoft365にAccessってあり...
-
列が255以上のCSVファイルをAcc...
-
Access Error3061 パラメータが...
-
Accessのクエリで、replace関数...
-
accessデータを指定したExcel、...
-
【至急・画像あり】建物or住所...
-
宜しくお願いします
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAをつかってクエリの情報を抽...
-
実行時エラー3131 FROM 句の構...
-
Accessのテーブルへ複数の主キ...
-
SQL文が実行できません
-
テキストボックスに入れた内容...
-
codeigniter 複数モデルでトラ...
-
PHP(PDO)でDBの情報を完全一...
-
SELECT文を発行して、ACCESSよ...
-
SQL文の実行に失敗しました???
-
エラー3011
-
zend(phpフレームワーク)でトラ...
-
ASPでRecordCountが使用でき...
-
PEAR でprepareメソッドがエラーに
-
phpのPEARのMDB2を使って出たエ...
-
die と exit は何が違うので...
-
SELECT COUNTで取得した結果の表示
-
ADOを使いDBへ読み書きしたい
-
時刻型にNULLでセットしたい
-
LocalのNotesメールDBをVBAで参...
-
SQLインジェクション対策(...
おすすめ情報