sSql = "SELECT tblLancamentos.IdLanc, tblLancamentos.Lote, tblLancamentos.DataLancamento, tblLancamentos.Data, tblLancamentos.CodContaR, tblContaAnalitica.ContaAnalitica, tblLancamentos.CodContrapartidaR, tblLancamentos.Documento, tblLancamentos.NossoDocumento, tblLancamentos.Historico, tblLancamentos.Vencimento, tblLancamentos.DC, tblLancamentos.ValorDebito, tblLancamentos.ValorCredito, tblLancamentos.Saldo FROM tblContaAnalitica INNER JOIN tblLancamentos ON tblContaAnalitica.CodReduzido = tblLancamentos.CodContaR"

 

Tenho a instrução acima que funciona normalmente, mas quando tendo quebrá-la para ficar com estética melhor, dá erro. Estou tentando fazer da seguinte forma:

 

sSql = "SELECT tblLancamentos.IdLanc, tblLancamentos.Lote"

 

sSql = sSql & " AND tblLancamentos.DataLancamento"

sSql = sSql & " AND tblLancamentos.Data"

sSql = sSql & " AND tblLancamentos.CodContaR"

sSql = sSql & " AND  tblContaAnalitica.ContaAnalitica"

sSql = sSql & " AND  tblLancamentos.CodContrapartidaR"

 

(...)

 

ALGUÉM PODE AJUDAR?

Se for o resultado do select, não tem and e sim virgula.

 

Pelo que entendi

São mesmo os "AND" que estão a mais. Eis um exemplo de "partida" de um SQL:

 

strSQL = "SELECT qDEBITOS.ASSOCIADO, qDEBITOS.AGREGADO,qDEBITOS.DOCNUM, qDEBITOS.DEBITO "
    strSQL = strSQL & "AS DEBITO, qDEBITOS.CREDITO AS CREDITO, [DEBITO]-[CREDITO] AS SALDO "
    strSQL = strSQL & "FROM qDEBITOS "
    strSQL = strSQL & "GROUP BY qDEBITOS.ASSOCIADO, qDEBITOS.AGREGADO,qDEBITOS.DOCNUM, qDEBITOS.DEBITO, qDEBITOS.CREDITO,"
    strSQL = strSQL & "[DEBITO]-[CREDITO], qDEBITOS.INICIO "
    strSQL = strSQL & "HAVING qDEBITOS.Inicio < #" & inic & "#"
    strSQL = strSQL & "UNION "
    strSQL = strSQL & "SELECT qCREDITOS.ASSOCIADO, qCREDITOS.AGREGADO,qCREDITOS.DOCNUM,qCREDITOS.DEBITO AS DEBITO, "
    strSQL = strSQL & "qCREDITOS.CREDITO AS CREDITO, [DEBITO] -[CREDITO]AS SALDO "
    strSQL = strSQL & "FROM qCREDITOS "
    strSQL = strSQL & "GROUP BY qCREDITOS.ASSOCIADO, qCREDITOS.AGREGADO,qCREDITOS.DOCNUM, qCREDITOS.DEBITO, "
    strSQL = strSQL & "qCREDITOS.CREDITO, [CREDITO]-[DEBITO], qCREDITOS.INICIO "
    strSQL = strSQL & "HAVING qCREDITOS.INICIO < #" & inic & "#;"

Era isso mesmo, havia excessos de AND. Agora deu certinho,

 

 

Valeu, pessoal..