MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro 3075 - Syntax error in query expression

    Compartilhe

    black_wolf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 33
    Registrado : 02/04/2013

    [Resolvido]Erro 3075 - Syntax error in query expression

    Mensagem  black_wolf em Sex 28 Mar 2014, 14:45

    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.

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1097
    Registrado : 21/01/2012

    Re: [Resolvido]Erro 3075 - Syntax error in query expression

    Mensagem  Cláudio Más em Sab 29 Mar 2014, 14:25

    Insira a linha:

    MsgBox StrTMP

    antes da linha:

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

    Qual é o texto que aparece na caixa de mensagem?

    black_wolf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 33
    Registrado : 02/04/2013

    Re: [Resolvido]Erro 3075 - Syntax error in query expression

    Mensagem  black_wolf em Seg 31 Mar 2014, 11:58

    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.

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1097
    Registrado : 21/01/2012

    Re: [Resolvido]Erro 3075 - Syntax error in query expression

    Mensagem  Cláudio Más em Seg 31 Mar 2014, 13:05

    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 & "'" & ";"

    black_wolf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 33
    Registrado : 02/04/2013

    Re: [Resolvido]Erro 3075 - Syntax error in query expression

    Mensagem  black_wolf em Seg 31 Mar 2014, 13:56

    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 Smile



    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1097
    Registrado : 21/01/2012

    Re: [Resolvido]Erro 3075 - Syntax error in query expression

    Mensagem  Cláudio Más em Seg 31 Mar 2014, 14:31

    De nada

      Data/hora atual: Qui 08 Dez 2016, 23:59