• ベストアンサー

ACCESS VBAの実行時エラーなんですが

hymatuyama00の回答

回答No.1

" WHERE ( T_KYORI.02オン1= '0101') and (T_KYORI.03オン2= '160') and (T_KYORI.15区間距離= '1274' );" ではいかがですか？

maaaa
質問者

お礼

ありがとうございました

この回答がついた質問に戻る
回答 全件
ベストアンサー
＃２です。訂正します。 全角文字ではなく、数字から始まるフィール…
T_KYORI.[02オン1]= '0101' and T_KYORI…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • accessのvbaでの実行時エラーについて

    いつもお世話になっております。 Accessのvbaで下記のコードを実行して、データを 取得したいのですが、OpenRecordsetのところで 「実行時エラー'3615' 式で型が一致しません。」 というエラーがでてしまいます。 ーーーーーーーーーーーーーーーーーーーーーーー Dim db As Database Dim Rec As Recordset Dim strSql As String strSql = "SELECT 入金日 FROM 入金チェック WHERE ID IN(SELECT ID FROM 入居者管理 WHERE 物件名 = '" & 　strBukken & "')" Set db = CurrentDb() Set Rec = db.OpenRecordset(strSql) ーーーーーーーーーーーーーーーーーーーーーーー 副問合せのしかたがまずいのか、 どうもよくわかりません。 お手数ですが、お分かりの方がおられましたら ご教示お願いいたします。

  • Access2002のＶＢＡエラーで

    クエリで抽出したレコードを利用したいのですがうまくいきません。 Dim ds As Database Dim rs As Recordset Set ds = CurrentDb Set rs = ds.OpenRecordset("クエリ名") デバッグすると　 Set rs = ds.OpenRecordset("クエリ名")　で止まります。 「実行時エラー’3061’ パラメータが少なすぎます。１を指定してください」のメッセージです。 どのような意味でしょう。教えてください。

  • Access VBAでの構文エラー

    Access2003を使って画像DBを作成しています。 VBAを利用して、AテーブルのidとBテーブルのidの一致を検索し、 検索結果を表形式の「検索結果Form」に表示するプログラムを 作成していますが、以下のコードをコンパイルすると 「構文エラー」が出てしまいます。 どなたか、解決策を教えてください。よろしくお願いいたします。 Dim objCon As DAO.Database Dim objRs As DAO.Recordset Dim strSQL As String Set objCon = Application.CurrentDb strSQL = " select * " _ & " FROM A, B " _ & " where A!id = B!id" Set objRs = objCon.OpenRecordset(strSQL, dbOpenDynaset) '他のフォームに検索結果を表示する方法 'もし検索結果が見つかった場合 If objRs.EOF = False Then MsgBox "見つかりました!", vbOKOnly, "結果" DoCmd.OpenForm "検索結果Form", , , strSQL '検索結果が見つからなかった場合 Else 'Me.txtAge.Value = vbNullString MsgBox "見つかりませんでした", vbOKOnly, "結果" End If objRs.Close

  • ACCESS 処理の件数を取得したい

    どうやっていいのか困っています。 ＤＡＯで処理をしています。 下記のような処理があり、それぞれの更新、検索、追加の件数を とりたいのですがどなたか教えていただけないでしょうか？ もしくはサンプル、どこかいいサイトはありませんか？ よろしくおねがいします。 UPDATEの場合 CurrentDb.Execute "UPDATE T_A SET WHERE Flag = '0'", dbFailOnError SELECTの場合 strSQL = "SELECT * FROM T_N " CurrentDb.Execute strSQL, dbFailOnError INSERTの場合 strSQL = "INSERT INTO FROM T_Y " CurrentDb.Execute strSQL, dbFailOnError

  • Access2010実行時エラー-21473525

    特定のレコードでボタンをクリックすると、以下のエラーが表示されて、「Me.チェック = True」が黄色に反転します。 実行時エラー ’-2147352567(8002009)’ データは変更されています。 文法的におかしなことをしていると思うのですが、エラーが出ない方法を教えていただければ助かります。 よろしくお願いいたします。 Dim dbs As Database Dim strSQL As String Set dbs = CurrentDb strSQL = "UPDATE マスター " & _ "SET 在庫数 = NZ(在庫数) + " & Nz(Me.入庫数量, 0) & " " & _ "WHERE コード = '" & Me.コード & "'" dbs.Execute strSQL Me.チェック = True

  • 実行時エラー3061　パラメーターが少なすぎます

    顧客情報を入力したフォームで顧客情報を入力した際 実行時エラー3061 パラメーターが少なすぎます。 １を指定してください。 と表示されましたが、これはどう処理すればよろしいでしょうか？ デバックを表示で Set Rst = CurrentDb.OpenRecordset(strSQL) が黄色くなりました。 Access2010を使用しています。 よろしくお願い致します。

  • 【Access2003】クエリで動作するSQLがVBAで動作せず困っています。

    下記のソースを実行したところ、「パラメータが少なすぎます。2を指定してください。」というエラーが表示されました。 エラーが発生する箇所は「db.Execute strsql」です。 しかし、このstrsqlに書かれているSQL文をクエリで実行した所、問題なく動作しました。 なんとなく、クエリでは書けるものの、VBAでは書きない所があるのかなと思ったのですが、どのように修正すればよいか分かりませんでした。 その為、上記の現象について、ご教示いただける方がいらっしゃいましたら、よろしくお願いします。 【VBA】 Private Sub btn_Click() Dim db As DAO.Database Dim ws As DAO.Workspace Dim str As String Set ws = DBEngine.Workspaces(0) Set db = CurrentDb ' トランザクション開始 ws.BeginTrans strsql = "INSERT INTO T_W ( W_DAY )" strsql = strsql & "SELECT T_M.M_DAY" strsql = strsql & " FROM T_M" strsql = strsql & " WHERE (((Left([T_M].[M_DAY],4) & Mid([T_M].[M_DAY],6,2) & Right([T_M].[M_DAY],2))" strsql = strsql & " Between IIf(Nz([Forms]![F_1]![text_str])='',0,[Forms]![F_1]![text_end])" strsql = strsql & " And IIf(Nz([Forms]![F_1]![text_str])='',99999999,[Forms]![F_1]![text_end])))" strsql = strsql & " ORDER BY T_M.M_DAY" db.Execute strsql ws.CommitTrans End Sub 【フォーム：F_1】 テキストボックス：text_str テキストボックス：text_end コマンドボタン：btn 【データベース：T_M】 フィールド名：M_DAY 　　　値　　：2001/01/01 　　　値　　：2001/01/02 　　　値　　：2001/01/03 (以下略) 【データベース：T_W】 フィールド名：W_DAY 　　　値　　：なし よろしくお願いします。

  • Access VBAでクエリーのレコード件数を取得したいのですが

    Access2003のVBAで次のような構文を用いてクエリーの該当レコード数を取得したいのですがうまく出来ません。 構文又は手法が間違っているのでしょうか。 Dim db As Database Dim rs As Recordset Dim cnt As Long Set db = CurrentDb Set rs = db.OpenRecordset("該当顧客リストクエリ", dbOpenTable) cnt = rs.RecordCount ※OpenRecordsetの行で「実行時エラー'3219'無効な処理です」と出てしまいます。 又、”該当顧客リストクエリ”では特定の抽出条件を設定して、”顧客リストテーブル”の一部を抽出するようにしています。

  • ACCESS VBAについて

    初歩的な質問かと思いますが、よろしくお願いします。 strSQL = "SELECT shain_cd,shime_ym FROM 社員マスター" strSQL = strSQL & " WHERE shain_cd = '" & work_shain_cd & "'" strSQL = strSQL & " AND shime_ym = '" & Me.shime_ym & "'" Set cn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open strSQL, cn, adOpenKeyset, adLockOptimistic 上記を実行したところ、最終行にて エラーメッセージ： 「1つ以上の必要なパラメータの値が設定されていません。」 となります。 何が問題でしょうか？ ※質問文に不足があれば、補足欄にて追記させていただきます。

  • [ACCESS/VBA]動的にＳＱＬ文をテーブルから抽出する方法？

    ボロボロです。知恵が足りずとても困っています。どなたか教えてください。 テーブル「T_SQL」の各レコードに、 クエリのSQL文（フィールド名＝「strSQL」）と クエリ名（フィールド名＝「QName」）と 通しNo.（フィールド名＝「No」） をデータとして入力し、アクション等に応じて、「T_SQL」から 抽出したＳＱＬ文を、 マクロの「プロシージャの実行」の プロシージャ名 SetSQL("クエリー１",FindSQL(No)) により クエリ「クエリー１」に代入したいのです。 現在以下の通りに作りました。 'データベース定義 Public db As Database 'レコードセット定義 Public rs As Recordset Public Function SetSQL(QName As String, strSQL As String) CurrentDb.QueryDefs("QName").SQL = strSQL End Function Public Function FindSQL(No As String) Set db = CurrentDb() Set rs = db.OpenRecordset("T_SQL", dbopendynaset) strcriteria = "[No]='" & No & "'" rs.FindFirst strcriteria FindSQL = rs!strSQL rs.Close db.Close End Function これで実行すると、 「コンパイルエラー メソッドまたはデータメンバが 見つかりません」 というエラーメッセージが出ます。 ちょこちょこいろんなところを修正してみても、 このメッセージだけでなく他にもいろんな エラーメッセージが出ます。 冒頭に書いたような機能を可能にするには、 どのように記述すればよいのでしょうか？？ ほんとにほんとに困っています。どなたか助けてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する