[Resolvido]Duvida instrução SQL

Bom dia.
Novamente estou precisando da estimada ajuda dos Mestres com o seguinte caso:

Estou com um problema na execução da seguinte instrução sql dentro do vba do access.

Código:

Private Sub btLista_Click()
Dim strSQL As String
    strSQL = "SELECT tbEvento.CodEvento, tbEvento.TitEvento, tbAcompEvento.dataStatus" _
    & " FROM tbEvento INNER JOIN tbAcompEvento ON tbEvento.CodEvento = tbAcompEvento.CodEvento" _
    & " WHERE tbAcompEvento.dataStatus BETWEEN "" " & Me.txtRecebData & " "" AND tbAcompEvento.dataStatus" _
    & " AND  SELECT * tbAcompEvento WHERE tbAcompEvento.CodEvento NOT IN (SELECT tbAcompEvento.CodEvento FROM tbAcompCoges);"

    If strContar = 0 Then
        DoCmd.OpenForm "frmEventosCoges", acNormal, strSQL
    Else
        MsgBox "Não existe lista de eventos para essa reunião!" & vbCrLf & "Selecione uma nova reunião", vbInformation, "LISTA DE EVENTOS"
        Me.cboReunCoges = ""
        Me.txtCodCoges = ""
        Me.txtRecebData = ""
    End If
End Sub


Na hora que mando executar, exibe uma msg de erro em tempo de execução '3075': Erro de sintaxe na expressão de consukta 'tbAcompevento.dataStatus BETWEEN " 1607/2016" AND tbAcompEvento.dataStatus AND SELECT *tbAcompEvento WHERE tbAcompEVento.CodEvento NOT IN (SELECT tbAcompCoges.CodEvento FROM tbAcompCoges)'.

O que estou pretendendo é o seguinte:
Retornar todos os registro que existam na tabela tbAcompEvento e nao existam na tbAcompCoges dentro de um determinado intervalo de data.

Desde já agradeço a atenção prestada.

Amigo, Veja esse exemplo aqui que fiz para um topico sobre os Coincidentes e os Não Coincidentes.
https://www.maximoaccess.com/t27308-resolvidocoincidentes-entre-duas-tabelas

Veja se lhe ajuda!

Sobre o erro que apresneta na sua Instrução...

BETWEEN " 1607/2016" Observe que a data esta sendo Pssada com um Espaço antes, e ainda sem uma / (mas essa barro acredito ser erro de digitação sua ne...?)


Motivo:  BETWEEN "" " & Me.txtRecebData & " "" AND ...


Remova as "" <--aqui tem um espaço a mais.


BETWEEN " & Me.txtRecebData & " AND <---- + ou - Correto





Outro ponto que devemos observar sempre é que, quando utilizamos codigo VBA em campos do tipo Data/hora, devemos sempre Formatar antes o Campo para mm/dd/yyyy ou equivalente a Hora e ainda incluir ante e depois do Valor o Caracter #10/10/2016#




Ficando assim:


BETWEEN # " & Format(Me.txtRecebData, "mm/dd/yyyy") & " # AND ...

Outra coisa estranha que achei foi essa condição:
 (AND tbAcompEvento.dataStatus" _
    & " AND  SELECT...)


Ao que parecer vc esqueceu de terminar a condição...

Ok! FabioPaes! Te agradeço pela atenção.
Irei verificar o exemplo que vc passou e os pontos que foram passados e em seguida dou um feedback.
Obrigado novamente.

Boa tarde. FabioPaes.

Com relação a expressão que você menciona na mensagem 4: "AND tbAcompEvento.dataStatus". Isso fazer parte do BETWEEN, sendo que ficou assim:

Código:

WHERE dataStatus BETWEEN " & Format(Me.txtRecebData, "mm/dd/yyyy") & "AND dataStatus"

Porem, continua dando o mesmo erro. Tentei fazer da mesma maneiro que vc fez no exemplo e tb não deu certo.
Desde ja agradeço a atenção.

Tudo Bem...

AND dataStatus" <== Aqui então tem a Outra data?


Se For deve trata-la como recomendei...




Instrução correta do Betwenn:
WHERE Tabela.DataRegistro Between [xxx] And [yyy]



Alem do mais vc esqueceu de colocar o # antes de Depois da data # se nao colocar ele nao dara certo.

Boa tarde FabioPaes.

A principio consegui resolver a questão do resultado da consulta, fazendo o seguinte:

Fiz uma consulta externa, utilizando como base o exemplo que você havia disponibilizado, e coloquei o seguinte instrução:

Código:

SELECT tbEvento.CodEvento, tbEvento.TitEvento, tbAcompEvento.dataStatus, *
FROM tbEvento INNER JOIN tbAcompEvento ON tbEvento.CodEvento = tbAcompEvento.CodEvento
WHERE (((tbAcompEvento.dataStatus) Between [Formulários]![Formulário1]![txtRecebData] And [Formulários]![Formulário1]![txtRecebDataEvent]) AND ((Exists (SELECT * FROM tbAcompCoges WHERE tbAcompCoges.[CodEvento] = tbAcompEvento.[CodEvento]))=False));


Sendo essa consulta a fonte de dados do formulário que será aberto.
E deu certo, esta retornando apenas os registros que não existem na tbAcompCoges e estejam dentro do intervalo de data.

Agradeço muito a ajuda que Mestre me deu.
Obrigado.

Grato pelo retorno amigo, Até a proxima se Deus quiser!

Não esquece de marcar como Resolvido!

Eu tinha feito isso, mais fazendo novamente.