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

    Editar Recordset via VBA

    Compartilhe

    luisboccardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 07/04/2017

    Editar Recordset via VBA

    Mensagem  luisboccardo em 16/4/2018, 17:38

    Dim rs As Recordset
    Dim sSQL As String
    Dim TXT As String

    TXT = "201097904"

    sSQL = "SELECT * FROM T_NC_Geral where NC_CD = " & TXT & " "
    Set rs = CurrentDb.OpenRecordset(sSQL)

               rs.Edit
               rs!Indevida = 0
               rs.Update



    Erro 3464 " Tipo de dados incompatível na expressão de critério "      

    Na Tabela T_NC_Geral o campo NC_CD é tipo  "texto curto" ! Qual seria o erro?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: Editar Recordset via VBA

    Mensagem  FabioPaes em 16/4/2018, 23:10

    Seu Problema está no Critério da Consulta sSQL

    Se for Texto o campo NC_CD utilize:
    sSQL = "SELECT * FROM T_NC_Geral where NC_CD = '" & TXT & "'"


    Se for Numero:
    sSQL = "SELECT * FROM T_NC_Geral where NC_CD = " & TXT & ""


    O Erro: Esta informando Numero " & TXT & ". Alem de ter um Espaço desnecessário no final da Instrução. Neo sei se daria erro, mas o erro especificado é esse.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 24/9/2018, 20:55