[Resolvido]Erro 3075 - Syntax error in query expression

Camaradas,

Nestes primeiros passos no VBA as vezes sinto-me perdido, esta é uma situação destas.

Alterei e adaptei um código disponibilizado pelo mestre HARYSOHN, mas gera Erro 3075 - Syntax error in query expression.

Já consultei a ajuda na syntax e vi alguns outros exemplos, mas não consigo contornar o erro.

Código:

Private Sub Command35_Click()
Dim Rs As DAO.Recordset
Dim StrSQL As String
Dim StrTMP As String

StrTMP = "in("
StrSQL = "SELECT Rede From tbTabela"
Set Rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not Rs.EOF
 
If StrTMP = "" Then  ' 1º laço do Loop
    StrTMP = Rs!Rede
Else
    ' A linha abaixo só vai ocorrer a partir do 2º laço
    StrTMP = StrTMP & "'" & Rs!Rede & "'" & ";"
End If
Rs.MoveNext
Loop
StrTMP = Mid(StrTMP, 1, (Len(StrTMP) - 1)) & ")"
StrTMP = "Rede " & StrTMP
    DoCmd.OpenForm "SistemasAtivos subform", acFormDS, , StrTMP, acFormAdd
End Sub

Podem me ajudar pf.

Obrigado.

Insira a linha:

MsgBox StrTMP

antes da linha:

DoCmd.OpenForm "SistemasAtivos subform", acFormDS, , StrTMP, acFormAdd

Qual é o texto que aparece na caixa de mensagem?

Bom dia Claudio,

A mensagem que apresenta é precisamente o meu objetivo. Rede in('fffff';'ghjhgjh';'uuiiuy')

O meu objetivo é abrir um form com Toogle Filter no campo Rede.

Código:


Private Sub Command35_Click()
Dim Rs As DAO.Recordset
Dim StrSQL As String
Dim StrTMP As String

StrTMP = "in("
StrSQL = "SELECT Rede From tbTabela"
Set Rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not Rs.EOF
 
If StrTMP = "" Then  ' 1º laço do Loop
    StrTMP = Rs!Rede
Else
    ' A linha abaixo só vai ocorrer a partir do 2º laço
    StrTMP = StrTMP & "'" & Rs!Rede & "'" & ";"
End If
Rs.MoveNext
Loop
StrTMP = Mid(StrTMP, 1, (Len(StrTMP) - 1)) & ")"
StrTMP = "Rede " & StrTMP
MsgBox StrTMP
    DoCmd.OpenForm "SisApAtivos subform", acFormDS, , StrTMP
End Sub

Sei que existe qualquer syntax errada ... mas não consigo contornar o problema.


Obrigado.

Bom dia,

O resultado deveria ser:

Rede in('fffff','ghjhgjh','uuiiuy')

então substitua ponto e vírgula por vírgula na linha de código abaixo:

StrTMP = StrTMP & "'" & Rs!Rede & "'" & ";"

Boa tarde Cláudio,

Acertou ... erro corrigido.

Sem a vossa ajuda, no entendimento e no ensinamento, seria impossível, para mim chegar lá.

Obrigado pelo vossa disponibilidade em ajudar.

Muito obrigado

De nada