質問: Nothing End Sub ``` また、この**クエリをの全データの中から、任意の一文字の前方一致検索に対応するデータを 取得したい**です。 初めの一文字はユーザーが入力する任意の値を想定している為、「*」を使用しています。 *から始まる任意の値です。 この記述の仕方は合っているのでしょうか...。 ネットで調べると、「初めがAの前方一致検索」など、特定のを使う方法しか出てこないもので...。 細かい部分の記述の仕方がわからず困っています。 併せてお答え頂ければ幸甚です。
回答: 一度、エラートラップを入れてみて、エラー箇所を特定してみてはどうでしょうか? ``` Private Sub クエリ取得_Click() On Error GoTo myError '★追加 Dim Cn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim strSQL As String Dim strConnectionString As String 'SQLServer接続文字列 strConnectionString = CStr(DLookup("connectionString", "接続文字列テーブル", "ID= 2")) //Access自身のテーブルに、接続文字列を入れて、その値を変数に代入しています strSQL = "SELECT * FROM Q_m_kokyaku_shohin" strSQL = strSQL & " WHERE Q_m_kokyaku_shohin.顧客番号 like '*%'" Cn.ConnectionString = strConnectionString Cn.Open Rs.Open strSQL, Cn, adOpenForwardOnly, adLockReadOnly //エラーのデバッグポイントはここ Set Me.Recordset = Rs Rs.Close Cn.Close Set Rs = Nothing Set Cn = Nothing Exit Sub '★追加 myError: '★追加 MsgBox "エラー番号:" & Err.Number & vbCrLf & "エラーの種類:" & Err.Description, vbExclamation '★追加 End Sub ```