[Resolvido]Quebra de linha dentro de uma String

Olá,

Pessoal estou tentando quebra uma linha dentro de uma String muito longa e não estou conseguindo.

Veja o código abaixo:


Private Sub Report_Open(Cancel As Integer)

Dim strSql As String

strSql = "SELECT Nt_Fornecedor AS Fornecedor, Nt_Motorista AS Motorista, Par_NunParcela AS Parcela, Sum(Par_Valor) AS Valor, Par_Vencimento AS Vencimento, Par_Quitado AS Pago"
strSql = strSql & " FROM tblNotas INNER JOIN tblParcelas ON tblNotas.IdNota=tblParcelas.IdNota"
strSql = strSql & " GROUP BY Nt_Fornecedor, Nt_Motorista, Par_NunParcela, Par_Vencimento, Par_Quitado;"
Me.RecordSource = strSql

End Sub


Se possível me ajudem.

Desde de já agradeço.

Você tem que inserir espaços no final.

Tente assim:

strSql = "SELECT Nt_Fornecedor AS Fornecedor, Nt_Motorista AS Motorista, "
strSql = strSql & "Par_NunParcela AS Parcela, Sum(Par_Valor) AS Valor, "
strSql = strSql & "Par_Vencimento AS Vencimento, Par_Quitado AS Pago "
strSql = strSql & "FROM tblNotas INNER JOIN tblParcelas ON "
strSql = strSql & "tblNotas.IdNota=tblParcelas.IdNota "
strSql = strSql & "GROUP BY Nt_Fornecedor, Nt_Motorista, "
strsql = strSql & "Par_NunParcela, Par_Vencimento, Par_Quitado; "

Sds,

Perfeito!!!

Deu certo... Muito obrigado pela ajuda.

Um forte abraço!