vbaのlike文に変数を入れる方法は？

Question

は、私は、変数

変数を持つようなSQL文を使用してDBアクセスからデータを取得しようとしていることは、文字列「mrcTrx」の解説で*******へ

Goは得ることですポイントに直接。

私は大したことではないことを知っていますが、私は答えを見つけることができませんありがとう！

変数を配置する場合はI exemple「05」のコードの値に置く場合は、あなたが間違った構文

"SELECT MUNIC FROM Munic_en_MAJ_par_MRC WHERE MRC LIKE '" & mrcTrx & "'" 

を持って完全に

Sub GetMun() 

      Dim cn As Object 
      Dim rs As Object 
      Dim intColIndex As Integer 

      Dim TargetRange As Range 
      Dim mrcMun As String 
      Dim mrcTrx As String 
      Dim reg As String 

      mrcTrx = Val(Range("D2").Value) 

      If Len(mrcTrx) < 2 Then 

       mrcTrx = "0" + mrcTrx 

      End If 



      Debug.Print mrcTrx 

      Dim totalGP As Integer 
      Dim debutRng As String 

      totalGP = Sheets("T1").Range("G247").Value 

      debutRng = "D" & 250 + totalGP 


     mrcMun = "D:\FicheMacro\Mun\PréparationTRX par Munic.mdb" 

     'On Error GoTo ErrorGetGPmun 

     Application.ScreenUpdating = False 

     Set TargetRange = Sheets("T1").Range(debutRng) 

     Set cn = CreateObject("ADODB.Connection") 
     cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & mrcMun 
'******* 
     Set rs = CreateObject("ADODB.Recordset") 
     rs.Open "SELECT MUNIC FROM Munic_en_MAJ_par_MRC WHERE MRC LIKE ' & mrcTrx & ' ", cn, , , adCmdText 


      TargetRange.CopyFromRecordset rs 



     Application.ScreenUpdating = True 


    rs.Close 
    Set rs = Nothing 
    cn.Close 
    Set cn = Nothing 

    Exit Sub 



ErrorGetGPmun: 

    MsgBox "Valider le type de trx et l'entête de la T1", vbExclamation, "La Fiche! GP" 


End Sub 

Answer 1

作品cuzのコードの残りの部分は結構です文字列の中で