MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando)

    darlansandro
    darlansandro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Empty [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando)

    Mensagem  darlansandro 18/5/2017, 20:26

    Olá gente,

    Encontrei um problema o qual não tenho encontrado uma solução. Trata-se de um "Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) na expressão da consulta...". No primeiro momento pensei que fosse a questão das aspas duplas. Alterei todo código mas não resolveu o problema. Abaixo consta um vídeo demonstrando o erro e o banco para análise a todo aquele que puder me ajudar. Agradeço desde já.

    Código:

    Private Sub txtContratosNivel3_AfterUpdate()
    Me.txtTextoNivel3 = Me.txtContratosNivel3.Column(2)
    Me.txtTextoNivel3.Requery
    CarregaTextoNivel3
    End Sub

    Public Sub CarregaTextoNivel3()
    On Error GoTo trata_erro
    Dim DB          As DAO.Database
    Dim rsT         As DAO.Recordset
    Dim msql        As String

        Set DB = CurrentDb
        
        msql = "SELECT textoNivel3"
        msql = msql & " FROM tblContratosNivel3"
        msql = msql & " WHERE textoNivel3=" & txtTextoNivel3 & ""
        Set rsT = DB.OpenRecordset(msql, dbOpenSnapshot)
        
        If Not rsT.EOF Then
            txtTextoNivel3.Value = rsT("textoNivel3").Value
        Else
            txtTextoNivel3.Value = Empty
        End If
        
        rsT.Close
        Set rsT = Nothing

        Exit Sub
        
    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
        Exit Sub


    End Sub





    Grato
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Empty Re: [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando)

    Mensagem  JPaulo 19/5/2017, 11:34

    Ola;

    É as aspas simples que falta, porque é Texto

    Outras alterações;
    De;
    txtTextoNivel3.Value = Empty
    Para;
    txtTextoNivel3.Value = Null

    De;
    txtTextoNivel3.Value = rsT("textoNivel3").Value
    Para;
    txtTextoNivel3.Value = rsT("textoNivel3")

    E veja como funfa beleza;

    Código:
    Public Sub CarregaTextoNivel3()
    On Error GoTo trata_erro
    Dim DB          As DAO.Database
    Dim rsT        As DAO.Recordset
    Dim msql        As String

        Set DB = CurrentDb
       
        msql = "SELECT textoNivel3"
        msql = msql & " FROM tblContratosNivel3"
        msql = msql & " WHERE textoNivel3='" & txtTextoNivel3 & "'"
        Set rsT = DB.OpenRecordset(msql, dbOpenSnapshot)
       
        If Not rsT.EOF Then
            txtTextoNivel3.Value = rsT("textoNivel3")
        Else
            txtTextoNivel3.Value = Null
        End If
       
        rsT.Close
        Set rsT = Nothing

        Exit Sub
       
    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
        Exit Sub
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Folder_announce_new Instruções SQL como utilizar...
    darlansandro
    darlansandro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Empty Re: [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando)

    Mensagem  darlansandro 20/5/2017, 14:38

    Obrigado JPaulo. Apliquei a orientação, entretanto não funcionou. No momento em que uso a aspas simples a mensagem de erro não é exibida, contudo a informação não é carregada na caixa de texto do formulário. Abaixo estou demonstrando o que aconteceu depois da mudança. Já quebrei a cabeça com algo que incialmente pensei ser de simples solução.Grato pela ajuda.






    Código:


    Private Sub txtContratosNivel3_AfterUpdate()
    Me.txtTextoNivel3 = Me.txtContratosNivel3.Column(2)
    Me.txtTextoNivel3.Requery
    CarregaTextoNivel3
    End Sub

    Public Sub CarregaTextoNivel3()
    On Error GoTo trata_erro
    Dim DB          As DAO.Database
    Dim rsT         As DAO.Recordset
    Dim msql        As String

        Set DB = CurrentDb
        
        msql = "SELECT textoNivel3"
        msql = msql & " FROM tblContratosNivel3"
        msql = msql & " WHERE textoNivel3='" & txtTextoNivel3 & "'"
        Set rsT = DB.OpenRecordset(msql, dbOpenSnapshot)
        
        If Not rsT.EOF Then
            txtTextoNivel3.Value = rsT("textoNivel3")
        Else
            txtTextoNivel3.Value = Null
        End If
        
        rsT.Close
        Set rsT = Nothing

        Exit Sub
        
    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
        Exit Sub


    End Sub

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Empty Re: [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando)

    Mensagem  JPaulo 20/5/2017, 19:49

    Então não use as aspas simples.

    Antes da instrução If Not rsT.EOF Then, insira

    On Error Resume Next



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Folder_announce_new Instruções SQL como utilizar...
    darlansandro
    darlansandro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Empty Re: [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando)

    Mensagem  darlansandro 21/5/2017, 21:21

    Olá Paulo,

    Quebrei a cabeça, mas consegui identificar o erro. Ele estava na condição da igualdade "where". Abaixo estou postando o código que solucionou o problema. Grato pela gentileza e ajuda para encontrar a solução.

    Código:


    Private Sub txtContratosNivel3_Change()
    Me.txtTextoNivel3 = Me.txtContratosNivel3.Column(2)
    'Me.txtTextoNivel3.Requery
    CarregaTextoNivel3

    End Sub

    Public Sub CarregaTextoNivel3()

    On Error GoTo trata_erro
    Dim db          As DAO.Database
    Dim rsT         As DAO.Recordset
    Dim msql        As String

        Set db = CurrentDb
        
        msql = "SELECT idNivel3, textoNivel3, idNivel2"
        msql = msql & " FROM tblContratosNivel3"
        'msql = msql & " WHERE textoNivel3 =" & Me.txtContratosNivel3.Column(2) & ""
        msql = msql & " WHERE idNivel3 = " & txtContratosNivel3 & ""
        'msql = msql & " WHERE textoNivel3 ='" & txtContratosNivel3.Column(2) & "'"
        'msql = msql & " WHERE textoNivel3='" & txtTextoNivel3 & "'"
        Set rsT = db.OpenRecordset(msql, dbOpenSnapshot)
        
        If Not rsT.EOF Then
            txtTextoNivel3.Value = rsT("textoNivel3")
        Else
            txtTextoNivel3.Value = Null
        End If
        
        rsT.Close
        Set rsT = Nothing

        Exit Sub
        
    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
        Exit Sub


    End Sub


    darlansandro
    darlansandro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 03/05/2014

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Empty Re: [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando)

    Mensagem  darlansandro 21/5/2017, 21:25

    Problema Resolvido!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10787
    Registrado : 04/11/2009

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Empty Re: [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando)

    Mensagem  JPaulo 22/5/2017, 14:19

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro Gerado: 3075 - Erro de Sintaxe (Operador Faltando) Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 27/1/2023, 04:47