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


3 participantes

    [Resolvido]Erro sintaxe Sql

    Connekta Informatica
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº1

    [Resolvido]Erro sintaxe Sql Empty [Resolvido]Erro sintaxe Sql

    Mensagem  Connekta Informatica 11/7/2014, 13:55

    Código:


    Dim VerificarExiste As Recordset

    strSQL = "SELECT CodigoCliente, Quitado FROM tblReceitas WHERE CodigoCliente = " & Me.txtCodigoCliente & " And Quitado = " & Em Aberto & """"
    Set VerificarExiste = CurrentDb.OpenRecordset(strSQL)

    If VerificarExiste.RecordCount <> 0 Then
    MsgBox "Já existe registro com esse número.", vbInformation, "Erro"
    End If


    A sintaxe acima esta com um erro e não como corrigir alguem pode me ajudar?

    Eu quero verificar na tblReceitas os campos CodigoCliente e Quitado ( as contas em Aberto).

    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº2

    [Resolvido]Erro sintaxe Sql Empty Re: [Resolvido]Erro sintaxe Sql

    Mensagem  Dilson 11/7/2014, 14:32

    Tente:

    Código:
    strSQL = "SELECT CodigoCliente, Quitado FROM tblReceitas WHERE CodigoCliente ='" & Me.txtCodigoCliente & "' And Quitado ='Em Aberto'"

    Não esqueça de declarar a variável strSQL assim:

    Dim strSQL As String


    Última edição por Dilson em 11/7/2014, 14:54, editado 2 vez(es) (Motivo da edição : Colocar o codigo na tag code)
    • Ir para o topo
    Connekta Informatica
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº3

    [Resolvido]Erro sintaxe Sql Empty Re: [Resolvido]Erro sintaxe Sql

    Mensagem  Connekta Informatica 11/7/2014, 14:52

    Obrigado Dilson.
    • Ir para o topo
    Connekta Informatica
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011
    • Mensagem nº4

    [Resolvido]Erro sintaxe Sql Empty Re: [Resolvido]Erro sintaxe Sql

    Mensagem  Connekta Informatica 11/7/2014, 14:52

    Ops!!
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº5

    [Resolvido]Erro sintaxe Sql Empty Re: [Resolvido]Erro sintaxe Sql

    Mensagem  Dilson 11/7/2014, 14:56

    De nada, disponha sempre!
    • Ir para o topo
    Noobezinho
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012
    • Mensagem nº6

    [Resolvido]Erro sintaxe Sql Empty Re: [Resolvido]Erro sintaxe Sql

    Mensagem  Noobezinho 11/7/2014, 14:58

    Ao invéz de todos esse código, não seria mais fácil assim?


    If Dcount("*","tblReceitas","[CodigoCliente]= " & Me.txtCodigoCliente & " and " & "[Quitado] =  'Em Aberto'") <> 0 then

    editando: Estava digitando quando fecharam o tópico.

    Abraços

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº7

    [Resolvido]Erro sintaxe Sql Empty Re: [Resolvido]Erro sintaxe Sql

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 05:36