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
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.
deixe-me dizer algumas palavras