Access2010 「演算子がありません」エラー

前へ 次へ
このQ&Aのポイント
  • フォーム上に別フォームを開くボタンがあるのですが、クリックすると実行時エラーが表示されます。
  • コードを数値型からテキスト型に変更したのが原因だと思います。エラーが出ない方法を教えていただければ助かります。
  • Access2010でフォーム上に別フォームを開くボタンをクリックすると、「演算子がありません」というエラーが表示されます。このエラーは、コードを数値型からテキスト型に変更したことが原因で発生している可能性があります。エラーが出ない方法を教えていただけると助かります。
回答を見る
  • ベストアンサー

Access2010 「演算子がありません」エラー

フォーム上に別フォームを開くボタンがあるのですが、クリックすると実行時エラーが表示されます。 実行時エラー　3075 クエリ式”コード　IN（○○,××）の構文エラー　演算子がありません。 コードを数値型からテキスト型に変更したのが原因だと思います。 エラーが出ない方法を教えていただければ助かります。 よろしくお願いいたします。 Dim rst As Recordset Dim strWhere As String Set rst = Me.RecordsetClone With rst If .RecordCount = 0 Then Beep Exit Sub End If .MoveFirst strWhere = "" Do Until .EOF strWhere = strWhere & IIf(Len(strWhere) > 0, ",", "") & !コード .MoveNext Loop .Close strWhere = "コード IN (" & strWhere & ")" End With DoCmd.OpenForm "フォーム", , , strWhere

質問者が選んだベストアンサー

  • ベストアンサー
  • piroin654
  • ベストアンサー率75% (692/917)
回答No.4

補足をよんでいなかったので、In句の中身の使い道 がわかりませんでした。 コード　IN（○○,××） ○○,××は、元フォームに表示されているレコードになりますので ということならば、No3の方の回答の、 strWhere = ",'" & !コード & "'" を strWhere = strWhere & ",'" & !コード & "'" にすればよろしいかと。

kami21
質問者

お礼

再度のご回答ありがとうございました。 おかげさまで表示されるようになりました。 ありがとうございました。

その他の回答 (3)

  • m3_maki
  • ベストアンサー率64% (295/459)
回答No.3

> コードを数値型からテキスト型に変更したのが原因だと思います。 ということですから 数値型の場合に 　　IN (10,20,30) であったものを 　　IN ('10','20','30') あるいは 　　IN ("10","20","30") となるように編集しなくてはいけません。 文字列に 「'」 が含まれていることがあり得る場合以外は 前者の方が分かり易いのでお勧めです。 ついでに、カンマ区切りとか、 Where条件の 「AND」 でつなぐ場合のテクニックを。 IIf の判断をしないで すべて、2番目以降の場合と同様に記述し 連結を終了してから 先頭の余分な文字を MID 関数を使用して取り除きます。 strWhere = "" Do Until .EOF 　　strWhere = ",'" & !コード & "'" 　　.MoveNext Loop .Close strWhere = "コード IN (" & Mid(strWhere,2) & ")" 直書きにつき、間違っていたら御免なさい。

kami21
質問者

補足

ご回答ありがとうございました。 この通りに書きましたら、次のフォームが開いてレコードが一行表示されました。 説明不足だったのですが、元フォームには複数のレコードがある帳票フォームで、次のフォームも同じになります。 この方法で、複数の値を渡すことができれば、動作しそうです。 ありがとうございました。

  • piroin654
  • ベストアンサー率75% (692/917)
回答No.2

コードが文字型ならば、 strWhere = "コード IN (" & strWhere & ")" を strWhere = "コード IN ('" & strWhere & "')" に。

kami21
質問者

補足

ご回答ありがとうございました。 エラーは出なくなりましたが、次のフォームに何も表示されませんでした。 まだ何かが不足しているように思いました。 ありがとうございました。

  • ShowMeHow
  • ベストアンサー率28% (1424/5027)
回答No.1

止まった行がDoCmdの行なら、 DoCmd.OpenForm "フォーム", , , strWhere の前に debug.print strwhere とか msgbox strwhere などとして、意図しているstrWhereになっているかを確認するとよいと思います。

kami21
質問者

補足

ご回答ありがとうございました。 止まった行はDoCmdの行です。 msgbox strwhereとしたところ、エラーメッセージと同じ内容の部分が表示されました。 コード　IN（○○,××） ○○,××は、元フォームに表示されているレコードになりますので、これでいいと思います。 ただ、知識がありませんので、この操作がどのような意味か理解できませんでした。 ありがとうございました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. データベース
  4. その他(データベース)

関連するQ&A

  • Access2007　サブフォームのレコードを一括印刷する方法

    お世話になっております。 サブフォームは帳票型になっており、下記で表示されている全レコードのチェックが入ります。 これと平行して、各レコードを印刷したいのですが、カーソルがあるレコードのみがレコードの数だけ印刷されてしまいます。 これを各レコードごとに印刷したいと思います。 Dim dbs As Database Dim rst As Recordset Dim strSQL As String Set dbs = CurrentDb Set rst = Me.RecordsetClone With rst If .RecordCount > 0 Then .MoveFirst Do Until .EOF .Edit !チェック = True DoCmd.OpenReport "印刷", acNormal, , "コード=" & Me.コード .Update .MoveNext Loop End If .Close End With ご教授いただければ幸いです。よろしくお願いいたします。

  • Access2007　データ型エラーについて

    お世話になっております。 下記のVBAでコードを数値型からテキスト型に変更したところ、「抽出条件でデータ型が一致しません。」というエラーが出ました。 デバッグをクリックすると、dbs.Execute strSQLの部分が黄色に反転しています。 VBAはあまり詳しくありませんので、エラーが出なくなる方法を教えていただければ助かります。 よろしくお願いいたします。 Private Sub 在庫差引_Click() Dim dbs As Database Dim rst As Recordset Dim strSQL As String Set dbs = CurrentDb Set rst = Me!サブフォーム.Form.RecordsetClone With rst .MoveFirst Do Until .EOF strSQL = "UPDATE マスター " & _ "SET 在庫数 = NZ(在庫数) - " & Nz(!数量, 0) & " " & _ "WHERE コード = " & !コード dbs.Execute strSQL .MoveNext Loop .Close End With End Sub

  • Access2007 コンパイルエラーについて

    お世話になっております。 Access2003で問題なく使っていたプログラムを2007用accdbに変換して2007で動かしたところ、コンパイルエラーが出るようになりました。 エラー表示 コンパイルエラー：メソッドまたはデータ メンバが見つかりません。 コードは以下のとおりで（抜粋）、.Edit部分が反転します。 簡単なVBAはわかりますが、今回のエラーは何が原因かわかりませんので、ご教授いただければ幸いです。 よろしくお願いいたします。 Private Sub 元に戻す1_Click() Dim dbs As Database Dim rst1 As Recordset Dim rst2 As Recordset Dim strSQL As String Dim lngTmpVol As Long Dim lngSubVol As Long DoCmd.RunCommand acCmdSaveRecord Set dbs = CurrentDb '売上構成テーブルから画面上のb伝票コードのレコードセットを開く strSQL = "SELECT bbコード, 数量 FROM 売上構成 " & _ "WHERE b伝票コード = " & Me!b伝票コード & _ " ORDER BY 売上構成コード DESC" Set rst1 = dbs.OpenRecordset(strSQL) '売上構成の読み込みループ Do Until rst1.EOF 'カレントレコードの数量を変数に保存 lngTmpVol = rst1!数量 'カレントレコードのbbコードと画面上の社員コードで出庫履歴のレコードセットを開く strSQL = "SELECT 出庫数量, 確定数量, 返却数量 FROM 出庫履歴 " & _ "WHERE bbコード = " & rst1!bbコード & " AND 社員コード = " & Me!社員コード & _ " ORDER BY 出庫日 DESC, 出庫コード DESC" Set rst2 = dbs.OpenRecordset(strSQL) With rst2 If .RecordCount > 0 Then '出庫履歴の読み込みループ Do Until .EOF .Edit If Nz(!確定数量) >= lngTmpVol Then '数量すべてを確定数量から減算できるとき '減算後の数量を取得 lngSubVol = Nz(!確定数量) - lngTmpVol !確定数量 = IIf(lngSubVol <> 0, lngSubVol, Null) lngTmpVol = 0 Else '数量すべては確定数量から減算できないとき lngTmpVol = lngTmpVol - Nz(!確定数量) !確定数量 = Null End If .Update 'すべてを割り当てたらループを抜ける If lngTmpVol <= 0 Then Exit Do .MoveNext Loop End If .Close End With rst1.MoveNext Loop rst1.Close End Sub

  • Access2010 「型が一致しません。」エラー

    お世話になっております。 テキストファイルからデータを取り込んで、テーブルにあるデータと同じデータのみを表示させるプログラムがあります。 コードが「001」のように整数の場合は問題ないのですが、「A001」のように英数のデータの場合は、このエラーが出てしまいます。 「実行時エラー13　型が一致しません。」 デバッグをクリックすると、下記の部分が黄色に反転します。 「If DFirst("コード", "テーブル", "コード = '" & avarFldData(0) & "'") Then」 テキストファイルのデータがテーブルにない場合はエラーが出ませんので、一致したデータがある場合のみエラーが出ます。 VBAはあまり詳しくありませんので、エラーが出なくなる方法を教えていただければ助かります。 よろしくお願いいたします。 Private Sub Form_Load() Dim dbs As Database Dim rst As Recordset Dim strImportDir As String Dim strFile As String Dim lngFileNum As Long Dim strData As String Dim avarFldData As Variant Dim iintLoop As Integer DoCmd.Hourglass True strImportDir = Application.CurrentProject.Path & "\" strFile = strImportDir & "File.TXT" Set dbs = CurrentDb GoSub ReadFile Me.Requery DoCmd.Hourglass False Exit Sub ReadFile: Set rst = dbs.OpenRecordset("履歴", dbOpenDynaset, dbAppendOnly) lngFileNum = FreeFile() Open strFile For Input As #lngFileNum Do Until EOF(lngFileNum) Line Input #lngFileNum, strData avarFldData = Split(strData, ",", , vbTextCompare) For iintLoop = 0 To UBound(avarFldData) avarFldData(iintLoop) = Trim$(avarFldData(iintLoop)) Next iintLoop If DFirst("コード", "テーブル", "コード = '" & avarFldData(0) & "'") Then With rst .AddNew !コード = avarFldData(0) .Update End With End If ' End If Loop Close #lngFileNum rst.Close Kill strFile Return End Sub

  • ACCESS2000VBAでエラー「型が一致しません」

    ACCESS2000で、フォーム上にボタンを作り、そのボタンをクリック時に 以下のイベント プロシージャを実行させています。 Dim dbs As Database Dim rst As Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("採番_相談者") Dim Number rst.MoveFirst Number = rst!相談者番号 Number = Number + 1 Me.相談者NO = Number '相談者NOはフォーム上のテキストボックスです。 で上記　Set rst = dbs.OpenRecordset("採番_相談者") の所で、「実行時エラー 13　型が一致しません」とエラーになります。 テーブル：採番_相談者は、オートナンバー型のIDフィールドと相談者番号という７桁のテキスト型で ”1000001”が入っています。（ちなみに、数値型に変えても同じエラーでした。） 詳しい方教えてください。お願いします。

  • ＡＣＣＥＳＳを活用して商品変動を捉えたい(5再再）

    http://okwave.jp/qa/q8782706.html 上記について標準モジュールも作成して、先のクエリーを実行しましたが、 その際に ！コンパイル　エラー： ユーザー定義型は定義されていません。 と出ます。 5行目の rst As ADODB.Recordset 箇所が反転されています。 一回でできるのは魅力なのですが、本当に実装できるのでしょうか。 （クエリーはたしかに保存できました） Public Function DBLookup(ByVal strQuerySQL As String, _ 　　　　　　　　　　　　　Optional ByVal ReturnValue = Null) As Variant On Error GoTo Err_DBLookup 　　Dim DataValue 　　Dim rst　　　　 As ADODB.Recordset 　　Set rst = New ADODB.Recordset 　　With rst 　　　　.Open strQuerySQL, _ 　　　　　　　CurrentProject.Connection, _ 　　　　　　　adOpenStatic, _ 　　　　　　　adLockReadOnly 　　　　If Not .BOF Then 　　　　　　.MoveFirst 　　　　　　DataValue = .Fields(0) 　　　　End If 　　End With Exit_DBLookup: On Error Resume Next 　　rst.Close 　　Set rst = Nothing 　　DBLookup = IIf(Len(DataValue & ""), DataValue, ReturnValue) 　　Exit Function Err_DBLookup: 　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _ 　　　　　 "・Err.Description=" & Err.Description & Chr$(13) & _ 　　　　　 "・SQL Text=" & strQuerySQL, _ 　　　　　 vbExclamation, " 関数エラーメッセージ" 　　Resume Exit_DBLookup End Function Public Function DBLookup(ByVal strQuerySQL As String, _ 　　　　　　　　　　　　　Optional ByVal ReturnValue = Null) As Variant On Error GoTo Err_DBLookup 　　Dim DataValue 　　Dim rst　　　　 As ADODB.Recordset 　　Set rst = New ADODB.Recordset 　　With rst 　　　　.Open strQuerySQL, _ 　　　　　　　CurrentProject.Connection, _ 　　　　　　　adOpenStatic, _ 　　　　　　　adLockReadOnly 　　　　If Not .BOF Then 　　　　　　.MoveFirst 　　　　　　DataValue = .Fields(0) 　　　　End If 　　End With Exit_DBLookup: On Error Resume Next 　　rst.Close 　　Set rst = Nothing 　　DBLookup = IIf(Len(DataValue & ""), DataValue, ReturnValue) 　　Exit Function Err_DBLookup: 　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _ 　　　　　 "・Err.Description=" & Err.Description & Chr$(13) & _ 　　　　　 "・SQL Text=" & strQuerySQL, _ 　　　　　 vbExclamation, " 関数エラーメッセージ" 　　Resume Exit_DBLookup End Function

  • エクセルならうまく行くのですがアクセスだとエラーに

    エクセルならうまく行くのですがアクセスだとエラーになるのですがなぜでしょうか？ フォルダに入ってるフォルダ名を全て取得して一つにつなげたいのですが Sub フォルダ名を取得() 参照設定：Microsoft Scripting Runtime Dim MyFSO As Object Dim MyGetFolder As String Dim MyFolderName As String Dim MyFolder As Folder Dim i As Long MyGetFolder = "D:\My Documents" Set MyFSO = CreateObject("Scripting.FileSystemObject") With MyFSO With .GetFolder(MyGetFolder) For Each MyFolder In .SubFolders MyFolderName = MyFolderName & "," & MyFolder.Name Next End With End With MsgBox MyFolderName Set MyFSO = Nothing End Sub これを実行するとアクセスだと For Each MyFolder In .SubFolders で、実行時エラー13　型が一致しません。 になります。 エクセルもアクセスも参照設定：Microsoft Scripting Runtimeにチェックを入れています。 コードはネットで拾ってきたコードです。 オフィスの種類は2003・OSはXPです。

  • VB初心者ですＡｃｃｅｓｓを更新したいのですが

    VB初心者です、よろしくお願いします。 VBでAccessのレコードの一項目を更新したいのですが出来ません。 抽出条件からAccessのデータを持ってきた後、更新したいのですがどうすればいいのでしょうか？ 因みに抽出条件までは変更できません、AddNew以降でお願いします。 VB6でAccess2003です。 エラーは現在のRecordsetは更新をサポートしておりませ。プロダイバーかロックタイプの限界の可能性があります。 Set rst = New ADODB.Recordset '処理をするテーブル指定 rst.Open "[＊＊]", db, adOpenStatic, adLockOptimistic With rst .MoveFirst .Filter = "" criteria1 = "" criteria1 = "＊＊= '" & Module1.＊＊ & "'" .Filter = criteria1 If .RecordCount = 0 Then MsgBox "は登録されていません" Else .Filter = "" criteria2 = "" criteria2 = "＊＊= '" & Module1.＊＊ & "' " .Filter = criteria2 If .RecordCount = 0 Then MsgBox "登録されていません" Else .Filter = "" criteria3 = "" criteria3 = "＊＊'" & Module1.＊＊ & "' " .Filter = criteria2 If .RecordCount = 0 Then MsgBox "登録されていません" Else Module1.＊＊ = rst.Fields("＊＊") .AddNew .Fields("＊＊＊") = Module1.＊＊ .Update End If End If End If End With

  • access VBAで検索および抽出が出来ません・・・

    VBA初心者なのですが、あるサンプルデータを参考に顧客管理のフォームを作成しています。 検索条件が未入力なら全リストを、条件入力すれば検索・抽出したいのです。 未入力の場合は全リストが表示されていますが、条件入力すると真っ白になります・・・ リストボックスで表示するようにしています。 なぜ出来ないのか、どなたか詳しく教えてください。宜しくお願いします。 ______________________________________ Private Sub subSetFiler() Dim strWhere As String '変数の初期設定 strWhere = "" 'フリガナを部分一致で検索 If IsNull(Me![txtFurigana]) <> True Then If strWhere <> "" Then strWhere = strWhere & " And" End If strWhere = strWhere & "tm01_Kokyaku.tm01_Furigana Like'*" & Me![txtFurigana] & "*'" End If '物件を部分一致で検索 If IsNull(Me![txtBukken]) <> True Then If strWhere <> "" Then strWhere = strWhere & " And" End If strWhere = strWhere & "tm01_Kokyaku.tm01_Bukken Like '*" & Me![txtBukken] & "*'" End If 'Where文字列の加工 If strWhere <> "" Then strWhere = "Where" & strWhere End If 'リストボックスノ値集合ソース更新 Me![1stKokyakuCode] = Null Me![1stKokyakuCode].RowSource = "SELECT [tm01_Kokyaku].[tm01_Code] AS コード, [tm01_Kokyaku].[tm01_KokyakuName] AS 顧客名, [tm01_Kokyaku].[tm01_Bukken] AS 物件名, [tm01_Kokyaku].[tm01_Gouchi] AS 号地, [tm01_Kokyaku].[tm01_Address1] AS 住所, [tm01_Kokyaku].[tm01_Tel] AS 電話番号 " & _ "FROM tm01_Kokyaku" & _ strWhere & " " & _ "ORDER BY [tm01_Kokyaku].[tm01_Bukken], [tm01_Kokyaku].[tm01_Gouchi]" Me![1stKokyakuCode].Requery

  • ExcelからAccess2013DBを更新する時

    Excel2013 vba-> Access2013 mdbファイル 問題点：以下のソースを実行すると、エラーが発生します。このエラーをなくしてアクセスデータベースのテーブルの情報の更新、新規追加、削除を行いたいです。 エラー内容：実行時エラー'3251'　現在のRecordsetは更新をサポートしていません。プロバイダーか、選択されたロックタイプの限界の可能性があります。 ソース： Sub 登録処理() 　　Dim Rst As adodb.Recordset 　　Dim SQL As String 　　Dim Rg As Range 　　Dim RgData As Range 　　Dim lngLastRow As Long 　　Dim RgDel As Range 　　 　　On Error GoTo errH 　　 　　Set RgData = mySh.Range("B2") 　　lngLastRow = RgData.End(xlDown).Row 　　Set RgData = mySh.Range(RgData, mySh.Range("AB" & lngLastRow)) 　　 　　SQL = "Select * from [会社管理テーブル]" 　　Call DBconection2 　　Set Rst = New adodb.Recordset 　　With Rst 　　　　.ActiveConnection = Cn 　　　　'SQL文でテーブル名と抽出条件を指定する 　　　　.Source = SQL 　　　　.CursorLocation = 3 ' クライアントサイドカーソルに変更 　　　　.Open 　　　　 　　End With 　　 　　Dim y As Long 　　 　　Sheets("会社管理").Select 　　 　　If Rst.EOF = False And Rst.BOF = False Then 　　　　 　　　　For i = 1 To RgData.Rows.Count 　　　　　　 　　　　　　If Cells(i + 1, 1).Value = "変更" Then 　　　　　　　　Rst.MoveFirst 　　　　　　　　Rst.Find "[施工会社ID]=" & RgData(i, 1).Value 　　　　　　　　If Rst.EOF Then 　　　　　　　　　　 　　　　　　　　Else 　　　　　　　　　　Rst.Fields("会社ID").Value = RgData(i, 2).Value 　　　　　　　　　　Rst.Fields("会社名").Value = RgData(i, 3).Value 　　　　　　　　　　Rst.Fields("フリガナ").Value = RgData(i, 4).Value 　　 　　　　　　　　　　Rst.Update 　　　　　　　　End If 　　　　　　　　Cells(i + 1, 1).Value = "" 　　　　　　ElseIf Range(i, 1).Value = "削除" Then 　　　　　　　　Rst.MoveFirst 　　　　　　　　 　　　　　　　　Rst.Find "[会社ID]=" & RgData.Cells(i, 1).Value 　　　　　　　　If Rst.EOF Then 　　　　　　　　　　 　　　　　　　　Else 　　　　　　　　　　Rst.Delete 　　　　　　　　End If 　　　　　　　　Set RgDel = Rows(i + 1 & ":" & i + 1) 　　　　　　　　RgDel.Select 　　　　　　　　RgDel.Delete 　　　　　　　　 　　　　　　ElseIf Range(i, 1).Value = "新規" Then 　　　　　　　　Rst.AddNew 　　　　　　　　Rst.Fields("会社ID").Value = RgData(i, 2).Value 　　　　　　　　Rst.Fields("会社名").Value = RgData(i, 3).Value 　　　　　　　　Rst.Fields("フリガナ").Value = RgData(i, 4).Value 　　　　　　　　Rst.Update 　　　　　　　　Cells(i + 1, 1).Value = "" 　　　　　　End If 　　　　　　 　　　　Next i 　　　　 　　End If exitH: 　　 　　Rst.Close: Set Rst = Nothing 　　Call DBclose2 　　Exit Sub 　　 　　　　 errH: 　　MsgBox Err.Number & "(" & Err.Description & ")" 　　GoTo exitH 　　 End Sub Sub DBconection2() 　　Set Cn = New adodb.Connection 　　Cn.Provider = "Microsoft.Jet.OLEDB.4.0" 　　Cn.Open modPublic.DBPATH 　　 End Sub Function MakeDBconection() As adodb.Connection 　　Set Cn = New adodb.Connection 　　Cn.Provider = "Microsoft.Jet.OLEDB.4.0" 　　Cn.Open modPublic.DBPATH 　　 　　Set MakeDBconection = Cn 　　 End Function Sub DBclose2() 　　Cn.Close 　　Set Cn = Nothing End Sub Sub EraseContents(s_Rg As Range) 　　s_Rg.ClearContents 　　 End Sub 誰か、解決方法がおわかりの方がいましたら、アドバイスをよろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する