Como colocar uma variável em uma declaração like em vba?

Max Bridge

Estou tentando obter dados de um acesso db usando a instrução sql como com uma variável

A variável é uma string "mrcTrx"

Vá para o tópico de comentários para ir direto ao ponto.

Eu sei que não é grande coisa, mas não consigo encontrar a resposta, obrigado!

O resto do código está bem porque se eu colocar um valor para o exemplo '05' o código funciona perfeitamente

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
Maldred

Você tem a sintaxe incorreta

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

Ao colocar uma variável em uma string, certifique-se de usar "e &corretamente em sua sintaxe

Este artigo é coletado da Internet.

Se houver alguma infração, entre em [email protected] Delete.

editar em
0

deixe-me dizer algumas palavras

0comentários
loginDepois de participar da revisão

Artigos relacionados

Como colocar uma variável em uma instrução def?

Excel VBA - consulte uma planilha como uma variável em uma declaração IF

Como colocar variável em uma consulta?

Como colocar uma data como variável em uma fórmula em VBA?

como colocar uma variável global em outra seção

como colocar uma variável global em outra seção

Em 'sh' como colocar o resultado de uma comparação de strings em uma variável?

Em 'sh' como colocar o resultado de uma comparação de strings em uma variável?

Como encurtar a declaração de variável em uma classe?

Como faço para colocar uma variável em uma função geolocator.reverse ()?

Como colocar uma expressão lambda em uma variável e depois passá-la para as / r

Como posso colocar uma exibição XML em uma variável de matriz?

Como colocar uma string de instrução de várias linhas em uma variável?

Como colocar o valor de uma entrada em uma variável no tkinter

Prolog. Em uma consulta, como colocar uma condição em uma variável que não quero nos resultados?

Como posso colocar o resultado do comando rfcomm shell em uma variável em python?

Como colocar esses dados Json em uma variável Php?

Como colocar uma variável em docstring Python

Como colocar uma variável em bot.sendMesage (python)

Como colocar os resultados do subprocesso em uma variável

Imprimir declaração em uma variável

Existe uma maneira de não colocar o {próximo à declaração em uma variável dict em python?

Como colocar o valor do viewbag como uma variável em javascript / jquery?

Como colocar o valor de um aplicativo como uma variável em javascript?

Como colocar uma variável dentro de uma variável em python

Como colocar uma variável dentro de uma variável em lote

Como faço para colocar a variável em uma operação de divisão de lista?

Como posso colocar o resultado SQL em variável no VBA

Como faço para colocar uma variável em maiúscula no bigode

TOP lista

quentelabel

Arquivo