![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
アクセスで下記コードを実行すると「実行時エラー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
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.6
- 回答日時:
>>データ型は短いテキストです
そっか、テキストボックスといってたから、抽出条件は文字型(文字列)なんですね。
文字列の場合には=の後の指定値は'で囲まないとなりません。
ほぼ全てのデータベースで同じです。
T-見積書の-は使え無いから、テーブル名はT見積書だとして
vsql = "select * from T見積書 where 見積ID = i"
↓
vsql = "select * from T見積書 where 見積ID ='" & i & "'"
(iの中身を'で囲う。ABCなら'ABC')
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.4
- 回答日時:
>>iにはフォーム上に表示されているテキストボックスの見積IDの値を代入しています
ではデータの型が違うのでは?
列名の見積IDが数値型や日付/時刻型とか、全角/半角の違いとか。
手動のクエリで確認出来ませんか
Dim i As Variantを、自分の思っている型宣言にして見るとか・・・。
データ型は短いテキストです
全角半角もスペース含め確認しました
dim i as stringで試してみても変わらず…
手動のクエリの確認方法が分からないのですがどう確認するのでしょうか?
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
No.3
- 回答日時:
データベス列名の見積IDの型が文字なのにクエリで数値を指定してるとか、その逆とかです。
>>i = 見積ID
これは、VBAとしてはどちらも変数です。
見積IDと言う変数の中身をiと言う変数に代入しています。
列名の見積IDでは無いですよ、pg内の変数として扱われます。
このプログラムを見ると、見積IDと言う変数に何もセットしていなくて、イキナリiに中身を代入しています。
言葉足らずでした!
iにはフォーム上に表示されているテキストボックスの見積IDの値を代入しています
i = 見積ID
msgbox i
と実行するとテキストボックスに入力されているデータが呼び出し出来るので代入は出来てるかと思います
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_16.png?5a7ff87)
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(アクセス)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
FROM句の構文エラー ACCESS SQL
その他(データベース)
-
-
4
access2003 クエリSQL文について
その他(プログラミング・Web制作)
-
5
AccessのSQLで、FROM句の構文エラー
その他(データベース)
-
6
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
7
「FROM 句の構文エラーです」が表示される
Visual Basic(VBA)
-
8
Access2010 「演算子がありません」エラー
その他(データベース)
-
9
構文エラー:演算子がありません。 ACCESS SQL
その他(データベース)
-
10
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
-
11
実行時エラー -2147217900 ADODBでレコードセットオープン時エラー
Access(アクセス)
-
12
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
13
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
14
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
15
実行時エラー '3464': 抽出条件でデータ型が
Access(アクセス)
-
16
アクセスVBAのMe!と[ ]
Access(アクセス)
-
17
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
18
ACCESSでテーブルにあるチェックボックスを一括でYesにする方法を教えてください
Access(アクセス)
-
19
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
20
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー3131 FROM 句の構...
-
エラー3011
-
VBAをつかってクエリの情報を抽...
-
in 'where clause'のエラーの理由
-
PEAR::DBでのMySQL接続
-
SQL文が実行できません
-
codeigniter 複数モデルでトラ...
-
PHPのPEAR:DBでPostgreSQLを使...
-
ユーザー定義関数の意味
-
見られたくないファイル
-
単純ですが、意外と穴?なデー...
-
MySQLでデータベースにデータin...
-
データベースに存在するデータ...
-
insert1つの処理でもトランザ...
-
sortable ギブアップです…助け...
-
JAVA SQLServerException 列名 ...
-
INSERT,DELETEを同時に
-
csvをDBへ読み込んだら、NULLが...
-
アラートでyes noを作りたいです。
-
VBA ACCESS SQL...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー3131 FROM 句の構...
-
VBAをつかってクエリの情報を抽...
-
SQL文が実行できません
-
テキストボックスに入れた内容...
-
in 'where clause'のエラーの理由
-
エラー3011
-
SQL文の実行に失敗しました???
-
LocalのNotesメールDBをVBAで参...
-
SELECT COUNTで取得した結果の表示
-
codeigniter 複数モデルでトラ...
-
PHP(PDO)でDBの情報を完全一...
-
Accessのテーブルへ複数の主キ...
-
phpのPEARのMDB2を使って出たエ...
-
ASPでRecordCountが使用でき...
-
Call to undefined method MDB2...
-
PHP4でのSmarty派生クラスの定...
-
zend(phpフレームワーク)でトラ...
-
データフォームウィザードで追...
-
DAOでデータベースを二つ開くに...
-
SQLiteでカラムを追加
おすすめ情報