[Resolvido]Erro em Consulta sql + Vba

Boa noite,

Tenho uma consulta sql por vba que me traz dados filtrados de uma tabela. Porem excluir alguns campo da tabela e agora fica pedido os campos que exclui quando aperto no botão de filtro.

Não consigo alterar o sql vba , eu altero e ele continua pedindo os campos,

Alguem pode analisar o sql vba feito no form?

Obrigado,

http://www.4shared.com/document/I7gQEP-k/exemplo.html

Olá! Seja bem vindo ao forum! Tente o seguinte: acesse o módulo do form, no evento "Ao clicar" do botão btnMes e exclua as entradas referentes aos campos excluídos da tabela, como por exemplo, a entrada abaixo:

        & "tabCondenasp.CpAspectoRepugnante AS [ASPECTO REPUGNANTE]

ja tentei fazer isso excluindo la na parte do vba, mais não dar em nada, o erro continua.

Bom dia,

Coloque

Private Sub btnMes_Click()
Dim StrSQL As String, StrSQL1 As String
If IsNull(DataInicial) = True Or Me.DataInicial = "" Or IsNull(DataFinal) = True Or Me.DataFinal = "" Then
MsgBox "é obrigatório o preenchimento dos campos Data Inicial e Data Final" & vbCrLf & "para efetuar a consulta", vbCritical, "Atençao!"
Exit Sub
Else
If Me.btnMes.Caption = "Filtrar" Then
If Format(Me.DataInicial, "dd/mm/yyyy") > Format(Me.DataFinal, "dd/mm/yyyy") Then
MsgBox "A Data Inicial não pode ser menor que a Data Final", vbCritical, "Atenção!"
Exit Sub
Else
Me.btnMes.Caption = "Filtrado"
Me.btnMes.ForeColor = vbRed
StrSQL = "SELECT tabCondenasp.ID_CodCondenas, tabCondenasp.CpData AS DATA," _
& "tabgranjas.CpNomeGranja AS GRANJA, tabCondenasp.CpTipo AS TIPO," _
& "tabCondenasp.CpAbcesso AS ABCESSO, tabCondenasp.CpAerosacolite AS AEROSACULITE," _
& "tabCondenasp.CpArtrite AS ARTRITE, tabCondenasp.CpAscite AS ASCITE," _
& "tabCondenasp.CpCaquexia AS CAQUEXIA," _
& "tabCondenasp.CpCelulite AS CELULITE," _
& "tabCondenasp.CpColigranulatose AS COLIGRANULATOSE, tabCondenasp.CpContaminacao AS CONTAMINAÇÃO," _
& "tabCondenasp.CpContusaoFratura AS [CONTUSÃO/FRATURA], tabCondenasp.CpDermatose AS DERMATOSE," _
& "tabCondenasp.CpEscaldagemExcessiva AS [ESCALDAGEM EXCESSIVA]," _
& "tabCondenasp.CpMaSangria AS [MA SANGRIA]," _
& "tabCondenasp.CpSalpingite AS SALPINGITE," _
& "tabCondenasp.Cpdoeca1 AS [DOENCA 1]," _
& "tabCondenasp.Cpdoeca2 AS [DOENCA 2]," _
& " FROM tabgranjas LEFT JOIN tabCondenasp ON tabgranjas.ID_Granja = tabCondenasp.ID_Granja" _
& " WHERE (((tabCondenasp.ID_CodCondenas) Is Not Null)) And ((tabCondenasp.CpData >=#" & Format(Me.DataInicial, "mm/dd/yyyy") & "#) And (tabCondenasp.CpData <=#" & Format(Me.DataFinal, "mm/dd/yyyy") & "#))"
If Me.CboGranja <> "" Then
StrSQL = StrSQL & " And tabCondenasp.ID_Granja =" & Me.txtGranja & ""
End If
If Me.CboTipoAve <> "" Then
StrSQL = StrSQL & " And tabCondenasp.CpTipo ='" & Me.CboTipoAve & "'"
End If
StrSQL = StrSQL & " ORDER BY tabCondenasp.CpData;"
Me.lstConsulta.RowSource = StrSQL
Call AplicarCalculos

End If
Else
Call LimpaFiltro
Me.txtAviso.Visible = False

Me.btnMes.Caption = "Filtrar"
Me.btnMes.ForeColor = vbBlack
End If
End If
If Me.txtQtdReg = -1 Then
MsgBox "Não foi encontrado registro para esta consulta!", vbInformation, "Atenção"
Me.txtAviso.Visible = True
End If
End Sub

Obrigado Alexandre,

Anoite farei o teste, dai retorno como resolvido o topico.

Boa noite Alexandre,

Colei la o codigo alterado por vc e mesmo assim deu erro, olhei em outro codigo que fazia a limpeza dos dados para nova consulta e estava errado e alterei tambem, porem ainda estava dando erro, porem um erro no qual não aparecia dado nenhum.

Peço a gentileza que vc veja o exemplo que postei ontem ai em cima, e veja se consegue fazer ele funcionar, preciso saber aonde estou pois tenho que criar mais ferramentas desse mesmo modelo.

Agradeço se puder ajudar,

Bom dia, thiago
Tinha uma vírgula a mais
veja agora

StrSQL = "SELECT tabCondenasp.ID_CodCondenas, tabCondenasp.CpData AS DATA," _
& "tabgranjas.CpNomeGranja AS GRANJA, tabCondenasp.CpTipo AS TIPO," _
& "tabCondenasp.CpAbcesso AS ABCESSO, tabCondenasp.CpAerosacolite AS AEROSACULITE," _
& "tabCondenasp.CpArtrite AS ARTRITE, tabCondenasp.CpAscite AS ASCITE," _
& "tabCondenasp.CpCaquexia AS CAQUEXIA," _
& "tabCondenasp.CpCelulite AS CELULITE," _
& "tabCondenasp.CpColigranulatose AS COLIGRANULATOSE, tabCondenasp.CpContaminacao AS CONTAMINAÇÃO," _
& "tabCondenasp.CpContusaoFratura AS [CONTUSÃO/FRATURA], tabCondenasp.CpDermatose AS DERMATOSE," _
& "tabCondenasp.CpEscaldagemExcessiva AS [ESCALDAGEM EXCESSIVA]," _
& "tabCondenasp.CpMaSangria AS [MA SANGRIA]," _
& "tabCondenasp.CpSalpingite AS SALPINGITE," _
& "tabCondenasp.Cpdoeca1 AS [DOENCA 1]," _
& "tabCondenasp.Cpdoeca2 AS [DOENCA 2]" _
& " FROM tabgranjas LEFT JOIN tabCondenasp ON tabgranjas.ID_Granja = tabCondenasp.ID_Granja" _
& " WHERE Not IsNull(tabCondenasp.ID_CodCondenas) And tabCondenasp.CpData >=#" & Format(Me.DataInicial, "mm/dd/yyyy") & "# And tabCondenasp.CpData <=#" & Format(Me.DataFinal, "mm/dd/yyyy") & "#"

Obrigado Alexandre, apanhei um pouco mais deu certo.

Agradeço,