[Resolvido]Recordset não trás toda a Query..

Boa noite Srs.
Eu tenho um módulo que gera um log de erros ao qual fica registrado em um bloco de notas fora do access...

Eu estava testando o código pra abrir uma Query, que no caso é a STRWHERE,

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(strWhere, dbOpenSnapshot)
Me.FolhaDados.Form.Requery
Set Me.FolhaDados.Form.Recordset = rs

Eu utilizei todos os filtros do formulário,

ID, Descrição, Ativo/Inativo, Data de Cadastro, Data de Alteração, e me deparei com esse erro abaixo:

Date: 31/10/2021 00:02:54
Error Number: 3075
Error Description: ), ] ou item faltando na expressão de consulta '[TSYS_UNID].[ID_UNID] LIKE '14' AND [TSY'.
Object: FRMMAIN_TSYS_UNID
Procedure: btn_procurar_Click

Alguém pode me ajudar ou pelo menos explicar o porque o recordset quebra a query?

Bom dia
E se inverter a ordem destas instruções?
Set Me.FolhaDados.Form.Recordset = rs
Me.FolhaDados.Form.Requery

Bom dia Alexandre,

eu faço dessa forma, em Origem de Dados deixo vazio, e dentro de uma função eu faço a atribuição no Recordsource.

Eu tentei utilizar seu exemplo, mas ele trás as colunas como se fossem desconhecidas #nome?

Código:

Function fncFiltrarDados()

    strWhere = "SELECT TSYS_UNID.ID_UNID AS [Código]"
    strWhere = strWhere & ", TSYS_UNID.UNID_NOM AS [Unidade de negócios]"
    strWhere = strWhere & ", TSYS_UNID.UNID_DHCAD AS [Cadastro]"
    strWhere = strWhere & ", TSYS_UNID.UNID_DHALT AS [Alteração]"
    strWhere = strWhere & ", TSYS_UNID.UNID_DHFIM AS [Desativação]"
    strWhere = strWhere & " FROM TSYS_UNID"

    '// filtros
    ......

    '// origem de dados
    'Me.FolhaDados.Form.RecordSource = strWhere
   
    '// origem dos campos
    Me.FolhaDados!txt_id.ControlSource = "Código"
    Me.FolhaDados!txt_campo1.ControlSource = "Unidade de negócios"
    Me.FolhaDados!txt_campo2.ControlSource = "Cadastro"
    Me.FolhaDados!txt_campo3.ControlSource = "Alteração"
    Me.FolhaDados!txt_campo4.ControlSource = "Desativação"
   
    '// requery
    Me.FolhaDados.Requery

Boa noite
Também devia ter mostrado os filtros. Pode ter algum com sintaxe errada
Verifico que na origem dos dados, renomeia ID_UNID para Código. Assim, deverá usar Código em vez de ID_UNID, pois é este o novo nome na origem dos dados do form

Bom dia Alexandre, acredito que não seja Sintax inválida pois o mesmo filtro funciona quando coloco em RecordSource.

O motivo de está querendo fazer isso com Recordset é que me parece que a tabela não fica "aberta"... o que ocorre com RecordSource que estou utilizando atualmente...

Código:


Function fncFiltrarDados()

    strWhere = "SELECT TSYS_UNID.ID_UNID AS [Código]"
    strWhere = strWhere & ", TSYS_UNID.UNID_NOM AS [Unidade de negócios]"
    strWhere = strWhere & ", TSYS_UNID.UNID_DHCAD AS [Cadastro]"
    strWhere = strWhere & ", TSYS_UNID.UNID_DHALT AS [Alteração]"
    strWhere = strWhere & ", TSYS_UNID.UNID_DHFIM AS [Desativação]"
    strWhere = strWhere & " FROM TSYS_UNID"

    '// filtros
    If Nz(Me.txt_descricao, "") <> "" Then
      strWhere = strWhere & " WHERE [TSYS_UNID].[UNID_NOM] LIKE '*" & Me.txt_descricao & "'"
    End If

    '// origem de dados
    'Me.FolhaDados.Form.RecordSource = strWhere
   
    '// origem dos campos
    Me.FolhaDados!txt_id.ControlSource = "Código"
    Me.FolhaDados!txt_campo1.ControlSource = "Unidade de negócios"
    Me.FolhaDados!txt_campo2.ControlSource = "Cadastro"
    Me.FolhaDados!txt_campo3.ControlSource = "Alteração"
    Me.FolhaDados!txt_campo4.ControlSource = "Desativação"
   
    '// requery
    Me.FolhaDados.Requery

Boa tarde
Não vejo erro no código
Qual valor coloca no filtro? Se colocar algum hífen ou parêntesis recto dará erro

Bom dia, não coloco nenhum destes...

a questão não é sintax errada se eu copiar o strwhere e colocar em uma consulta ele funciona normalmente,

e a mesma coisa se eu colocar me.folhadados.form.recordsource = strwhere ele vai funcionar

só que o Recordset corta parte da query... não sei pq acontece isso

Corta alguns registos ou alguns campos
Se fôr campos indique quais corta

Date: 31/10/2021 00:02:54
Error Number: 3075
Error Description: ), ] ou item faltando na expressão de consulta '[TSYS_UNID].[ID_UNID] LIKE '14' AND [TSY'.
Object: FRMMAIN_TSYS_UNID
Procedure: btn_procurar_Click

Alexandre, ao abrir o recordset tinha uma linha com strwhere = me.folhadados.form.recordsource, eu removi essa linha e funcionou!