MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    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.
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1138
    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?
    avatar
    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.
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1138
    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 & "'" & ";"
    avatar
    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


    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1138
    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: Seg 26 Jun 2017, 13:05